1 line
68 B
Forth
1 line
68 B
Forth
: leap-year? dup 4 mod 0= over 16 mod 0= rot 25 mod 0= not or and ;
|
: leap-year? dup 4 mod 0= over 16 mod 0= rot 25 mod 0= not or and ;
|