demo of nested loop

2021-11-15 00:01:04 +01:00
parent 5dc19b88ed
commit 26c65655e1
1 changed files with 15 additions and 0 deletions
@@ -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