Data update

Task/Loops-Continue/Ada/loops-continue-1.ada

@@ -1,15 +0,0 @@
-with Ada.Text_IO;
-use Ada.Text_IO;
-
-procedure Loop_Continue is
-begin
-        for I in 1..10 loop
-                Put (Integer'Image(I));
-                if I = 5 or I = 10 then
-                        New_Line;
-                        goto Continue;
-                end if;
-                Put (",");
-                <<Continue>>  --Ada 2012 no longer requires a statement after the label
-        end loop;
-end Loop_Continue;

Task/Loops-Continue/Ada/loops-continue-2.ada

@@ -1,18 +0,0 @@
-with Ada.Text_IO;
-use Ada.Text_IO;
-
-procedure Loop_Continue is
-begin
-        Print_All:
-        for I in 1 .. 10 loop
-                Print_Element: loop
-                        Put (Integer'Image(I));
-                        if I = 5 or I = 10 then
-                                New_Line;
-                                exit Print_Element;
-                        end if;
-                        Put (",");
-                exit Print_Element;
-                end loop Print_Element;
-        end loop Print_All;
-end Loop_Continue;

Task/Loops-Continue/COBOL/loops-continue.cobol

@@ -1,21 +0,0 @@
-       IDENTIFICATION DIVISION.
-       PROGRAM-ID. loop-continue.
-
-       DATA DIVISION.
-       WORKING-STORAGE SECTION.
-       01  i PIC 99.
-
-       PROCEDURE DIVISION.
-           PERFORM VARYING i FROM 1 BY 1 UNTIL 10 < i
-               DISPLAY i WITH NO ADVANCING
-
-               IF FUNCTION MOD(i, 5) = 0
-                   DISPLAY SPACE
-                   EXIT PERFORM CYCLE
-               END-IF
-
-               DISPLAY ", " WITH NO ADVANCING
-           END-PERFORM
-
-           GOBACK
-           .

Task/Loops-Continue/Chapel/loops-continue.chapel

@@ -1,8 +0,0 @@
-for i in 1..10 {
-        write(i);
-        if i % 5 == 0 then {
-                writeln();
-                continue;
-        }
-        write(", ");
-}

Task/Loops-Continue/Euphoria/loops-continue-1.ex

@@ -1,11 +0,0 @@
-include std\console.e --only for any_key to make running command window easier on windows
-
-for i = 1 to 10 do
-    if remainder(i,5) = 0 then
-        printf(1, "%d\n", i)
-        else
-            printf(1,"%d, ", i)
-            continue
-    end if
-end for
-any_key()

Task/Loops-Continue/Euphoria/loops-continue-2.ex

@@ -1,18 +0,0 @@
-include std\console.e --only for any_key to make running command window easier on windows
-
-for i = 1 to 10 do
-    if remainder(i,5) = 0 then
-        switch i do
-            case 10 then
-                printf(1,"%d ",i)
-                break --new to euphoria 4.0.0+
-            case else
-                printf(1,"%d\n", i)
-        end switch
-
-        else
-            printf(1,"%d, ", i)
-            continue --new to euphoria 4.0.0+
-    end if
-end for
-any_key()

Task/Loops-Continue/Haxe/loops-continue.haxe

@@ -1,8 +0,0 @@
-for (i in 1...11) {
-  Sys.print(i);
-  if (i % 5 == 0) {
-    Sys.print('\n');
-    continue;
-  }
-  Sys.print(', ');
-}

Task/Loops-Continue/PowerShell/loops-continue.psh

@@ -1,8 +0,0 @@
-for ($i = 1; $i -le 10; $i++) {
-    Write-Host -NoNewline $i
-    if ($i % 5 -eq 0) {
-        Write-Host
-        continue
-    }
-    Write-Host -NoNewline ", "
-}

Task/Loops-Continue/REBOL/loops-continue-1.rebol

@@ -1,20 +0,0 @@
-REBOL [
-	Title: "Loop/Continue"
-	URL: http://rosettacode.org/wiki/Loop/Continue
-]
-
-; REBOL2 does not provide a 'continue' word for loop constructs,
-; however, you may not even miss it:
-
-print "One liner (compare to ALGOL 68 solution):"
-repeat i 10 [prin rejoin [i  either 0 = mod i 5 [crlf][", "]]]
-
-print [crlf "Port of ADA solution:"]
-for i 1 10 1 [
-	prin i
-	either 0 = mod i 5 [
-		prin newline
-	][
-		prin ", "
-	]
-]

Task/Loops-Continue/REBOL/loops-continue-2.rebol

@@ -1,8 +0,0 @@
-repeat i 10 [
-    prin i
-    if zero? i % 5 [
-        prin newline
-        continue
-    ]
-    prin ", "
-]