4 lines
108 B
APL
4 lines
108 B
APL
⍝returns 1 if leapyear, 0 otherwise:
|
||
∇Z←LEAPYEAR YEAR
|
||
Z←(0=4|YEAR)∧(0=400|YEAR)∨~0=100|YEAR
|
||
∇
|