I'm working on modernizing Rosetta Code's infrastructure. Starting with communications. Please accept this time-limited open invite to RC's Slack.. --Michael Mol (talk) 20:59, 30 May 2020 (UTC)

# Loops/N plus one half

Loops/N plus one half
You are encouraged to solve this task according to the task description, using any language you may know.

Quite often one needs loops which, in the last iteration, execute only part of the loop body.

Goal

Demonstrate the best way to do this.

Write a loop which writes the comma-separated list

```1, 2, 3, 4, 5, 6, 7, 8, 9, 10
```

using separate output statements for the number and the comma from within the body of the loop.

## 11l

`L(i) 1..10   print(i, end' ‘’)   I !L.last_iteration      print(‘, ’, end' ‘’)`

## 360 Assembly

` *        Loops/N plus one half     13/08/2015LOOPHALF CSECT         USING  LOOPHALF,R12         LR     R12,R15BEGIN    LA     R3,MVC         SR     R5,R5         LA     R6,1         LA     R7,10LOOPI    BXH    R5,R6,ELOOPI       for i=1 to 10         XDECO  R5,XDEC         MVC    0(4,R3),XDEC+8         LA     R3,4(R3)         CH     R5,=H'10'         BNL    NEXTI         MVC    0(2,R3),=C', '         LA     R3,2(R3)NEXTI    B      LOOPI              next iELOOPI   XPRNT  MVC,80         XR     R15,R15         BR     R14MVC      DC     CL80' 'XDEC     DS     CL12         YREGS           END    LOOPHALF `
Output:
```   1,    2,    3,    4,    5,    6,    7,    8,    9,   10
```

## 8086 Assembly

Since the output of the last element is different than the rest, the easiest way to accomplish this is by "breaking out" of the loop with a comparison to 10.

`    .model small    .stack 1024     .data   ;no data needed     .code start:	mov ax,0000h		mov cx,0FFFFh	;this value doesn't matter as long as it's greater than decimal 10. repeatPrinting:	add ax,1 ;it was easier to start at zero and add here than to start at 1 and add after printing.	aaa	 ;ascii adjust for addition, corrects 0009h+1 from 000Ah to 0100h	call PrintBCD_IgnoreLeadingZeroes	cmp ax,0100h		;does AX = BCD 10?	je exitLoopEarly	;if so, we're done now. Don't finish the loop.	push ax		mov dl,","       ;print a comma		mov ah,02h		int 21h         		mov dl,20h	;print a blank space		mov ah,02h		int 21h	pop ax	loop repeatPrintingexitLoopEarly:	mov ax,4C00h	int 21h			;return to DOS PrintBCD_IgnoreLeadingZeroes:	push ax		cmp ah,0		jz skipLeadingZero			or ah,30h                      ;converts a binary-coded-decimal value to an ASCII numeral			push dx			push ax				mov al,ah				mov ah,0Eh				int 10h			;prints AL to screeen			pop ax			pop dxskipLeadingZero:		or al,30h		push dx		push ax			mov ah,0Eh			int 10h				;prints AL to screen		pop ax		pop dx	pop ax	ret        end start ;EOF`
Output:
```1, 2, 3, 4, 5, 6, 7, 8, 9, 10
```

## AArch64 Assembly

Works with: as version Raspberry Pi 3B version Buster 64 bits
` /* ARM assembly AARCH64 Raspberry PI 3B *//*  program loopnplusone64.s   */ /*******************************************//* Constantes file                         *//*******************************************//* for this file see task include a file in language AArch64 assembly*/.include "../includeConstantesARM64.inc"/*********************************//* Initialized data              *//*********************************/.dataszMessResult:      .asciz "@"             // message resultszMessComma:       .asciz ", "szCarriageReturn:  .asciz "\n"/*********************************//* UnInitialized data            *//*********************************/.bss sZoneConv:              .skip 24/*********************************//*  code section                 *//*********************************/.text.global main main:                                     // entry of program     mov x20,1                             // loop counter1:                                        // begin loop     mov x0,x20    ldr x1,qAdrsZoneConv                  // display value    bl conversion10                       // decimal conversion    ldr x0,qAdrszMessResult    ldr x1,qAdrsZoneConv                  // display value    bl strInsertAtCharInc                 // insert result at @ character    bl affichageMess                      // display message    ldr x0,qAdrszMessComma    bl affichageMess                      // display comma    add x20,x20,1                             // increment counter    cmp x20,10                            // end ?    blt 1b                                // no ->begin loop one    mov x0,x20    ldr x1,qAdrsZoneConv                  // display value    bl conversion10                       // decimal conversion    ldr x0,qAdrszMessResult    ldr x1,qAdrsZoneConv                  // display value    bl strInsertAtCharInc                 // insert result at @ character    bl affichageMess                      // display message    ldr x0,qAdrszCarriageReturn    bl affichageMess                      // display return line 100:                                      // standard end of the program     mov x0,0                              // return code    mov x8,EXIT                           // request to exit program    svc 0                                 // perform the system call qAdrsZoneConv:            .quad sZoneConvqAdrszMessResult:         .quad szMessResultqAdrszMessComma:          .quad szMessCommaqAdrszCarriageReturn:     .quad szCarriageReturn /********************************************************//*        File Include fonctions                        *//********************************************************//* for this file see task include a file in language AArch64 assembly */.include "../includeARM64.inc" `
Output:
```1, 2, 3, 4, 5, 6, 7, 8, 9, 10
```

## ACL2

ACL2 does not have loops, but this is close:

`(defun print-list (xs)   (progn\$ (cw "~x0" (first xs))           (if (endp (rest xs))               (cw (coerce '(#\Newline) 'string))               (progn\$ (cw ", ")                       (print-list (rest xs))))))`

`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;`

## Aime

`integer i; i = 0;while (1) {    i += 1;    o_integer(i);    if (i == 10) {        break;    }    o_text(", ");}o_text("\n");`

## ALGOL 60

Works with: ALGOL 60 version OS/360
`'BEGIN'  'COMMENT' Loops N plus one half - Algol60 - 20/06/2018;  'INTEGER' I;  'FOR' I:=1 'STEP' 1 'UNTIL' 10 'DO' 'BEGIN'    OUTINTEGER(1,I);    'IF' I 'NOTEQUAL' 10 'THEN' OUTSTRING(1,'(', ')')  'END''END'`
Output:
```         +1  ,          +2  ,          +3  ,          +4  ,          +5  ,          +6  ,          +7  ,          +8  ,         +9  ,         +10
```

## ALGOL 68

Works with: ALGOL 68 version Standard - no extensions to language used
Works with: ALGOL 68G version Any - tested with release mk15-0.8b.fc9.i386
Works with: ELLA ALGOL 68 version Any (with appropriate job cards) - tested with release 1.8.8d.fc9.i386

There are three common ways of achieving n+½ loops:

 ` FOR i WHILE print(whole(i, -2));# WHILE # i < 10 DO print(", ")  OD;  print(new line)` `FOR i TO 10 DO print(whole(i, -2)); IF i < 10 THEN print(", ") FIOD; print(new line)` `FOR i DO print(whole(i, -2)); IF i >= 10 THEN GO TO done FI; print(", ") OD;done:print(new line)`

Output for all cases above:

``` 1,  2,  3,  4,  5,  6,  7,  8,  9, 10
```

## ALGOL W

`begin    integer i;    i := 0;    while        begin           i := i + 1;           writeon( i );           i < 10        end    do    begin       writeon( "," )    endend.`

## AmigaE

`PROC main()  DEF i  FOR i := 1 TO 10    WriteF('\d', i)    EXIT i = 10    WriteF(', ')  ENDFORENDPROC`

## ARM Assembly

Works with: as version Raspberry Pi
` /* ARM assembly Raspberry PI  *//*  program loopnplusone.s   */ /* Constantes    */.equ STDOUT, 1     @ Linux output console.equ EXIT,   1     @ Linux syscall.equ WRITE,  4     @ Linux syscall /*********************************//* Initialized data              *//*********************************/.dataszMessResult:      .ascii ""                    @ message resultsMessValeur:       .fill 11, 1, ' 'szMessComma:       .asciz ","szCarriageReturn:  .asciz "\n"/*********************************//* UnInitialized data            *//*********************************/.bss /*********************************//*  code section                 *//*********************************/.text.global main main:                                       @ entry of program     mov r4,#1                               @ loop counter1:                                          @ begin loop     mov r0,r4    ldr r1,iAdrsMessValeur                  @ display value    bl conversion10                         @ decimal conversion    ldr r0,iAdrszMessResult    bl affichageMess                        @ display message    ldr r0,iAdrszMessComma    bl affichageMess                        @ display comma    add r4,#1                               @ increment counter    cmp r4,#10                              @ end ?    blt 1b                                  @ no ->begin loop one    mov r0,r4    ldr r1,iAdrsMessValeur                  @ display value    bl conversion10                         @ decimal conversion    ldr r0,iAdrszMessResult    bl affichageMess                        @ display message    ldr r0,iAdrszCarriageReturn    bl affichageMess                        @ display return line 100:                                        @ standard end of the program     mov r0, #0                              @ return code    mov r7, #EXIT                           @ request to exit program    svc #0                                  @ perform the system call iAdrsMessValeur:          .int sMessValeuriAdrszMessResult:         .int szMessResultiAdrszMessComma:          .int szMessCommaiAdrszCarriageReturn:     .int szCarriageReturn/******************************************************************//*     display text with size calculation                         */ /******************************************************************//* r0 contains the address of the message */affichageMess:    push {r0,r1,r2,r7,lr}                   @ save  registres    mov r2,#0                               @ counter length 1:                                          @ loop length calculation     ldrb r1,[r0,r2]                         @ read octet start position + index     cmp r1,#0                               @ if 0 its over     addne r2,r2,#1                          @ else add 1 in the length     bne 1b                                  @ and loop                                             @ so here r2 contains the length of the message     mov r1,r0                               @ address message in r1     mov r0,#STDOUT                          @ code to write to the standard output Linux     mov r7, #WRITE                          @ code call system "write"     svc #0                                  @ call systeme     pop {r0,r1,r2,r7,lr}                    @ restaur registers */     bx lr                                   @ return  /******************************************************************//*     Converting a register to a decimal                                 */ /******************************************************************//* r0 contains value and r1 address area   */.equ LGZONECAL,   10conversion10:    push {r1-r4,lr}                         @ save registers     mov r3,r1    mov r2,#LGZONECAL 1:                                          @ start loop    bl divisionpar10                        @ r0 <- dividende. quotient ->r0 reste -> r1    add r1,#48                              @ digit    strb r1,[r3,r2]                         @ store digit on area    sub r2,#1                               @ previous position    cmp r0,#0                               @ stop if quotient = 0     bne 1b                                  @ else loop                                            @ end replaces digit in front of area    mov r4,#02:    ldrb r1,[r3,r2]     strb r1,[r3,r4]                         @ store in area begin    add r4,#1    add r2,#1                               @ previous position    cmp r2,#LGZONECAL                       @ end    ble 2b                                  @ loop    mov r1,#0                               @ final zero     strb r1,[r3,r4]100:    pop {r1-r4,lr}                          @ restaur registres     bx lr                                   @return/***************************************************//*   division par 10   signé                       *//* Thanks to http://thinkingeek.com/arm-assembler-raspberry-pi/*  /* and   http://www.hackersdelight.org/            *//***************************************************//* r0 dividende   *//* r0 quotient */	/* r1 remainder  */divisionpar10:	  /* r0 contains the argument to be divided by 10 */    push {r2-r4}                           @ save registers  */    mov r4,r0      mov r3,#0x6667                         @ r3 <- magic_number  lower    movt r3,#0x6666                        @ r3 <- magic_number  upper    smull r1, r2, r3, r0                   @ r1 <- Lower32Bits(r1*r0). r2 <- Upper32Bits(r1*r0)     mov r2, r2, ASR #2                     @ r2 <- r2 >> 2    mov r1, r0, LSR #31                    @ r1 <- r0 >> 31    add r0, r2, r1                         @ r0 <- r2 + r1     add r2,r0,r0, lsl #2                   @ r2 <- r0 * 5     sub r1,r4,r2, lsl #1                   @ r1 <- r4 - (r2 * 2)  = r4 - (r0 * 10)    pop {r2-r4}    bx lr                                  @ return  `

## ArnoldC

`IT'S SHOWTIMEHEY CHRISTMAS TREE nYOU SET US UP @NO PROBLEMOHEY CHRISTMAS TREE lessThanTenYOU SET US UP @NO PROBLEMOSTICK AROUND lessThanTenTALK TO THE HAND nGET TO THE CHOPPER lessThanTenHERE IS MY INVITATION 10LET OFF SOME STEAM BENNET nENOUGH TALKBECAUSE I'M GOING TO SAY PLEASE lessThanTenTALK TO THE HAND ", "YOU HAVE NO RESPECT FOR LOGICGET TO THE CHOPPER nHERE IS MY INVITATION nGET UP @NO PROBLEMOENOUGH TALKCHILLYOU HAVE BEEN TERMINATED`

## Arturo

`print join.with:", " map 1..10 => [to :string]`
Output:
`1, 2, 3, 4, 5, 6, 7, 8, 9, 10`

## AutoHotkey

`Loop, 9                ; loop 9 times{  output .= A_Index    ; append the index of the current loop to the output var  If (A_Index <> 9)    ; if it isn't the 9th iteration of the loop    output .= ", "     ; append ", " to the output var}MsgBox, %output%`

## AutoIt

`#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 & @CRLFEndFunc Func main()	ConsoleWrite(doLoopIterative())EndFunc main()`

## AWK

One-liner:

`\$ awk 'BEGIN{for(i=1;i<=10;i++){printf i;if(i<10)printf ", "};print}'`
Output:
`1, 2, 3, 4, 5, 6, 7, 8, 9, 10`

` BEGIN {  n=10  for(i=1;i<=n;i++) {    printf i;     if(i<n) printf ", "  }  print}`

Same output.

## Axe

`For(I,1,10) Disp I▶Dec If I=10  Disp i Else  Disp "," EndEnd`

## BASIC

Works with: FreeBASIC
Works with: RapidQ
`DIM i AS INTEGER FOR i=1 TO 10    PRINT i;    IF i=10 THEN EXIT FOR    PRINT ", ";NEXT i`

### Applesoft BASIC

Works with: Commodore BASIC

The ZX Spectrum Basic code will work just fine in Applesoft BASIC. The following is a more structured approach which avoids the use of GOTO.

`10 FOR I = 1 TO 1020     PRINT I;30     IF I < 10 THEN PRINT ", "; : NEXT I`

### IS-BASIC

`100 FOR I=1 TO 10110   PRINT I;120   IF I=10 THEN EXIT FOR130   PRINT ",";140 NEXT`

### Sinclair ZX81 BASIC

The ZX Spectrum Basic program will work on the ZX81. Depending on the context, the programmer's intention may be clearer if we do it all with `GOTO`s instead of a `FOR` loop.

`10 LET I=120 PRINT I;30 IF I=10 THEN GOTO 7040 PRINT ", ";50 LET I=I+160 GOTO 20`

### ZX Spectrum Basic

Works with: Applesoft BASIC
Works with: Commodore BASIC

To terminate a loop on the ZX Spectrum, set the loop counter to a value that will exit the loop, before jumping to the NEXT statement.

`10 FOR i=1 TO 1020 PRINT i;30 IF i=10 THEN GOTO 5040 PRINT ", ";50 NEXT i`

### Basic09

` PROCEDURE nAndAHalf   DIM i:INTEGER   FOR i:=1 TO 10      PRINT i;   EXITIF i=10 THEN ENDEXIT      PRINT ", ";   NEXT i   PRINT `

### BASIC256

`for i = 1 to 10	print i;	if i < 10 then print ", ";next i end`

### BBC BASIC

`      FOR i% = 1 TO 10        PRINT ; i% ;        IF i% <> 10 PRINT ", ";      NEXT      PRINT`

## bc

Works with: GNU bc

The `print` extension is necessary to get the required output.

`while (1) {    print ++i    if (i == 10) {        print "\n"         break    }    print ", "}`

## Befunge

`1+>::.9`#@_" ,",,`

This code is a good answer. However, most Befunge implementations print a " " after using . (output number), so this program prints "1 , 2 , 3 ..." with extra spaces. A bypass for this is possible, by adding 48 and printing the ascii character, but does not work with 10::

`1+>::68*+,8`#v_" ,",,  @,,,,", 10"<`

## Bracmat

`  1:?i&   whl  ' ( put\$!i    & !i+1:~>10:?i    & put\$", "    )`

## C

Translation of: C++
`#include <stdio.h> int main(){  int i;  for (i = 1; i <= 10; i++) {    printf("%d", i);    printf(i == 10 ? "\n" : ", ");  }  return 0;}`

## C#

`using System; class Program{    static void Main(string[] args)    {        for (int i = 1; ; i++)        {            Console.Write(i);            if (i == 10) break;            Console.Write(", ");        }        Console.WriteLine();    }}`

## C++

`#include <iostream> int main(){   int i;  for (i = 1; i<=10 ; i++){    std::cout << i;    if (i < 10)     std::cout << ", ";  }  return 0;} `

## Chapel

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

## Clojure

` ; Functional version(apply str (interpose ", " (range 1 11))) ; Imperative version(loop [n 1]   (printf "%d" n)   (if (< n 10)       (do	(print ", ")	(recur (inc n))))) `

## COBOL

Works with: OpenCOBOL
`       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           .`

Free-form, 'List'-free version, using DISPLAY NO ADVANCING.

`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.`

Free-form, GO TO, 88-level. Paragraphs in PROCEDURE DIVISION.

`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.`

Using 'PERFORM VARYING'

`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.`

## CoffeeScript

` # Loop plus half.  This code shows how to break out of a loop early# on the last iteration.  For the contrived example, there are better# ways to generate a comma-separated list, of course.start = 1end = 10s = ''for i in [start..end]  # the top half of the loop executes every time  s += i  break if i == end  # the bottom half of the loop is skipped for the last value  s += ', 'console.log s `

## ColdFusion

With tags:

`<cfloop index = "i" from = "1" to = "10">  #i#  <cfif i EQ 10>    <cfbreak />  </cfif>  , </cfloop>`

With script:

`<cfscript>  for( i = 1; i <= 10; i++ ) //note: the ++ notation works only on version 8 up, otherwise use i=i+1  {    writeOutput( i );     if( i == 10 )    {      break;    }    writeOutput( ", " );  }</cfscript>`

## Common Lisp

` (loop for i from 1 below 10 do         (princ i) (princ ", ")        finally (princ i)) `

or

`(loop for i from 1 upto 10 do  (princ i)  (if (= i 10) (return))  (princ ", "))`

but for such simple tasks we can use format's powers:

` (format t "~{~a~^, ~}" (loop for i from 1 to 10 collect i)) `

### Using DO

` (do ((i 1 (incf i)))			; Initialize to 1 and increment on every loop    ((> i 10))				; Break condition  (princ i)				; Print the iteration number  (when (= i 10) (go end))		; Use the implicit tagbody and go to end tag when reach the last iteration  (princ ", ")				; Printing the comma is jumped by the go statement end)					; The tag `

or

` (do	                                ; Not exactly separate statements for the number and the comma ((i 1 (incf i)))	                ; Initialize to 1 and increment on every loop ((> i 9) (princ i))                    ; Break condition when iteration is the last number, print it  (princ i)	                        ; Print number statement  (princ ", "))	                        ; Print comma statement `
Output:
```1, 2, 3, 4, 5, 6, 7, 8, 9, 10
```

## Cowgol

`include "cowgol.coh"; var i: uint8 := 1;loop        print_i8(i);    if i == 10 then break; end if;    print(", ");    i := i + 1;end loop;print_nl();`
Output:
`1, 2, 3, 4, 5, 6, 7, 8, 9, 10`

## D

### Iterative

`import std.stdio; void main() {    for (int i = 1; ; i++) {        write(i);        if (i >= 10)            break;        write(", ");    }     writeln();}`
Output:
`1, 2, 3, 4, 5, 6, 7, 8, 9, 10`

### Functional Style

`void main() {    import std.stdio, std.range, std.algorithm, std.conv, std.string;    iota(1, 11).map!text.join(", ").writeln;     // A simpler solution:    writefln("%(%d, %)", iota(1, 11));}`
Output:
```1, 2, 3, 4, 5, 6, 7, 8, 9, 10
1, 2, 3, 4, 5, 6, 7, 8, 9, 10```

## Dart

`String loopPlusHalf(start, end) {  var result = '';  for(int i = start; i <= end; i++) {    result += '\$i';    if(i == end) {      break;    }    result += ', ';  }  return result;} void main() {  print(loopPlusHalf(1, 10));}`

## Delphi

`program LoopsNPlusOneHalf; {\$APPTYPE CONSOLE} var  i: integer;const  MAXVAL = 10;begin  for i := 1 to MAXVAL do  begin    Write(i);    if i < MAXVAL then      Write(', ');  end;  Writeln;end.`

## DWScript

`var i : Integer; for i := 1 to 10 do begin   Print(i);   if i < 10 then      Print(', ');end;`

## E

A typical loop+break solution:

`var i := 1while (true) {    print(i)    if (i >= 10) { break }    print(", ")    i += 1}`

Using the loop primitive in a semi-functional style:

`var i := 1__loop(fn {    print(i)    if (i >= 10) {        false    } else {        print(", ")        i += 1        true     }})`

## EchoLisp

` (string-delimiter "") (for ((i (in-range 1 11))) (write i) #:break (= i 10) (write ",")) → 1 , 2 , 3 , 4 , 5 , 6 , 7 , 8 , 9 , 10  ;; or (string-join (range 1 11) ",")   → 1,2,3,4,5,6,7,8,9,10 `

## EDSAC order code

`[ N and a half times loop  =======================   A program for the EDSAC   Works with Initial Orders 2 ]         T56K        GK         [email protected][  1 ]  [email protected]        [email protected]        [email protected]        [email protected]        [email protected]        [email protected]         [email protected]        [email protected]        [email protected]        [email protected] [ 11 ]  [email protected]        [email protected]        [email protected]        [email protected]        ZF [ 16 ]  #F[ 17 ]  PF[ 18 ]  QF[ 19 ]  NF[ 20 ]  !F[ 21 ]  @F[ 22 ]  &F[ 23 ]  JF[ 24 ]  PF[ 25 ]  PF         EZPF`
Output:
`1, 2, 3, 4, 5, 6, 7, 8, 9, 10`

## Elixir

`defmodule Loops do  def n_plus_one_half([]), do: IO.puts ""  def n_plus_one_half([x]), do: IO.puts x  def n_plus_one_half([h|t]) do    IO.write "#{h}, "    n_plus_one_half(t)  endend Enum.to_list(1..10) |> Loops.n_plus_one_half`

## Erlang

`%% Implemented by Arjun Sunel-module(loop).-export([main/0]). main() ->	for_loop(1).      for_loop(N) -> 	if N < 10 ->		io:format("~p, ",[N] ),		for_loop(N+1);	true ->		io:format("~p\n",[N])	end.	 `

## ERRE

` FOR I=1 TO 10 DO    PRINT(I;)    EXIT IF I=10    PRINT(", ";)END FOR `

## Euphoria

` for i = 1 to 10 do    printf(1, "%g", {i})    if i < 10 then        puts(1, ", ")    end ifend for `

While, yes, use of `exit` would also work here, it is slightly faster to code it this way, if only the last iteration has something different.

## F#

Functional version that works for lists of any length

` let rec print (lst : int list) =    match lst with    | hd :: [] ->        printf "%i " hd    | hd :: tl ->        printf "%i, " hd        print tl    | [] -> printf "\n" print [1..10]  `

## Factor

`: print-comma-list ( n -- )    [ [1,b] ] keep '[        [ number>string write ]        [ _ = [ ", " write ] unless ] bi    ] each nl ;`

## Falcon

`for value = 1 to 10    formiddle         >> value        >> ", "    end    forlast: > valueend`
Output:
```prompt\$ falcon forto.fal
1, 2, 3, 4, 5, 6, 7, 8, 9, 10```

## FALSE

`1[\$9>~][\$.", "1+]#.`

## Fantom

` class Main{  public static Void main ()  {    for (Int i := 1; i <= 10; i++)    {      Env.cur.out.writeObj (i)      if (i == 10) break      Env.cur.out.writeChars (", ")    }    Env.cur.out.printLine ("")  }} `

## FBSL

` #APPTYPE CONSOLEFOR DIM i = 1 TO 10    PRINT i;    IF i < 10 THEN PRINT ", ";NEXTPAUSE`

Output

```1, 2, 3, 4, 5, 6, 7, 8, 9, 10
Press any key to continue...```

## Forth

`: comma-list ( n -- )  dup 1 ?do  i 1 .r ." , " loop  . ;`
`: comma-list ( n -- )  dup 1+ 1 do    i 1 .r    dup i = if leave then   \ or DROP UNLOOP EXIT to exit loop and the function    [char] , emit space  loop drop ;`
`: comma-list ( n -- )  1  begin  dup 1 .r         2dup <>  while  ." , " 1+  repeat 2drop ;`

## Fortran

Works with: FORTRAN version IV and later
`C     Loops N plus one half - Fortran IV (1964)      INTEGER I      WRITE(6,301) (I,I=1,10)  301 FORMAT((I3,','))      END`
Works with: Fortran version 77 and later
`C     WARNING: This program is not valid ANSI FORTRAN 77 code. It usesC     two nonstandard characters on the lines labelled 5001 and 5002.C     Many F77 compilers should be okay with it, but it is *not*C     standard.      PROGRAM LOOPPLUSONEHALF        INTEGER I, TENC       I'm setting a parameter to distinguish from the label 10.        PARAMETER (TEN = 10)         DO 10 I = 1, TENC         Write the number only.          WRITE (*,5001) I C         If we are on the last one, stop here. This will make this testC         every iteration, which can slow your program down a little. IfC         you want to speed this up at the cost of your own convenience,C         you could loop only to nine, and handle ten on its own afterC         the loop is finished. If you don't care, power to you.          IF (I .EQ. TEN) GOTO 10 C         Append a comma to the number.          WRITE (*,5002) ','   10   CONTINUE C       Always finish with a newline. This programmer hates it when aC       program does not end its output with a newline.        WRITE (*,5000) ''        STOP  5000   FORMAT (A) C       Standard FORTRAN 77 is completely incapable of completing aC       WRITE statement without printing a newline. This program wouldC       be much more difficult (i.e. impossible) to write in the ANSIC       standard, without cheating and saying something like:CC           WRITE (*,*) '1, 2, 3, 4, 5, 6, 7, 8, 9, 10'CC       The dollar sign at the end of the format is a nonstandardC       character. It tells the compiler not to print a newline. If youC       are actually using FORTRAN 77, you should figure out what yourC       particular compiler accepts. If you are actually using FortranC       90 or later, you should replace this line with the commentedC       line that follows it. 5001   FORMAT (I3, \$) 5002   FORMAT (A, \$)C5001   FORMAT (T3, ADVANCE='NO')C5001   FORMAT (A, ADVANCE='NO')      END`
Works with: Fortran version 90 and later
`i = 1do  write(*, '(I0)', advance='no') i  if ( i == 10 ) exit  write(*, '(A)', advance='no') ', '  i = i + 1end dowrite(*,*)`

## FreeBASIC

`' FB 1.05.0 Win64 For i As Integer = 1 To 10  Print Str(i);  If i < 10 Then Print ", ";Next Print  Sleep`
Output:
```1, 2, 3, 4, 5, 6, 7, 8, 9, 10
```

### Alternative

This makes the important point that for many loops of this kind the partial iteration could easily be the first one.

`dim as string cm = ""for i as ubyte = 1 to 10    print cm;str(i);    cm = ", "next i`

## FutureBasic

` include "ConsoleWindow" dim as long i, num : num = 10 for i = 1 to numprint i;if i = num then exit forprint ",";next i `

Output:

``` 1, 2, 3, 4, 5, 6, 7, 8, 9, 10
```

## Gambas

`Public Sub Main()Dim siLoop As Short For siLoop = 1 To 10  Print siLoop;  If siLoop <> 10 Then Print ", ";Next End`

Output:

```1, 2, 3, 4, 5, 6, 7, 8, 9, 10
```

## GAP

`n := 10;for i in [1 .. n] do    Print(i);    if i < n then        Print(", ");    else        Print("\n");    fi;od;`

## GML

`str = ""for(i = 1; i <= 10; i += 1)    {    str += string(i)    if(i != 10)        str += ", "    }show_message(str)`

## Go

`package main import "fmt" func main() {    for i := 1; ; i++ {        fmt.Print(i)        if i == 10 {            fmt.Println()            break        }        fmt.Print(", ")    }}`

## Gosu

`var out = System.outfor(i in 1..10) {  if(i > 1) out.print(", ")  out.print(i)}`

## Groovy

Solution:

`for(i in (1..10)) {    print i    if (i == 10) break    print ', '}`

Output:

`1, 2, 3, 4, 5, 6, 7, 8, 9, 10`

## GW-BASIC

`10 C\$ = ""20 FOR I = 1 TO 1030 PRINT C\$;STR\$(I);40 C\$=", "50 NEXT I`

`main :: IO ()main = forM_ [1 .. 10] \$ \n -> do            putStr \$ show n            putStr \$ if n == 10 then "\n" else ", "`

You can also use intersperse :: a -> [a] -> [a]

`intercalate ", " (map show [1..10])`

## Haxe

`for (i in 1...11)  Sys.print('\$i\${i == 10 ? '\n' : ', '}');`

## hexiscript

`for let i 1; i <= 10; i++  print i  if i = 10; break; endif  print ", "endforprintln ""`

## HicEst

`DO i = 1, 10    WRITE(APPend) i    IF(i < 10) WRITE(APPend) ", "ENDDO`

## HolyC

`U8 i, max = 10;for (i = 1; i <= max; i++) {  Print("%d", i);  if (i == max) break;  Print(", ");}Print("\n");`

## Icon and Unicon

`procedure main()every writes(i := 1 to 10) do    if i = 10 then break write()   else writes(", ")end`

The above can be written more succinctly as:

`every writes(c := "",1 to 10) do c := "," `

## IDL

Nobody would ever use a loop in IDL to output a vector of numbers - the requisite output would be generated something like this:

`print,indgen(10)+1,format='(10(i,:,","))'`

However if a loop had to be used it could be done like this:

`for i=1,10 do begin print,i,format='(\$,i)' if i lt 10 then print,",",format='(\$,a)'endfor`

(which merely suppresses the printing of the comma in the last iteration);

or like this:

`for i=1,10 do begin print,i,format='(\$,i)' if i eq 10 then break print,",",format='(\$,a)'end`

(which terminates the loop early if the last element is reached).

## J

`output=: verb define  buffer=: buffer,y) loopy=: verb define  buffer=: ''  for_n. 1+i.10 do.    output ":n    if. n<10 do.      output ', '    end.  end.  smoutput buffer)`

Example use:

`   loopy 01, 2, 3, 4, 5, 6, 7, 8, 9, 10`

That said, note that neither loops nor output statements are necessary:

`   ;}.,(', ' ; ":)&> 1+i.101, 2, 3, 4, 5, 6, 7, 8, 9, 10`

And, note also that this sort of data driven approach can also deal with more complex issues:

`   commaAnd=: ":&.> ;@,. [email protected]# {. (<;._1 '/ and /') ,~ (<', ') #~ #     commaAnd i.50, 1, 2, 3 and 4`

## Java

`public static void main(String[] args) {    for (int i = 1; ; i++) {        System.out.print(i);        if (i == 10)            break;        System.out.print(", ");    }    System.out.println();}`

## JavaScript

`function loop_plus_half(start, end) {    var str = '',        i;    for (i = start; i <= end; i += 1) {        str += i;        if (i === end) {          break;        }        str += ', ';    }    return str;} alert(loop_plus_half(1, 10));`

Alternatively, if we stand back for a moment from imperative assumptions about the nature and structure of computing tasks, it becomes clear that the problem of special transitional cases as a pattern terminates has no necessary connection with loops. (See the comments accompanying the ACL2, Haskell, IDL, J and R examples above and below, and see also some of the approaches taken in languages like Clojure and Scala.

If a JavaScript expression evaluates to an array [1 .. 10] of integers, for example, we can map that array directly to a comma-delimited string by using the Array.join() function, writing something like:

`function range(m, n) {  return Array.apply(null, Array(n - m + 1)).map(    function (x, i) {      return m + i;    }  );} console.log(  range(1, 10).join(', '));`

Output:

`1, 2, 3, 4, 5, 6, 7, 8, 9, 10`

Otherwise, any special transitional case at the end of a pattern can be handled by defining conditional values for one or more sub-expressions:

`function range(m, n) {  return Array.apply(null, Array(n - m + 1)).map(function (x, i) {    return m + i;  });} console.log(  (function (nFrom, nTo) {    var iLast = nTo - 1;     return range(nFrom, nTo).reduce(      function (accumulator, n, i) {        return accumulator +          n.toString() +           (i < iLast ? ', ' : ''); // conditional sub-expression       }, ''    )  })(1, 10));`

Output:

`1, 2, 3, 4, 5, 6, 7, 8, 9, 10`

#### Otherwise

`var s=1, e=10for (var i=s; i<=e; i+=1) {	document.write( i==s ? '' : ', ', i )}`

or

`var s=1, e=10for (;; s+=1) {	document.write( s )	if (s==e) break	document.write( ', ' )}`
Output:
```1, 2, 3, 4, 5, 6, 7, 8, 9, 10
```

## jq

In jq, it is idiomatic to view a range of integers with boundaries m and n as [m, n), i.e. including m but excluding n.

`One approach is to construct the answer incrementally:def loop_plus_half(m;n):  if m<n then reduce range(m+1;n) as \$i (m|tostring; . +  ", " + (\$i|tostring))  else empty  end; # An alternative that is shorter and perhaps closer to the task description because it uses range(m;n) is as follows:def loop_plus_half2(m;n):  [range(m;n) | if . == m then . else  ", ", . end | tostring] | join("");`
Output:
```loop_plus_half2(1;11)
# "1, 2, 3, 4, 5, 6, 7, 8, 9, 10"
```

## Julia

The short-circuiting && is idiomatic to Julia - the second expression will only be evaluated if the first one is true.

` for i = 1:10  print(i)  i == 10 && break  print(", ")end `

Output:

` 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 `

## K

`   p:{`0:\$x} / output   i:1;do[10;p[i];p[:[i<10;", "]];i+:1];[email protected]"\n"1, 2, 3, 4, 5, 6, 7, 8, 9, 10`

Alternative solutions:

`   10 {[email protected];[email protected]:[x<10;", ";"\n"];x+1}\1;   {[email protected];[email protected]:[x<10;", ";"\n"];x+1}'1+!10; /variant`

## Kotlin

`// version 1.0.6 fun main(args: Array<String>) {    for (i in 1 .. 10) {        print(i)        if (i < 10) print(", ")    }}`
Output:
```1, 2, 3, 4, 5, 6, 7, 8, 9, 10
```

## LabVIEW

This image is a VI Snippet, an executable image of LabVIEW code. The LabVIEW version is shown on the top-right hand corner. You can download it, then drag-and-drop it onto the LabVIEW block diagram from a file browser, and it will appear as runnable, editable code. ## Lambdatalk

` {def loops_N_plus_one_half {lambda {:i :n}  {if {> :i :n}   then (end of loop with a dot)   else {if {= :i 6} then {br}:i else :i}{if {= :i :n} then . else ,}        {loops_N_plus_one_half {+ :i 1} :n}}}}-> loops_N_plus_one_half {loops_N_plus_one_half 0 10}-> 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10. (end of loop with a dot) `

## Lang5

`: ,  dup ", " 2 compress "" join ;1 do dup 10 != if dup , . 1 + else . break then loop`

Word: Loops/For#Lang5

`: 2string  2 compress "" join ;: ,  dup 10 != if ", " 2string then ;1 10 "dup , . 1+" times`

## Lasso

`local(out) = ''loop(10) => {    #out->append(loop_count)    loop_count == 10 ? loop_abort    #out->append(', ')}#out`

## Lhogho

`type` doesn't output a newline. The `print` outputs one.

`for "i [1 10] [	type :i	if :i < 10 	[		type "|, |	]]print`

A more list-y way of doing it

`to join :lst :sep	if list? :lst	[		ifelse count :lst > 1		[			op (word first :lst :sep joinWith butfirst :lst :sep)		]		[			op (word last :lst)		]	]	op :lstend make "aList [1 2 3 4 5 6 7 8 9 10]print join :aList "|, |`

## Liberty BASIC

Keyword 'exit' allows the termination.

` for i =1 to 10    print i;    if i =10 then exit for    print ", ";next iend `

## Lisaac

`Section Header + name := LOOP_AND_HALF; Section Public - main <- (  + i : INTEGER;   i := 1;  {    i.print;    i = 10  }.until_do {    ", ".print;    i := i + 1;  };  '\n'.print;);`

## LiveCode

`repeat with n = 1 to 10    put n after loopn    if n is not 10 then put comma after loopnend repeatput loopn`

## Logo

`to comma.list :n  repeat :n-1 [type repcount type "|, |]  print :nend comma.list 10`

## Lua

Translation of C:

`for i = 1, 10 do  io.write(i)  if i == 10 then break end  io.write", "end`

## M2000 Interpreter

` Module Checkit {      \\ old type loop      For i=1 to 10            Print i;            If i=10 Then Exit For            Print ", ";      Next i      Print      \\ fast type loop. Continue exit block, without breaking loop.      For i=1 to 10 {                  Print i;                  If i=10 Then Continue                  Print ", ";      }      Print      Print      i=0      {                  loop  \\ this mark block for loop, each time need to mark                  i++                  Print i;                  If i=10 Then Exit  ' so now we use exit to break loop                  Print ", ";            }      Print}Checkit `

## M4

`define(`break',   `define(`ulim',llim)')define(`for',   `ifelse(\$#,0,``\$0'',   `define(`ulim',\$3)`'define(`llim',\$2)`'ifelse(ifelse(\$3,`',1,         `eval(\$2<=\$3)'),1,   `pushdef(`\$1',\$2)\$4`'popdef(`\$1')\$0(`\$1',incr(\$2),ulim,`\$4')')')') for(`x',`1',`',   `x`'ifelse(x,10,`break',`, ')')`

## Make

`NEXT=`expr \$* + 1`MAX=10RES=1 all: 1-n; \$(MAX)-n:       @echo \$(RES) %-n:       @-make -f loop.mk \$(NEXT)-n MAX=\$(MAX) RES=\$(RES),\$(NEXT)`

Invoking it

```|make -f loop.mk MAX=10
1,2,3,4,5,6,7,8,9,10
```

## Maple

`> for i to 10 do printf( "%d%s", i, `if`( i = 10, "\n", ", " ) ) end:1, 2, 3, 4, 5, 6, 7, 8, 9, 10`

## Mathematica/Wolfram Language

`i = 1; s = "";While[True, s = s <> [email protected]; If[i == 10, Break[]]; s = s <> ","; i++; ]s`

## MATLAB / Octave

Vectorized form:

` 	printf('%i, ',1:9); printf('%i\n',10);`

Explicite loop:

`   for k=1:10,      printf('%i', k);    if k==10, break; end;      printf(', ');   end;    printf('\n');`

Output:

`  1, 2, 3, 4, 5, 6, 7, 8, 9, 10 `

## MAXScript

`for i in 1 to 10 do(    format "%" i    if i == 10 then exit    format "%" ", ")`

## Metafont

Since message append always a newline, we need building the output inside a string, and then we output it.

`last := 10;string s; s := "";for i = 1 upto last:  s := s & decimal i;  if i <> last: s := s & ", " fi;endformessage s;end`

## Microsoft Small Basic

`For i = 1 To 10  TextWindow.Write(i)  If i <> 10 Then    TextWindow.Write(", ")  EndIfEndFor TextWindow.WriteLine("")`

## min

min's `linrec` combinator is flexible enough to easily accomodate this task, due to taking a quotation to execute at the end of the loop (the second one).

`1 (dup 10 ==) 'puts! (print succ ", " print!) () linrec`

## Modula-3

`MODULE Loop EXPORTS Main; IMPORT IO, Fmt; VAR i := 1; BEGIN  LOOP    IO.Put(Fmt.Int(i));    IF i = 10 THEN EXIT; END;    IO.Put(", ");    i := i + 1;  END;  IO.Put("\n");END Loop.`

## MUMPS

`LOOPHALF NEW I FOR I=1:1:10 DO .WRITE I .IF I'=10 WRITE ", " QUIT ;Alternate NEW I FOR I=1:1:10 WRITE I WRITE:I'=10 ", " KILL I QUIT`
Output:
```USER>D LOOPHALF^ROSETTA
1, 2, 3, 4, 5, 6, 7, 8, 9, 10
USER>D LOOPHALF+7^ROSETTA
1, 2, 3, 4, 5, 6, 7, 8, 9, 10
```

## Nemerle

`foreach (i in [1 .. 10]){    Write(i);    unless (i == 10) Write(", ");}`

## NetRexx

`/* NetRexx *//* NetRexx */options replace format comments java crossref savelog symbols nobinary   say  say 'Loops/N plus one half'   rs = ''  istart = 1  iend   = 10  loop i_ = istart to iend    rs = rs || ' ' || i_    if i_ < iend then do      rs = rs','      end    end i_  say rs.strip()`

Output

```Loops/N plus one half
1, 2, 3, 4, 5, 6, 7, 8, 9, 10```

## NewLISP

`(for (i 0 10)  (print i)  (unless (= i 10)    (print ", ")))`

## Nim

`var s = ""for i in 1..10:  s.add \$i  if i == 10: break  s.add ", "echo s`
Output:
`1, 2, 3, 4, 5, 6, 7, 8, 9, 10`

## NS-HUBASIC

`10 FOR I=1 TO 1020 PRINT I;30 IF I=10 THEN GOTO 5040 PRINT ",";50 NEXT`

## Objeck

` bundle Default {  class Hello {    function : Main(args : String[]) ~ Nil {      for(i := 1; true; i += 1;) {        i->Print();        if(i = 10) {          break;        };        ", "->Print();      };      '\n'->Print();    }  }} `

## OCaml

`let last = 10 infor i = 1 to last do  print_int i;  if i <> last then    print_string ", ";done;print_newline();`
`let ints = [1; 2; 3; 4; 5; 6; 7; 8; 9; 10] inlet str_ints = List.map string_of_int ints inprint_endline (String.concat ", " str_ints);`

## Oforth

`: loopn| i |   10 loop: i [ i dup print 10 ifEq: [ break ] "," . ] printcr ;`

## Oz

Using a for-loop:

` for N in {List.number 1 10 1} break:Break do   {System.printInfo N}   if N == 10 then {Break} end   {System.printInfo ", "}end`

However, it seems more natural to use a left fold:

`declare  fun {CommaSep Xs}     case Xs of nil then nil     [] X|Xr then	{FoldL Xr 	 fun {\$ Z X} Z#", "#X end	 X}     end  endin  {System.showInfo {CommaSep {List.number 1 10 1}}}`

## Panda

Panda is stream based. To know if there is no more values you need to know it's the last. You can only do that if you get all the values. So this is functional style; We accumulate all the values from the stream. Then join them together as strings with a comma.

`array{{1..10}}.join(',')`

## PARI/GP

`n=0;while(1,  print1(n++);  if(n>9, break);  print1(", "));`

## Pascal

`program numlist(output); const MAXNUM: integer = 10;var  i: integer; begin  { loop 1: w/ if branching }  for i := 1 to MAXNUM do    begin      write(i);      if i <> MAXNUM then        write(', ')    end;  writeln;  { loop 2: w/o if branching }  for i := 1 to MAXNUM-1 do    write(i, ', ');  writeln(MAXNUM);end.`

## Peloton

`<@ FORLITLIT>10|<@ SAYPOSFOR>...</@><@ ABF>,</@></@>`

## Perl

`for my \$i(1..10) {    print \$i;    last if \$i == 10;    print ', ';}print "\n";`

In perl one would solve the task via `join`.

`print join(', ', 1..10), "\n";`

## Phix

```for i=1 to 10 do
printf(1,"%d",i)
if i=10 then exit end if
printf(1,", ")
end for
```

## PHP

`for (\$i = 1; \$i <= 11; \$i++) {    echo \$i;    if (\$i == 10)        break;    echo ', ';}echo "\n";`

## PicoLisp

`(for N 10   (prin N)   (T (= N 10))   (prin ", ") )`

## Pike

` int main(){   for(int i = 1; i <= 11; i++){      write(sprintf("%d",i));      if(i == 10){         break;      }      write(", ");   }   write("\n");}`

The most idiomatic way of inserting delimiters in Pike is the multiplication operator and it's symmetry with division of strings.

`> "1, 2, 3"/", ";Result: ({ "1", "2", "3" })> ({ "1", "2", "3" })*", ";Result: "1, 2, 3"`

So achieving the result of this task with the method more suited to Pike would be:

`array a = (array(string))enumerate(10, 1, 1);write(a * ", " + "\n");`

## PL/I

` do i = 1 to 10;   put edit (trim(i)) (a);   if i < 10 then put edit (', ') (a);end; `

## Plain English

`To run:Start up.Write the numbers up to 10 on the console.Wait for the escape key.Shut down. To write the numbers up to a number on the console:If a counter is past the number, exit.Convert the counter to a string.Write the string on the console without advancing.If the counter is less than the number, write ", " on the console without advancing.Repeat.`

## Pop11

`lvars i;for i from 1 to 10 do    printf(i, '%p');    quitif(i = 10);    printf(', ', '%p');endfor;printf('\n', '%p');`

## PowerShell

Translation of: C
`for (\$i = 1; \$i -le 10; \$i++) {    Write-Host -NoNewLine \$i    if (\$i -eq 10) {        Write-Host        break    }    Write-Host -NoNewLine ", "}`

An interesting alternative solution, although not strictly a loop, even though `switch` certainly loops over the given range.

`switch (1..10) {    { \$true }     { Write-Host -NoNewLine \$_ }    { \$_ -lt 10 } { Write-Host -NoNewLine ", " }    { \$_ -eq 10 } { Write-Host }}`

## Prolog

`example :-   between(1,10,Val), write(Val), Val<10, write(', '), fail.example.`
```?- example.
1, 2, 3, 4, 5, 6, 7, 8, 9, 10
true.```

## PureBasic

`x=1Repeat   Print(Str(x))  x+1  If x>10: Break: EndIf  Print(", ")ForEver`

## Python

The particular pattern and example chosen in the task description is recognised by the Python language and there are more idiomatic ways to achieve the result that don't even require an explicit conditional test such as:

`print ( ', '.join(str(i+1) for i in range(10)) )`

But the named pattern is shown by code such as the following:

`>>> from sys import stdout>>> write = stdout.write>>> n, i = 10, 1>>> while True:    write(i)    i += 1    if i > n:        break    write(', ')  1, 2, 3, 4, 5, 6, 7, 8, 9, 10>>>`

List comprehension one-liner

` [print(str(i+1) + ", ",end='') if i < 9 else print(i+1) for i in range(10)] `

## Quackery

`  10 times      [ i^ 1+ echo       i 0 = iff           conclude done       say ", " ]`
Output:
`1, 2, 3, 4, 5, 6, 7, 8, 9, 10`

## R

The natural way to solve this task in R is:

`paste(1:10, collapse=", ")`

The task specifies that we should use a loop however, so this more verbose code is needed.

`for(i in 1:10){   cat(i)   if(i==10)    {      cat("\n")      break   }   cat(", ")}`

## Racket

`#lang racket(for ((i (in-range 1 15)))  (display i)  #:break (= 10 i)  (display ", "))`

Gives the desired output.

## Raku

(formerly Perl 6)

`for 1 .. 10 {    .print;    last when 10;    print ', ';} print "\n";`

## REBOL

`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 ""`

## Relation

` set i = 1set result = ""while i <= 10set result = result . iif i < 10set result = result . ", "end ifset i = i + 1end whileecho result `

## REXX

### two CHAROUTs

`/*REXX program displays:                 1,2,3,4,5,6,7,8,9,10                           */      do j=1  to 10     call charout ,j                             /*write the  DO loop  index  (no LF).  */     if j<10  then call charout ,","             /*append a comma for one-digit numbers.*/     end   /*j*/                                                 /*stick a fork in it,  we're all done. */`

output

```1, 2, 3, 4, 5, 6, 7, 8, 9, 10
```

### one CHAROUT

`/*REXX program displays:                 1,2,3,4,5,6,7,8,9,10                           */      do j=1  for 10                              /*using   FOR   is faster than    TO.  */     call charout ,j || left(',',j<10)           /*display  J, maybe append a comma (,).*/     end   /*j*/                                                 /*stick a fork in it,  we're all done. */`

output

```1, 2, 3, 4, 5, 6, 7, 8, 9, 10
```

### version 3 if the number of items is not known

`list='aa bb cc dd'sep=', 'Do i=1 By 1 While list<>''  If i>1 Then Call charout ,sep  Parse Var list item list  Call charout ,item  End`
Output:
`aa, bb, cc, dd`

## Ring

` for x = 1 to 10 see x if x=10 exit ok see ", " next see nl `

## Ruby

` (1..10).each do |i|  print i  break if i == 10  print ", "endputs`

More idiomatic Ruby to obtain the same result is:

` puts (1..10).join(", ")`

## Run BASIC

` FOR i = 1 TO 10  PRINT cma\$;i;  cma\$ = " , "NEXT i `

## Rust

`fn main() {    for i in 1..=10 {        print!("{}{}", i, if i < 10 { ", " } else { "\n" });    }}`

More like the problem description:

`fn main() {    for i in 1..=10 {        print!("{}", i);        if i == 10 {             break;        }        print!(", ");    }    println!();}`

Alternative solution using join.

`fn main() {    println!(        "{}",        (1..=10)            .map(|i| i.to_string())            .collect::<Vec<_>>()            .join(", ")    );}`

## S-lang

This may constitute not following directions, but I've always felt the most readable and general way to code this is to move the "optional" part from the bottom to the top of the loop, then NOT include it on the FIRST pass:

`variable more = 0, i;foreach i ([1:10]) {  if (more) () = printf(", ");  printf("%d", i);  more = 1;}`

## Salmon

`iterate (x; [1...10])  {    print(x);    if (x == 10)        break;;    print(", ");  };print("\n");`

## Scala

Library: Scala
`var i = 1while ({  print(i)  i < 10}) {  print(", ")  i += 1}println()`
`println((1 to 10).mkString(", "))`

## Scheme

It is possible to use continuations:

`(call-with-current-continuation (lambda (esc)   (do ((i 1 (+ 1 i))) (#f)     (display i)     (if (= i 10) (esc (newline)))     (display ", "))))`

But usually making the tail recursion explicit is enough:

`(let loop ((i 0))  (display i)  (if (= i 10)      (newline)      (begin        (display ", ")        (loop (+ 1 i)))))`

## Scilab

Works with: Scilab version 5.5.1
`for i=1:10    printf("%2d ",i)    if i<10 then printf(", "); endendprintf("\n")`
Output:
` 1 ,  2 ,  3 ,  4 ,  5 ,  6 ,  7 ,  8 ,  9 , 10 `

## Seed7

`\$ include "seed7_05.s7i"; const proc: main is func  local    var integer: number is 0;  begin    for number range 1 to 10 do      write(number);      if number < 10 then        write(", ")      end if;    end for;    writeln;  end func;`

## Sidef

`for (1..10) { |i|    print i;    i == 10 && break;    print ', ';} print "\n";`

## Smalltalk

`1 to: 10 do: [:n |    Transcript show: n asString.    n < 10 ifTrue: [ Transcript show: ', ' ]]`

Smalltalk/X and Pharo/Squeak have special enumeration messages for this in their Collection class, which executes another action in-between iterated elements:

Works with: Smalltalk/X
Works with: Pharo
`(1 to: 10) do: [:n |    Transcript show: n asString.] separatedBy:[    Transcript show: ', ']`

That is a bit different from the task's specification, but does what is needed here, and is more general in working with any collection (in the above case: a range aka "Interval"). It does not depend on the collection being addressed by an integer index and/or keeping a count inside the loop.

## SNOBOL4

It's idiomatic in Snobol to accumulate the result in a string buffer for line output, and to use the same statement for loop control and the comma.

`loop    str = str lt(i,10) (i = i + 1) :f(out)        str = str ne(i,10) ',' :s(loop)out     output = strend`
Works with: Macro Spitbol

For the task description, it's possible (implementation dependent) to set an output variable to raw mode for character output within the loop.

This example also breaks the loop explicitly:

`        output('out',1,'-[-r1]')loop    i = lt(i,10) i + 1 :f(end)        out = i        eq(i,10) :s(end)        out = ',' :(loop)end`
Output:
`1,2,3,4,5,6,7,8,9,10`

## SNUSP

`@\>@\>@\>+++++++++<!/+.  >-?\#  digit and loop test |  |  \@@@[email protected]+++++# \>>.<.<</    comma and space |  \@@[email protected]@+++++#       \@@@@=++++#`

## Spin

Works with: BST/BSTC
Works with: FastSpin/FlexSpin
Works with: HomeSpun
Works with: OpenSpin
`con  _clkmode = xtal1 + pll16x  _clkfreq = 80_000_000 obj  ser : "FullDuplexSerial.spin" pub main | n  ser.start(31, 30, 0, 115200)   repeat n from 1 to 10    ser.dec(n)    if n<10      ser.str(string(", "))  ser.str(string(13, 10))   waitcnt(_clkfreq + cnt)  ser.stop  cogstop(0)`
Output:
```1, 2, 3, 4, 5, 6, 7, 8, 9, 10
```

## Stata

`forv i=1/10 {	di `i' _continue	if `i'<10 {		di ", " _continue	}	else {		di	}}`

### Mata

`matafor (i=1; i<=10; i++) {	printf("%f",i)	if (i<10) {		printf(", ")	} else {		printf("\n")	}}end`

## Swift

Works with: Swift version 1.x
`for var i = 1; ; i++ {    print(i)    if i == 10 {        println()        break    }    print(", ")}`
Works with: Swift version 2
The usual way to do this with Swift 2 is:
` for i in 1...10 {     print(i, terminator: i == 10 ? "\n" : ", ")} `

To satisfy the specification, we have to do something similar to Swift 1.x and other C-like languages:

`for var i = 1; ; i++ {    print(i, terminator: "")    if i == 10 {        print("")        break    }    print(", ", terminator: "")}`

## Tcl

`for {set i 1; set end 10} true {incr i} {    puts -nonewline \$i    if {\$i >= \$end} break    puts -nonewline ", "}puts ""`

However, that's not how the specific task (printing 1..10 with comma separators) would normally be done. (Note, the solution below is not a solution to the half-looping problem.)

`proc range {from to} {    set result {}    for {set i \$from} {\$i <= \$to} {incr i} {        lappend result \$i    }    return \$i} puts [join [range 1 10] ", "] ;# ==> 1, 2, 3, 4, 5, 6, 7, 8, 9, 10`

## TI-89 BASIC

There is no horizontal cursor position on the program IO screen, so we concatenate strings instead.

`Local str"" → strFor i,1,10  str & string(i) → str  If i < 10 Then    str & "," → str  EndIfEndForDisp str`

## Tiny BASIC

Tiny BASIC does not support string concatenation so each number is on a separate line but this is at least in the spirit of the task description.

`    LET I = 1 10 IF I = 10 THEN PRINT I    IF I < 10 THEN PRINT I,", "    IF I = 10 THEN END    LET I = I + 1    GOTO 10`

## TUSCRIPT

` \$\$ MODE TUSCRIPTline=""LOOP n=1,10 line=CONCAT (line,n) IF (n!=10) line=CONCAT (line,", ")ENDLOOPPRINT line `

Output:

```1,  2,  3,  4,  5,  6,  7,  8,  9,  10
```

## UNIX Shell

`for(( Z=1; Z<=10; Z++ )); do    echo -e "\$Z\c"    if (( Z != 10 )); then        echo -e ", \c"    fidone`
Works with: Bash
`for ((i=1;i<=\$((last=10));i++)); do  echo -n \$i  [ \$i -eq \$last ] && break  echo -n ", "done`

## UnixPipes

The last iteration is handled automatically for us when there is no element in one of the pipes.

`yes \ | cat -n | head -n 10 | paste -d\  - <(yes , | head -n 9) | xargs echo`

## Ursa

Translation of: PHP
`decl int ifor (set i 1) (< i 11) (inc i)        out i console        if (= i 10)                break        end if        out ", " consoleend forout endl console`

## V

`[loop    [ [10 =] [puts]     [true] [dup put ',' put succ loop]   ] when].`

Using it

```|1 loop
=1,2,3,4,5,6,7,8,9,10
```

## Vala

Translation of: C
`void main() {  for (int i = 1; i <= 10; i++)  {    stdout.printf("%d", i);    stdout.printf(i == 10 ? "\n" : ", ");  }}`

## VBA

`Public Sub WriteACommaSeparatedList()    Dim i As Integer    Dim a(1 To 10) As String    For i = 1 To 10        a(i) = CStr(i)    Next i    Debug.Print Join(a, ", ")End Sub`

## Vedit macro language

This example writes the output into current edit buffer.

`for (#1 = 1; 1; #1++) {    Num_Ins(#1, LEFT+NOCR)    if (#1 == 10) { Break }    Ins_Text(", ")}Ins_Newline`

## Vim Script

`for i in range(1, 10)   echon i   if (i != 10)      echon ", "   endifendfor`

## Visual Basic .NET

`For i = 1 To 10    Console.Write(i)    If i = 10 Then Exit For    Console.Write(", ")Next`

## Wart

`for i 1 (i <= 10) ++i  pr i  if (i < 10)    pr ", "(prn)`

## Wee Basic

print 1 "" ensures the end of program text is separate from the list of numbers.

`print 1 ""for numbers=1 to 10print 1 at numbers*3-2,0 numbersif numbers<>10print 1 at numbers*3-1,0 ","endifend`

## Wren

`for (i in 1..10) {    System.write(i)    System.write((i < 10) ? ", " : "\n")}`
Output:
```1, 2, 3, 4, 5, 6, 7, 8, 9, 10
```

## XBasic

Works with: Windows XBasic
` PROGRAM "n_plus_one_half" DECLARE FUNCTION Entry() FUNCTION Entry()  FOR i% = 1 TO 10    PRINT i%;    IF i% = 10 THEN EXIT FOR    PRINT ",";  NEXT i%  PRINT  ' If equality checking affected the efficiency  ' or if the last value were treated in different manner,  ' one would extract the last iteration:  FOR i% = 1 TO 9    PRINT i%; ",";  NEXT i%  PRINT 10END FUNCTIONEND PROGRAM `
Output:
``` 1, 2, 3, 4, 5, 6, 7, 8, 9, 10
1, 2, 3, 4, 5, 6, 7, 8, 9, 10
```

## XPL0

`codes CrLf=9, IntOut=11, Text=12;int  N;[for N:= 1 to 10 do     \best way to do this        [IntOut(0, N);  if N#10 then Text(0, ", ")];CrLf(0); N:= 1;                  \way suggested by task statementloop    [IntOut(0, N);        if N=10 then quit;        Text(0, ", ");        N:= N+1;        ];CrLf(0);]`

## Yabasic

`for i = 1 to 10  print i;  if i < 10 then print ", "; : endifnext iprint   end`

## zkl

`foreach n in ([1..10]){ print(n); if (n!=10) print(",") }`

Or, using a state machine:

`[1..10].pump(Console.print, Void.Drop, T(Void.Write,",",Void.Drop));`

where pump is (sink, action, action ...). The first Drop writes the first object from the source (1) to the sink and drops out (and that iteration of the loop is done). For the rest of the loop, Write collects things to write to the sink: a comma and the number, eg ",2". Or:

`[1..10].pump(Console.print, Void.Drop, fcn(n){ String(",",n) });`