Data update

Task/Loops-Do-while/Ada/loops-do-while-1.ada

@@ -1,5 +0,0 @@
-loop
-   Value := Value + 1;
-   Put (Value);
-   exit when Value mod 6 = 0;
-end loop;

Task/Loops-Do-while/Ada/loops-do-while-2.ada

@@ -1,4 +0,0 @@
-for Value in 0..Integer'Last loop
-   Put (Value);
-   exit when Value mod 6 = 0;
-end loop;

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

@@ -1,15 +0,0 @@
-       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

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

Task/Loops-Do-while/Emacs-Lisp/loops-do-while-1.l

@@ -1,5 +0,0 @@
-(let ((val 0))
-  (while (progn
-           (setq val (1+ val))
-           (message "%d" val)
-           (/= 0 (mod val 6)))))

Task/Loops-Do-while/Emacs-Lisp/loops-do-while-2.l

@@ -1,5 +0,0 @@
-(let ((val 0) done)
-  (while (not done)
-    (setq val (1+ val))
-    (message "%d" val)
-    (setq done (zerop (mod val 6)))))

Task/Loops-Do-while/Euphoria/loops-do-while.ex

@@ -1,12 +0,0 @@
-include std/console.e
-include std/math.e
-
-atom x = 0
-
-loop do
-	x += 1
-	?x
-	until(mod(x,6)) = 0
-end loop
-
-if getc(0) then end if

Task/Loops-Do-while/Haxe/loops-do-while.haxe

@@ -1,6 +0,0 @@
-var val = 0;
-
-do {
-  val++;
-  Sys.println(val);
-} while( val % 6 != 0);

Task/Loops-Do-while/PowerShell/loops-do-while.psh

@@ -1,5 +0,0 @@
-$n = 0
-do {
-    $n++
-    $n
-} while ($n % 6 -ne 0)

Task/Loops-Do-while/REBOL/loops-do-while.rebol

@@ -1,15 +0,0 @@
-REBOL [
-	Title: "Loop/While"
-	URL: http://rosettacode.org/wiki/Loop/Do_While
-]
-
-; REBOL doesn't have a specific 'do/while' construct, but 'until' can
-; be used to provide the same effect.
-
-value: 0
-until [
-	value: value + 1
-	print value
-
-	0 = mod value 6
-]