Data update

Task/Loops-Increment-loop-index-within-loop-body/Quackery/loops-increment-loop-index-within-loop-body-1.quackery

@@ -0,0 +1,22 @@
+  [ stack ]                     is f.action (   --> s )
+  [ stack ]                     is f.end    (   --> s )
+  [ stack ]                     is f.incr   (   --> s )
+  [ stack ]                     is f.index  (   --> s )
+
+  [ ' [ f.action f.end
+        f.incr f.index ] ]      is f.stacks (   --> [ )
+
+  [ f.index share ]             is index    (   --> n )
+
+  [ f.incr replace ]            is incr     ( n -->   )
+
+  [ true f.end replace ]        is end      ( b -->   )
+
+  [ 1 false ]'[
+    f.stacks witheach put
+    [ f.action share do
+      f.incr share
+      f.index tally
+      1 incr
+      f.end share until ]
+    f.stacks witheach release ] is from     ( n -->   )

Task/Loops-Increment-loop-index-within-loop-body/Quackery/loops-increment-loop-index-within-loop-body-2.quackery

@@ -0,0 +1,19 @@
+  [ $ "" swap
+    number$ reverse
+    [ dup size 3 > while
+      3 split
+      dip join
+      dip [ char , join ]
+      again ]
+     join reverse echo$ ] is echo, ( n --> )
+
+  0
+  42 from
+    [ index prime if
+        [ 1+
+          dup echo
+          say ": "
+          index echo, cr
+          index 1+ incr ]
+      dup 42 = if end ]
+  drop

Task/Loops-Increment-loop-index-within-loop-body/Quackery/loops-increment-loop-index-within-loop-body-3.quackery

@@ -0,0 +1,10 @@
+  0 42
+  [ dup prime if
+    [ dip 1+
+      over echo
+      say ": "
+      dup echo, cr
+      dup + ]
+    1+
+    over 42 = until ]
+  2drop