RosettaCodeData/Task/Leap-year/Forth/leap-year-2.fth
Ingy döt Net 776bba907c Sync
2013-10-27 22:24:23 +00:00

1 line
68 B
Forth

: leap-year? dup 4 mod 0= over 16 mod 0= rot 25 mod 0= not or and ;