Anonymous user
Day of the week: Difference between revisions
→{{header|Forth}}
Line 368:
cr yuletide
December 25 is Sunday in 2011 2016 2022 2033 2039 2044 2050 2061 2067 2072 2078 2089 2095 2101 2107 2112 2118</lang>
To show year-2100 problems with SwiftForth's provided Modified Julian Day support:
<lang forth>: yuletide
." December 25 is Sunday in "
2122 2008 do
25 12 i d/m/y
7 mod 0= if i . then
loop cr ;
cr yuletide
December 25 is Sunday in 2011 2016 2022 2033 2039 2044 2050 2061 2067 2072 2078 2089 2095 2100 2106 2117</lang>
=={{header|Fortran}}==
| |||