From dc1ef25f1a7f8e36e93928e5b0288e203833e14a Mon Sep 17 00:00:00 2001
From: Jan Tuomi <jans.tuomi@gmail.com>
Date: Fri, 18 Feb 2022 09:39:53 +0200
Subject: Clean up

---
 samples/modulo.slam | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 samples/modulo.slam

(limited to 'samples/modulo.slam')

diff --git a/samples/modulo.slam b/samples/modulo.slam
new file mode 100644
index 0000000..b093015
--- /dev/null
+++ b/samples/modulo.slam
@@ -0,0 +1,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
-- 
cgit v1.3