3 lines
91 B
Text
3 lines
91 B
Text
|
leapyearp(year) := is(mod(year, 4) = 0 and
|
||
|
|
(mod(year, 100) # 0 or mod(year, 400) = 0))$
|