7 lines
128 B
Text
7 lines
128 B
Text
func leapyear y .
|
|
if y mod 4 = 0 and (y mod 100 <> 0 or y mod 400 = 0)
|
|
return 1
|
|
.
|
|
return 0
|
|
.
|
|
print leapyear 2000
|