Day of the week: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add Cowgol) |
Not a robot (talk | contribs) (Add BCPL) |
||
Line 978: | Line 978: | ||
} |
} |
||
quit</lang> |
quit</lang> |
||
=={{header|BCPL}}== |
|||
<lang bcpl>get "libhdr" |
|||
let weekday(y, m, d) = |
|||
m<3 -> wd((y-1)/100, (y-1) rem 100, m + 10, d), |
|||
wd(y/100, y rem 100, m - 2, d) |
|||
and wd(c, y, m, d) = |
|||
((26*m-2)/10 + d + y + y/4 + c/4 - 2 * c + 777) rem 7 |
|||
let start() be |
|||
for year = 2008 to 2121 |
|||
if weekday(year, 12, 25) = 0 |
|||
do writef("%N*N", year)</lang> |
|||
{{out}} |
|||
<pre>2011 |
|||
2016 |
|||
2022 |
|||
2033 |
|||
2039 |
|||
2044 |
|||
2050 |
|||
2061 |
|||
2067 |
|||
2072 |
|||
2078 |
|||
2089 |
|||
2095 |
|||
2101 |
|||
2107 |
|||
2112 |
|||
2118</pre> |
|||
=={{header|Befunge}}== |
=={{header|Befunge}}== |