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