4 lines
166 B
Text
4 lines
166 B
Text
:isLeapYear? (y-f)
|
|
dup #400 mod n:zero? [ drop #-1 #0 ] [ #1 ] choose 0; drop
|
|
dup #100 mod n:zero? [ drop #0 #0 ] [ #1 ] choose 0; drop
|
|
#4 mod n:zero? ;
|