Long year: Difference between revisions
Add BCPL
(→{{header|Forth}}: Add comments to definitions) |
Not a robot (talk | contribs) (Add BCPL) |
||
Line 420:
The long years between 2100 and 2200 are 2105 2111 2116 2122 2128 2133 2139 2144 2150 2156 2161 2167 2172 2178 2184 2189 2195
</pre>
=={{header|BCPL}}==
<lang bcpl>get "libhdr"
let p(y) = (y + y/4 - y/100 + y/400) rem 7
let longyear(y) = p(y)=4 | p(y-1)=3
let start() be
for y = 2000 to 2100
if longyear(y) do writef("%N*N", y)</lang>
{{out}}
<pre>2004
2009
2015
2020
2026
2032
2037
2043
2048
2054
2060
2065
2071
2076
2082
2088
2093
2099</pre>
=={{header|C sharp}}==
Line 444 ⟶ 473:
Long years in the 21st century:
2004 2009 2015 2020 2026 2032 2037 2043 2048 2054 2060 2065 2071 2076 2082 2088 2093 2099</pre>
=={{header|C}}==
| |||