Data update

Task/Loops-Do-while/ALGOL-60/loops-do-while-2.alg

@@ -4,10 +4,11 @@ integer i;
 boolean another;
 i := 0;
 another := true;
-for i := i + 1 while another do
+for i := i while another do
   begin
+    i := i + 1;
     outinteger(1,i);
-    comment - repeat until i mod 6 = 0;
+    comment - stop once i mod 6 = 0;
     if i = (i div 6) * 6 then another := false;
   end;
 

Task/Loops-Do-while/S-BASIC/loops-do-while.basic

@@ -0,0 +1,14 @@
+rem - return n mod m
+function mod(n, m = integer) = integer
+end = n - (n / m) * m
+
+var i = integer
+i = 0
+repeat
+  begin
+    i = i + 1
+    print i;
+  end
+until mod(i, 6) = 0
+
+end

Task/Loops-Do-while/Tailspin/loops-do-while-2.tailspin

@@ -0,0 +1,8 @@
+doWhile source
+  0 -> # !
+  otherwise val is $ + 1;
+    $val !
+    $val -> if <|?($ mod 6 matches <~|=0>)> -> # !
+end doWhile
+
+$doWhile !