RosettaCodeData/Task/Leap-year/ZX-Spectrum-Basic/leap-year.basic

2 lines
75 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
10 DEF FN l(y)=y/4=INT (y/4) AND (y/100<>INT (y/100) OR y/400=INT (y/400))