RosettaCodeData/Task/Even-or-odd/8th/even-or-odd-2.8th
2016-12-05 23:44:36 +01:00

4 lines
64 B
Text

: even? \ n -- f
1 n:band not ;
: odd? \ n -- f
even? not ;