Data update

Task/Loops-N-plus-one-half/Ada/loops-n-plus-one-half.ada

@@ -1,11 +0,0 @@
-with Ada.Text_IO;
-
-procedure LoopsAndHalf is
-begin
-  for i in 1 .. 10 loop
-    Ada.Text_IO.put (i'Img);
-    exit when i = 10;
-    Ada.Text_IO.put (",");
-  end loop;
-  Ada.Text_IO.new_line;
-end LoopsAndHalf;

Task/Loops-N-plus-one-half/Arturo/loops-n-plus-one-half.arturo

@@ -1 +1 @@
-print join.with:", " map 1..10 => [to :string]
+print join.with:", " map 1..10 => [to :string &]

Task/Loops-N-plus-one-half/AutoIt/loops-n-plus-one-half.autoit

@@ -1,26 +0,0 @@
-#cs ----------------------------------------------------------------------------
-
- AutoIt Version: 3.3.8.1
- Author:         Alexander Alvonellos
-
- Script Function:
-	Output a comma separated list from 1 to 10, and on the tenth iteration of the
-	output loop, only perform half of the loop.
-
-#ce ----------------------------------------------------------------------------
-
-Func doLoopIterative()
-		Dim $list = ""
-		For $i = 1 To 10 Step 1
-			$list = $list & $i
-			If($i = 10) Then ExitLoop
-			$list = $list & ", "
-		Next
-		return $list & @CRLF
-EndFunc
-
-Func main()
-	ConsoleWrite(doLoopIterative())
-EndFunc
-
-main()

Task/Loops-N-plus-one-half/COBOL/loops-n-plus-one-half-1.cobol

@@ -1,27 +0,0 @@
-       IDENTIFICATION DIVISION.
-       PROGRAM-ID. Loop-N-And-Half.
-
-       DATA DIVISION.
-       WORKING-STORAGE SECTION.
-       01  I    PIC 99.
-       01  List PIC X(45).
-
-       PROCEDURE DIVISION.
-           PERFORM FOREVER
-               *> The list to display must be built up because using
-               *> DISPLAY adds an endline at the end automatically.
-               STRING FUNCTION TRIM(List) " "  I  INTO List
-
-               IF I = 10
-                   EXIT PERFORM
-               END-IF
-
-               STRING FUNCTION TRIM(List) "," INTO List
-
-               ADD 1 TO I
-           END-PERFORM
-
-           DISPLAY List
-
-           GOBACK
-           .

Task/Loops-N-plus-one-half/COBOL/loops-n-plus-one-half-2.cobol

@@ -1,18 +0,0 @@
-IDENTIFICATION DIVISION.
-PROGRAM-ID. LOOP-1p5-NOADV.
-DATA DIVISION.
-WORKING-STORAGE SECTION.
-01  I    PIC 99 VALUE 1.
-01	IDISP	PIC Z9.
-PROCEDURE DIVISION.
-	PERFORM FOREVER
-		MOVE I TO IDISP
-		DISPLAY FUNCTION TRIM(IDISP) WITH NO ADVANCING
-		IF I = 10
-			EXIT PERFORM
-		END-IF
-		DISPLAY ", " WITH NO ADVANCING
-		ADD 1 TO I
-	END-PERFORM.
-	STOP RUN.
-	END-PROGRAM.

Task/Loops-N-plus-one-half/COBOL/loops-n-plus-one-half-3.cobol

@@ -1,18 +0,0 @@
-IDENTIFICATION DIVISION.
-PROGRAM-ID. LOOP-1p5-NOADV-GOTO.
-DATA DIVISION.
-WORKING-STORAGE SECTION.
-01  I	PIC 99	VALUE 1.
-	88	END-LIST	VALUE 10.
-01	I-OUT	PIC Z9.
-PROCEDURE DIVISION.
-01-LOOP.
-	MOVE I TO I-OUT.
-	DISPLAY FUNCTION TRIM(I-OUT) WITH NO ADVANCING.
-	IF END-LIST GO TO 02-DONE.
-	DISPLAY ", " WITH NO ADVANCING.
-	ADD 1 TO I.
-	GO TO 01-LOOP.
-02-DONE.
-	STOP RUN.
-	END-PROGRAM.

Task/Loops-N-plus-one-half/COBOL/loops-n-plus-one-half-4.cobol

@@ -1,17 +0,0 @@
-IDENTIFICATION DIVISION.
-PROGRAM-ID. LOOP-1p5-NOADV-VARY.
-DATA DIVISION.
-WORKING-STORAGE SECTION.
-01  I    	PIC 99  VALUE 1.
-	88	END-LIST	VALUE 10.
-01	I-OUT	PIC Z9.
-PROCEDURE DIVISION.
-	PERFORM WITH TEST AFTER VARYING I FROM 1 BY 1 UNTIL END-LIST
-		MOVE I TO I-OUT
-		DISPLAY FUNCTION TRIM(I-OUT) WITH NO ADVANCING
-		IF NOT END-LIST
-			DISPLAY ", " WITH NO ADVANCING
-		END-IF
-	END-PERFORM.
-	STOP RUN.
-	END-PROGRAM.

Task/Loops-N-plus-one-half/Chapel/loops-n-plus-one-half.chapel

@@ -1,2 +0,0 @@
-for i in 1..10 do
-        write(i, if i % 10 > 0 then ", " else "\n")

Task/Loops-N-plus-one-half/Euphoria/loops-n-plus-one-half.ex

@@ -1,6 +0,0 @@
-for i = 1 to 10 do
-    printf(1, "%g", {i})
-    if i < 10 then
-        puts(1, ", ")
-    end if
-end for

Task/Loops-N-plus-one-half/Haxe/loops-n-plus-one-half.haxe

@@ -1,2 +0,0 @@
-for (i in 1...11)
-  Sys.print('$i${i == 10 ? '\n' : ', '}');

Task/Loops-N-plus-one-half/PowerShell/loops-n-plus-one-half-1.psh

@@ -1,8 +0,0 @@
-for ($i = 1; $i -le 10; $i++) {
-    Write-Host -NoNewLine $i
-    if ($i -eq 10) {
-        Write-Host
-        break
-    }
-    Write-Host -NoNewLine ", "
-}

Task/Loops-N-plus-one-half/PowerShell/loops-n-plus-one-half-2.psh

@@ -1,5 +0,0 @@
-switch (1..10) {
-    { $true }     { Write-Host -NoNewLine $_ }
-    { $_ -lt 10 } { Write-Host -NoNewLine ", " }
-    { $_ -eq 10 } { Write-Host }
-}

Task/Loops-N-plus-one-half/REBOL/loops-n-plus-one-half.rebol

@@ -1,11 +0,0 @@
-REBOL [
-    Title: "Loop Plus Half"
-    URL: http://rosettacode.org/wiki/Loop/n_plus_one_half
-]
-
-repeat i 10 [
-	prin i
-	if 10 = i [break]
-	prin ", "
-]
-print ""