RosettaCodeData/Task/Leap-year/BASIC/leap-year-6.basic

2 lines
73 B
Plaintext

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