Data update

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

@@ -0,0 +1,11 @@
+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/AppleScript/loops-n-plus-one-half-1.applescript

@@ -0,0 +1,6 @@
+set AppleScript's text item delimiters to ", "
+set a to {}
+repeat with n from 1 to 10
+	set a to a & n
+end repeat
+a as text

Task/Loops-N-plus-one-half/AppleScript/loops-n-plus-one-half-2.applescript

@@ -0,0 +1,7 @@
+set s to ""
+repeat with n from 1 to 10
+	set s to s & n
+	if n = 10 then exit repeat
+	set s to s & ", "
+end repeat
+s

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

@@ -0,0 +1,26 @@
+#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.cob

@@ -0,0 +1,27 @@
+       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.cob

@@ -0,0 +1,18 @@
+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.cob

@@ -0,0 +1,18 @@
+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.cob

@@ -0,0 +1,17 @@
+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.chpl

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

Task/Loops-N-plus-one-half/EMal/loops-n-plus-one-half.emal

@@ -1,7 +1,7 @@
-int LAST_ITERATION = 10
-for int i = 1; i <= LAST_ITERATION ; ++i
+int LAST_ITERATION ← 10
+for int i ← 1; i ≤ LAST_ITERATION ; ++i
   write(i)
-  if i == LAST_ITERATION do break end
+  if i æ LAST_ITERATION do break end
   write(", ")
 end
 writeLine()

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

@@ -0,0 +1,6 @@
+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.hx

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

Task/Loops-N-plus-one-half/Jactl/loops-n-plus-one-half-1.jactl

@@ -0,0 +1,6 @@
+for (i = 0; ; i++) {
+  print i
+  break if i == 10
+  print ', '
+}
+println

Task/Loops-N-plus-one-half/Jactl/loops-n-plus-one-half-2.jactl

@@ -0,0 +1 @@
+println 11.join(', ')

Task/Loops-N-plus-one-half/LOLCODE/loops-n-plus-one-half.lol

@@ -0,0 +1,13 @@
+HAI 1.3
+
+IM IN YR NPLUSONEHALF UPPIN YR N
+    VISIBLE SUM OF N AN 1!
+    BOTH SAEM N AN 9, O RLY?
+        YA RLY
+            VISIBLE ""
+            GTFO
+        NO WAI, VISIBLE ", "!
+    OIC
+IM OUTTA YR NPLUSONEHALF
+
+KTHXBYE

Task/Loops-N-plus-one-half/Maxima/loops-n-plus-one-half.maxima

@@ -0,0 +1,4 @@
+for i from 1 thru 10 do(
+    sprint(i),
+    if i#10 then sprint(",")
+)$

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

@@ -0,0 +1,8 @@
+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.ps1

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

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

Task/Loops-N-plus-one-half/SIL/loops-n-plus-one-half.sil

@@ -0,0 +1,11 @@
+i = 1
+lbla
+printIntNoLine i
+i + 1
+x = i - 10
+if x break
+print ,
+x = i - 11
+x |
+if x a
+lblbreak