demo of nested loop

3 years ago · 26c65655e1
parent 5dc19b88ed
commit 26c65655e1
1 changed files with 15 additions and 0 deletions
--- a/loops.forth
+++ b/loops.forth
@ -3,3 +3,18 @@

 : test2 begin 1 - dup . dup 0= until ;
 10 test2
+
+: test3
+    dup .
+    begin
+    1 - dup
+
+    ." ( "
+    5 begin dup while 1 - dup . repeat
+    ." ) " drop
+
+    .
+    dup 0=
+    until ;
+
+3 test3