mirror
/
RosettaCodeData
mirror of https://github.com/acmeism/RosettaCodeData.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
RosettaCodeData/Task/Leap-year/Commodore-BASIC/leap-year.basic

2 lines
71 B
Plaintext
Raw Permalink Blame History

10 DEF FNLY(Y)=(Y/4=INT(Y/4))*((Y/100<>INT(Y/100))+(Y/400=INT(Y/400)))
Reference in New Issue View Git Blame Copy Permalink