12 lines
309 B
Text
12 lines
309 B
Text
|
BOOL local fn IsLongYear( year as int )
|
||
|
|
int year1 = year - 1
|
||
|
|
int p = (year + (year / 4) - (year / 100) + (year / 400)) % 7
|
||
|
|
int p1 = (year1 + (year1 / 4) - (year1 / 100) + (year1 / 400)) % 7
|
||
|
|
end fn = p == 4 || p1 == 3
|
||
|
|
|
||
|
|
for int y = 2000 to 2100
|
||
|
|
if ( fn IsLongYear( y ) ) then print y
|
||
|
|
next
|
||
|
|
|
||
|
|
HandleEvents
|