17 lines
325 B
Plaintext
17 lines
325 B
Plaintext
FUNCTION p(y) = REMAINDER((y + INT(y/4) - INT(y/100) + INT(y/400)), 7)
|
|
|
|
FUNCTION isLongYear(y)
|
|
IF p(y) = 4 THEN
|
|
LET isLongYear = 1
|
|
ELSEIF p(y-1) = 3 THEN
|
|
LET isLongYear = 1
|
|
ELSE
|
|
LET isLongYear = 0
|
|
END IF
|
|
END FUNCTION
|
|
|
|
FOR y = 2000 TO 2100
|
|
IF isLongYear(y) > 0 THEN PRINT y
|
|
NEXT y
|
|
END
|