RosettaCodeData/Task/Leap-year/Forth/leap-year-2.fth

2 lines
68 B
Forth

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