diff options
Diffstat (limited to 'samples/modulo.sample')
| -rw-r--r-- | samples/modulo.sample | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/samples/modulo.sample b/samples/modulo.sample deleted file mode 100644 index b093015..0000000 --- a/samples/modulo.sample +++ /dev/null @@ -1,12 +0,0 @@ -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 |