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

2 lines
75 B
Plaintext

10 DEF FN l(y)=y/4=INT (y/4) AND (y/100<>INT (y/100) OR y/400=INT (y/400))