22 lines
393 B
Plaintext
22 lines
393 B
Plaintext
PROGRAM "LongYear"
|
|
VERSION "0.0000"
|
|
|
|
DECLARE FUNCTION Entry ()
|
|
DECLARE FUNCTION p (y)
|
|
DECLARE FUNCTION isLongYear (y)
|
|
|
|
FUNCTION Entry ()
|
|
FOR y = 2000 TO 2100
|
|
IF isLongYear(y) THEN PRINT y,
|
|
NEXT y
|
|
END FUNCTION
|
|
|
|
FUNCTION p (y)
|
|
RETURN (y + INT(y/4) - INT(y/100) + INT(y/400)) MOD 7
|
|
END FUNCTION
|
|
|
|
FUNCTION isLongYear (y)
|
|
RETURN (p(y) = 4) OR (p(y - 1) = 3)
|
|
END FUNCTION
|
|
END PROGRAM
|