12 lines
309 B
Plaintext
12 lines
309 B
Plaintext
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
|