RosettaCodeData/Task/Leap-year/Commodore-BASIC/leap-year.basic
2023-07-01 13:44:08 -04:00

1 line
71 B
Text

10 DEF FNLY(Y)=(Y/4=INT(Y/4))*((Y/100<>INT(Y/100))+(Y/400=INT(Y/400)))