Day of the week: Difference between revisions
no edit summary
No edit summary |
|||
Line 422:
Sun Dec 25 00:00:00 CST 2112
Sun Dec 25 00:00:00 CST 2118</pre>
=={{header|Mathematica}}==
<lang Mathematica>
Reap[If[DateString[{#,12,25},"DayName"]=="Sunday",Sow[#]]&/@Range[2008,2121]][[2,1]]
</lang>
gives back:
<lang Mathematica>
{2011,2016,2022,2033,2039,2044,2050,2061,2067,2072,2078,2089,2095,2101,2107,2112,2118}
</lang>
=={{header|Modula-3}}==
| |||