RosettaCodeData/Task/Leap-year/Bc/leap-year.bc
2023-07-01 13:44:08 -04:00

5 lines
91 B
Text

define l(y) {
if (y % 100 == 0) y /= 100
if (y % 4 == 0) return(1)
return(0)
}