4 lines
64 B
Text
4 lines
64 B
Text
: even? \ n -- f
|
|
1 n:band not ;
|
|
: odd? \ n -- f
|
|
even? not ;
|
: even? \ n -- f
|
|
1 n:band not ;
|
|
: odd? \ n -- f
|
|
even? not ;
|