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

2 lines
73 B
Text
Raw Permalink Normal View History

2019-09-12 10:33:56 -07:00
10 DEF FN l(y)=y/4=INT (y/4) AND y/100<>INT (y/100) OR y/400=INT (y/400)