21 lines
434 B
Text
21 lines
434 B
Text
include "cowgol.coh";
|
|
|
|
sub longyear(year: uint16): (r: uint8) is
|
|
sub p(y: uint16): (d: uint8) is
|
|
d := ((y + y/4 - y/100 + y/400) % 7) as uint8;
|
|
end sub;
|
|
|
|
r := 0;
|
|
if p(year) == 4 or p(year-1) == 3 then
|
|
r := 1;
|
|
end if;
|
|
end sub;
|
|
|
|
var year: uint16 := 2000;
|
|
while year <= 2100 loop
|
|
if longyear(year) != 0 then
|
|
print_i16(year);
|
|
print_nl();
|
|
end if;
|
|
year := year + 1;
|
|
end loop;
|