From 12dbaa90ae2f8c43fd69caaf7d1665ca0182b962 Mon Sep 17 00:00:00 2001
From: Jan Tuomi <jans.tuomi@gmail.com>
Date: Fri, 28 Jan 2022 23:40:22 +0200
Subject: Implement loop

---
 samples/loop.sample | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 samples/loop.sample

(limited to 'samples/loop.sample')

diff --git a/samples/loop.sample b/samples/loop.sample
new file mode 100644
index 0000000..dce412e
--- /dev/null
+++ b/samples/loop.sample
@@ -0,0 +1,9 @@
+define ,    dup . ;
+
+-- load idx value and print it (w/o consume)
+-- calc idx - 1 and store in idx
+10 $idx !
+[ $idx @ 0 gt? ] [
+    $idx @ ,
+    1 - $idx !
+] loop
-- 
cgit v1.3