Long year: Difference between revisions
Content added Content deleted
(→{{header|Forth}}: Add comments to definitions) |
Not a robot (talk | contribs) (Add BCPL) |
||
| Line 420: | 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 |
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> |
</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}}== |
=={{header|C sharp}}== |
||
| Line 444: | Line 473: | ||
Long years in the 21st century: |
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> |
2004 2009 2015 2020 2026 2032 2037 2043 2048 2054 2060 2065 2071 2076 2082 2088 2093 2099</pre> |
||
=={{header|C}}== |
=={{header|C}}== |
||