blob: b0930158a85a6daecc3a635c2e7a4f64067d386c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
define decrement
dup $decrement_var !
@ 1 - $decrement_var @ !
$decrement_var forget ;
10 $idx !
[ $idx @ dup 0 gt? ] -- while idx > 0
[ 2 mod 0 eq? -- print "even" if even, "odd" if odd
[ "even" s. ]
[ "odd" s. ] cond
$idx decrement ] loop -- decrement idx by 1
drop
|
