18 lines
378 B
Text
18 lines
378 B
Text
[ abs
|
|
|
|
' [ dup 0 = iff
|
|
[ 2drop true ] done
|
|
1 - this swap rot do ] ( x n --> b )
|
|
|
|
' [ dup 0 = iff
|
|
[ 2drop false ] done
|
|
1 - this swap rot do ] ( x n --> b )
|
|
|
|
unrot do ] is even ( n --> b )
|
|
|
|
11 times
|
|
[ i^ 5 - dup echo
|
|
say " is "
|
|
even iff [ $ "even" ]
|
|
else [ $ "odd" ]
|
|
echo$ say "." cr ]
|