11 lines
194 B
Text
11 lines
194 B
Text
func p y .
|
|
return (y + y div 4 - y div 100 + y div 400) mod 7
|
|
.
|
|
func longyear y .
|
|
return if p y = 4 or p (y - 1) = 3
|
|
.
|
|
for y = 2000 to 2100
|
|
if longyear y = 1
|
|
write y & " "
|
|
.
|
|
.
|