4 lines
85 B
Text
4 lines
85 B
Text
: odd? \ n -- boolean
|
|
dup 1 n:band 1 n:= ;
|
|
: even? \ n -- boolean
|
|
odd? not ;
|