Sync

Task/Loops-Do-while/COBOL/loops-do-while.cobol

@@ -0,0 +1,15 @@
+       IDENTIFICATION DIVISION.
+       PROGRAM-ID. loop-do-while.
+
+       DATA DIVISION.
+       WORKING-STORAGE SECTION.
+       01  i PIC 99 VALUE 0.
+
+       PROCEDURE DIVISION.
+           PERFORM WITH TEST AFTER UNTIL FUNCTION MOD(i, 6) = 0
+               ADD 1 TO i
+               DISPLAY i
+           END-PERFORM
+
+           GOBACK
+           .

Task/Loops-Do-while/Chapel/loops-do-while.chapel

@@ -0,0 +1,5 @@
+var val = 0;
+do {
+        val += 1;
+        writeln(val);
+} while val % 6 > 0;

Task/Loops-Do-while/Erlang/loops-do-while.erl

@@ -1,9 +1,11 @@
 do() ->
-	io:format("0~n"),
-	do(1).
+	do(0).
 	
+do(0) ->
+	io:fwrite( "0 " ),
+        do( 1 );
 do(N) when N rem 6 =:= 0 ->
 	io:format("~w~n", [N]);
 do(N) ->
-	io:format("~w~n", [N]),
+	io:fwrite( "~p ", [N] ),
 	do(N+1).

Task/Loops-Do-while/REXX/loops-do-while-1.rexx

@@ -1,7 +1,6 @@
-/*REXX program to demonstrate a  DO  UNTIL  construction.               */
-
+/*REXX program demonstrates a     DO  UNTIL     construction.           */
 v=0
-          do  until  v//6 == 0
+          do  until  v//6==0           /*REXX   //   is the ÷ remainder.*/
           v=v+1
           say v
           end

Task/Loops-Do-while/REXX/loops-do-while-2.rexx

@@ -1,6 +1,6 @@
-/*REXX program to demonstrate a  DO  UNTIL  construction.               */
+/*REXX program demonstrates a     DO  UNTIL     construction.           */
 
-          do v=1  until  v//6==0
+          do v=1  until  v//6==0       /*REXX   //   is the ÷ remainder.*/
           say v
           end
                                        /*stick a fork in it, we're done.*/