RosettaCodeData/Task/Leap-year/Forth/leap-year-2.fth
2023-07-01 13:44:08 -04:00

1 line
68 B
Forth

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