6 lines
143 B
Text
6 lines
143 B
Text
to multiple? :n :d
|
|
output equal? 0 modulo :n :d
|
|
end
|
|
to leapyear? :y
|
|
output ifelse multiple? :y 100 [multiple? :y 400] [multiple? :y 4]
|
|
end
|