Anonymous user
Day of the week: Difference between revisions
→{{header|Perl}}
Line 761:
25 Dec 2118 is Sunday
</pre>
Alternatively in one line using grep (read from right to left):
<lang perl>#! /usr/bin/perl -w
use DateTime;
use strict;
print join " ", grep { DateTime->new(year => $_, month => 12, day => 25)->day_of_week == 7 } (2008 .. 2121);
0;</lang>
Output:
<pre>2011 2016 2022 2033 2039 2044 2050 2061 2067 2072 2078 2089 2095 2101 2107 2112 2118</pre>
=={{header|PHP}}==
|