Day of the week: Difference between revisions
Add BCPL
Not a robot (talk | contribs) (Add Cowgol) |
Not a robot (talk | contribs) (Add BCPL) |
||
Line 978:
}
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}}==
| |||