Day of the week: Difference between revisions
Content added Content deleted
No edit summary |
|||
| Line 2,167: | Line 2,167: | ||
2118 |
2118 |
||
</pre> |
</pre> |
||
=={{header|Maple}}== |
|||
<lang Maple>xmas:= proc() |
|||
local i, dt; |
|||
for i from 2008 to 2121 by 1 do |
|||
dt := Date(i, 12, 25); |
|||
if (Calendar:-DayOfWeek(dt) = 1) then |
|||
print(i); |
|||
end if; |
|||
end do; |
|||
end proc; |
|||
xmas(); |
|||
</lang> |
|||
{{Out|Output}} |
|||
<pre> |
|||
2011 |
|||
2016 |
|||
2022 |
|||
2033 |
|||
2039 |
|||
2044 |
|||
2050 |
|||
2061 |
|||
2067 |
|||
2072 |
|||
2078 |
|||
2089 |
|||
2095 |
|||
2101 |
|||
2107 |
|||
2112 |
|||
2118 |
|||
</pre> |
|||
=={{header|Mathematica}} / {{header|Wolfram Language}}== |
=={{header|Mathematica}} / {{header|Wolfram Language}}== |
||