Data commit

Task/Loops-While/00-META.yaml

@@ -0,0 +1,6 @@
+---
+category:
+- Conditional loops
+- Simple
+from: http://rosettacode.org/wiki/Loops/While
+note: Iteration

Task/Loops-While/00-TASK.txt

@@ -0,0 +1,25 @@
+;Task:
+Start an integer value at   '''1024'''. 
+
+Loop while it is greater than zero. 
+ 
+Print the value (with a newline) and divide it by two each time through the loop.
+
+;Related tasks:
+*   [[Loop over multiple arrays simultaneously]]
+*   [[Loops/Break]]
+*   [[Loops/Continue]]
+*   [[Loops/Do-while]]
+*   [[Loops/Downward for]]
+*   [[Loops/For]]
+*   [[Loops/For with a specified step]]
+*   [[Loops/Foreach]]
+*   [[Loops/Increment loop index within loop body]]
+*   [[Loops/Infinite]]
+*   [[Loops/N plus one half]]
+*   [[Loops/Nested]]
+*   [[Loops/While]]
+*   [[Loops/with multiple ranges]]
+*   [[Loops/Wrong ranges]]
+<br><br>
+

Task/Loops-While/0815/loops-while.0815

@@ -0,0 +1 @@
+<:400:~}:_:%<:a:~$=<:2:=/^:_:

Task/Loops-While/11l/loops-while.11l

@@ -0,0 +1,4 @@
+V n = 1024
+L n > 0
+   print(n)
+   n I/= 2

Task/Loops-While/360-Assembly/loops-while-1.360

@@ -0,0 +1,19 @@
+*        While                     27/06/2016
+WHILELOO CSECT                     program's control section
+         USING WHILELOO,12         set base register
+         LR    12,15               load base register
+         LA    6,1024              v=1024
+LOOP     LTR   6,6                 while v>0
+         BNP   ENDLOOP             .
+         CVD   6,PACKED              convert v to packed decimal
+         OI    PACKED+7,X'0F'        prepare unpack
+         UNPK  WTOTXT,PACKED         packed decimal to zoned printable
+         WTO   MF=(E,WTOMSG)         display v
+         SRA   6,1                   v=v/2   by right shift
+         B     LOOP                end while
+ENDLOOP  BR    14                  return to caller
+PACKED   DS    PL8                 packed decimal
+WTOMSG   DS    0F                  full word alignment for wto
+WTOLEN   DC    AL2(8),H'0'         length of wto buffer (4+1)
+WTOTXT   DC    CL4' '              wto text
+         END   WHILELOO

Task/Loops-While/360-Assembly/loops-while-2.360

@@ -0,0 +1,18 @@
+*        While                     27/06/2016
+WHILELOO CSECT
+         USING WHILELOO,12         set base register
+         LR    12,15               load base register
+         LA    6,1024              v=1024
+         DO WHILE=(LTR,6,P,6)      do while v>0
+         CVD   6,PACKED              convert v to packed decimal
+         OI    PACKED+7,X'0F'        prepare unpack
+         UNPK  WTOTXT,PACKED         packed decimal to zoned printable
+         WTO   MF=(E,WTOMSG)         display
+         SRA   6,1                   v=v/2   by right shift
+         ENDDO ,                   end while
+         BR    14                  return to caller
+PACKED   DS    PL8                 packed decimal
+WTOMSG   DS    0F                  full word alignment for wto
+WTOLEN   DC    AL2(8),H'0'         length of wto buffer (4+1)
+WTOTXT   DC    CL4' '              wto text
+         END   WHILELOO

Task/Loops-While/6502-Assembly/loops-while.6502

@@ -0,0 +1,17 @@
+LoopsWhile:	PHA			;push accumulator onto stack
+
+		LDA #$00		;the 6502 is an 8-bit processor
+		STA Ilow		;and so 1024 ($0400) must be stored in two memory locations
+		LDA #$04
+		STA Ihigh		
+WhileLoop:	LDA Ilow
+		BNE NotZero
+		LDA Ihigh
+		BEQ EndLoop
+NotZero:	JSR PrintI		;routine not implemented
+		LSR Ihigh		;shift right
+		ROR Ilow		;rotate right
+		JMP WhileLoop
+
+EndLoop:	PLA			;restore accumulator from stack
+		RTS			;return from subroutine

Task/Loops-While/68000-Assembly/loops-while.68000

@@ -0,0 +1,7 @@
+main:
+MOVE.W #1024,D0
+
+WhileLoop:
+jsr PrintHexWord
+LSR.W #1,D0
+BNE WhileLoop

Task/Loops-While/AArch64-Assembly/loops-while.aarch64

@@ -0,0 +1,55 @@
+/* ARM assembly AARCH64 Raspberry PI 3B */
+/*  program loopwhile64.s   */
+
+/*******************************************/
+/* Constantes file                         */
+/*******************************************/
+/* for this file see task include a file in language AArch64 assembly*/
+.include "../includeConstantesARM64.inc"
+/*********************************/
+/* Initialized data              */
+/*********************************/
+.data
+szMessResult:      .asciz "@"            // message result
+szCarriageReturn:  .asciz "\n"
+/*********************************/
+/* UnInitialized data            */
+/*********************************/
+.bss
+sZoneConv:           .skip 24
+/*********************************/
+/*  code section                 */
+/*********************************/
+.text
+.global main
+main:                                    // entry of program
+    mov x20,#1024                        // loop counter
+1:                                       // begin loop
+    mov x0,x20
+    ldr x1,qAdrsZoneConv                 // display value
+    bl conversion10                      // decimal conversion
+    ldr x0,qAdrszMessResult
+    ldr x1,qAdrsZoneConv
+    bl strInsertAtCharInc                // insert result at @ character
+    bl affichageMess                     // display message
+    ldr x0,qAdrszCarriageReturn
+    bl affichageMess                     // display return line
+    lsr x20,x20,1                        // division by 2
+    cmp x20,0                            // end ?
+    bgt 1b                               // no ->begin loop one
+
+
+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 sZoneConv
+qAdrszMessResult:         .quad szMessResult
+qAdrszCarriageReturn:     .quad szCarriageReturn
+
+/********************************************************/
+/*        File Include fonctions                        */
+/********************************************************/
+/* for this file see task include a file in language AArch64 assembly */
+.include "../includeARM64.inc"

Task/Loops-While/ALGOL-60/loops-while.alg

@@ -0,0 +1,5 @@
+begin
+	comment Loops/While - algol60 - 21/10/2014;
+	integer i;
+	for i:=1024,i div 2 while i>0 do outinteger(1,i)
+end

Task/Loops-While/ALGOL-68/loops-while.alg

@@ -0,0 +1,5 @@
+INT i := 1024;
+WHILE i > 0 DO
+   print(i);
+   i := i OVER 2
+OD

Task/Loops-While/ALGOL-M/loops-while.alg

@@ -0,0 +1,8 @@
+begin
+    integer i;
+    i := 1024;
+    while i > 0 do begin
+        write( i );
+        i := i / 2;
+    end;
+end

Task/Loops-While/ALGOL-W/loops-while.alg

@@ -0,0 +1,9 @@
+begin
+    integer i;
+    i := 1024;
+    while i > 0 do
+    begin
+        write( i );
+        i := i div 2
+    end
+end.

Task/Loops-While/ANSI-BASIC/loops-while.basic

@@ -0,0 +1,6 @@
+100 LET I = 1024
+110 DO WHILE I > 0
+120    PRINT I
+130    LET I = INT(I / 2)
+140 LOOP
+150 END

Task/Loops-While/ARM-Assembly/loops-while.arm

@@ -0,0 +1,118 @@
+/* ARM assembly Raspberry PI  */
+/*  program loopwhile.s   */
+
+/* Constantes    */
+.equ STDOUT, 1     @ Linux output console
+.equ EXIT,   1     @ Linux syscall
+.equ WRITE,  4     @ Linux syscall
+
+/*********************************/
+/* Initialized data              */
+/*********************************/
+.data
+szMessResult:      .ascii ""                    @ message result
+sMessValeur:       .fill 11, 1, ' '
+szCarriageReturn:  .asciz "\n"
+/*********************************/
+/* UnInitialized data            */
+/*********************************/
+.bss
+/*********************************/
+/*  code section                 */
+/*********************************/
+.text
+.global main
+main:                                       @ entry of program
+    mov r4,#1024                            @ loop counter
+1:                                          @ begin loop
+    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
+    lsr r4,#1                               @ division by 2
+    cmp r4,#0                               @ end ?
+    bgt 1b                                  @ no ->begin loop one
+
+
+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 sMessValeur
+iAdrszMessResult:         .int szMessResult
+iAdrszCarriageReturn:     .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,   10
+conversion10:
+    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
+    cmp r0,#0                               @ stop if quotient = 0
+    subne r2,#1                               @ previous position
+    bne 1b                                  @ else loop
+                                            @ end replaces digit in front of area
+    mov r4,#0
+2:
+    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

Task/Loops-While/ASIC/loops-while.asic

@@ -0,0 +1,9 @@
+REM Loops/While
+
+I = 1024
+WHILE I > 0
+  PRINT I
+  I = I / 2
+WEND
+
+END

Task/Loops-While/ATS/loops-while-1.ats

@@ -0,0 +1,20 @@
+#include "share/atspre_staload.hats"
+
+fn
+loop_while () : void =
+  let
+    fun
+    loop {n : int | 0 <= n} .<n>.
+         (n : uint n) : void =
+      if n <> 0U then
+        begin
+          println! (n);
+          loop (n / 2U)
+        end
+  in
+    loop 1024U
+  end
+
+implement
+main0 () =
+  loop_while ()

Task/Loops-While/ATS/loops-while-2.ats

@@ -0,0 +1,17 @@
+#include "share/atspre_staload.hats"
+
+fn
+loop_while () : void =
+  let
+    var n : uint = 1024U
+  in
+    while (0U < n)
+      begin
+        println! (n);
+        n := n / 2U
+      end
+  end
+
+implement
+main0 () =
+  loop_while ()

Task/Loops-While/AWK/loops-while.awk

@@ -0,0 +1,7 @@
+BEGIN {
+  v = 1024
+  while(v > 0) {
+    print v
+    v = int(v/2)
+  }
+}

Task/Loops-While/Action-/loops-while.action

@@ -0,0 +1,9 @@
+PROC Main()
+  CARD i=[1024]
+
+  WHILE i>0
+  DO
+    PrintCE(i)
+    i=i/2
+  OD
+RETURN

Task/Loops-While/ActionScript/loops-while.as

@@ -0,0 +1,5 @@
+var i:int = 1024;
+while (i > 0) {
+    trace(i);
+    i /= 2;
+}

Task/Loops-While/Ada/loops-while.ada

@@ -0,0 +1,8 @@
+declare
+   I : Integer := 1024;
+begin
+   while I > 0 loop
+      Put_Line(Integer'Image(I));
+      I := I / 2;
+   end loop;
+end;

Task/Loops-While/Agena/loops-while.agena

@@ -0,0 +1,7 @@
+scope
+    local i := 1024;
+    while i > 0 do
+        print( i );
+        i := i \ 2
+    od
+epocs

Task/Loops-While/Aime/loops-while.aime

@@ -0,0 +1,7 @@
+integer i;
+
+i = 1024;
+while (i) {
+    o_plan(i, "\n");
+    i /= 2;
+}

Task/Loops-While/AmbientTalk/loops-while.ambient

@@ -0,0 +1,6 @@
+// print 1024 512 etc
+def i := 1024;
+while: { i > 0 } do: {
+  system.print(" "+i);
+  i := i/2;
+}

Task/Loops-While/AmigaE/loops-while.amiga

@@ -0,0 +1,7 @@
+PROC main()
+  DEF i = 1024
+  WHILE i > 0
+    WriteF('\d\n', i)
+    i := i / 2
+  ENDWHILE
+ENDPROC

Task/Loops-While/AppleScript/loops-while.applescript

@@ -0,0 +1,5 @@
+set i to 1024
+repeat while i > 0
+	log i
+	set i to i / 2
+end repeat

Task/Loops-While/Applesoft-BASIC/loops-while.basic

@@ -0,0 +1,2 @@
+ 10 I% = 1024
+ 20  IF I% > 0 THEN  PRINT I%:I% = I% / 2: GOTO 20

Task/Loops-While/ArnoldC/loops-while.arnoldc

@@ -0,0 +1,11 @@
+IT'S SHOWTIME
+HEY CHRISTMAS TREE n
+YOU SET US UP 1024
+STICK AROUND n
+TALK TO THE HAND n
+GET TO THE CHOPPER n
+HERE IS MY INVITATION n
+HE HAD TO SPLIT 2
+ENOUGH TALK
+CHILL
+YOU HAVE BEEN TERMINATED

Task/Loops-While/Arturo/loops-while.arturo

@@ -0,0 +1,6 @@
+i: 1024
+
+while [i>0] [
+	print i
+	i: i/2
+]

Task/Loops-While/Asymptote/loops-while.asymptote

@@ -0,0 +1,10 @@
+int i = 1024;
+
+while(i > 0) {
+  write(i);
+  i = i # 2;       //or also i = quotient(i, 2);
+}
+
+//# Integer division; equivalent to quotient(x,y).
+//Noting that the Python3 community adopted the comment symbol (//) for integer division, the
+//Asymptote community decided to reciprocate and use their comment symbol for integer division!

Task/Loops-While/AutoHotkey/loops-while.ahk

@@ -0,0 +1,7 @@
+i = 1024
+While (i > 0)
+{
+  output = %output%`n%i%
+  i := Floor(i / 2)
+}
+MsgBox % output

Task/Loops-While/Axe/loops-while.axe

@@ -0,0 +1,5 @@
+1024→A
+While A>0
+ Disp A▶Dec,i
+ A/2→A
+End

Task/Loops-While/BASIC256/loops-while.basic

@@ -0,0 +1,8 @@
+i = 1024
+
+while i > 0
+	print i
+	i = i \ 2
+end while
+
+end

Task/Loops-While/BBC-BASIC/loops-while.basic

@@ -0,0 +1,5 @@
+      i% = 1024
+      WHILE i%
+        PRINT i%
+        i% DIV= 2
+      ENDWHILE

Task/Loops-While/BQN/loops-while.bqn

@@ -0,0 +1,3 @@
+_while_ ← {𝔽⍟𝔾∘𝔽_𝕣_𝔾∘𝔽⍟𝔾𝕩}
+
+(⌊∘÷⟜2 •Show) _while_ (>⟜0) 1024

Task/Loops-While/BaCon/loops-while.bacon

@@ -0,0 +1,5 @@
+i = 1024
+WHILE i > 0
+   PRINT i
+   i = i / 2
+WEND

Task/Loops-While/Ballerina/loops-while.ballerina

@@ -0,0 +1,5 @@
+int i = 1024;
+while i > 0 {
+    io:println(i);
+    i = i / 2;
+}

Task/Loops-While/Bc/loops-while.bc

@@ -0,0 +1,5 @@
+i = 1024
+while (i > 0) {
+    i
+    i /= 2
+}

Task/Loops-While/Befunge/loops-while.bf

@@ -0,0 +1,2 @@
+84*:*>       :v
+     ^/2,*25.:_@

Task/Loops-While/Blz/loops-while.blz

@@ -0,0 +1,5 @@
+num = 1024
+while num > 1 # blz will automatically cast num to a fraction when dividing 1/2, so this is necessary to stop an infinite loop
+    print(num)
+    num = num / 2
+end

Task/Loops-While/Bracmat/loops-while.bracmat

@@ -0,0 +1 @@
+1024:?n & whl'(!n:>0 & out$!n & div$(!n.2):?n)

Task/Loops-While/Brat/loops-while.brat

@@ -0,0 +1,5 @@
+i = 1024
+while { i > 0 } {
+    p i
+    i = (i / 2).to_i
+}

Task/Loops-While/C++/loops-while-1.cpp

@@ -0,0 +1,5 @@
+int i = 1024;
+while(i > 0){
+  std::cout << i << std::endl;
+  i /= 2;
+}

Task/Loops-While/C++/loops-while-2.cpp

@@ -0,0 +1,2 @@
+for(int i = 1024; i > 0; i /= 2)
+  std::cout << i << std::endl;

Task/Loops-While/C++/loops-while-3.cpp

@@ -0,0 +1,3 @@
+for(init; cond; update){
+  statement;
+}

Task/Loops-While/C++/loops-while-4.cpp

@@ -0,0 +1,7 @@
+{
+  init;
+  while(cond){
+    statement;
+    update;
+  }
+}

Task/Loops-While/C-sharp/loops-while.cs

@@ -0,0 +1,5 @@
+int i = 1024;
+while(i > 0){
+   System.Console.WriteLine(i);
+   i /= 2;
+}

Task/Loops-While/C/loops-while-1.c

@@ -0,0 +1,5 @@
+int i = 1024;
+while(i > 0) {
+  printf("%d\n", i);
+  i /= 2;
+}

Task/Loops-While/C/loops-while-2.c

@@ -0,0 +1,4 @@
+int i;
+for(i = 1024;i > 0; i/=2){
+   printf("%d\n", i);
+}

Task/Loops-While/CLU/loops-while.clu

@@ -0,0 +1,8 @@
+start_up = proc ()
+    po: stream := stream$primary_output()
+    n: int := 1024
+    while n>0 do
+        stream$putl(po, int$unparse(n))
+        n := n/2
+    end
+end start_up

Task/Loops-While/COBOL/loops-while.cobol

@@ -0,0 +1,15 @@
+       IDENTIFICATION DIVISION.
+       PROGRAM-ID. Loop-While.
+
+       DATA DIVISION.
+       WORKING-STORAGE SECTION.
+       01  I PIC 9999 VALUE 1024.
+
+       PROCEDURE DIVISION.
+           PERFORM UNTIL NOT 0 < I
+               DISPLAY I
+               DIVIDE 2 INTO I
+           END-PERFORM
+
+           GOBACK
+           .

Task/Loops-While/Chapel/loops-while.chapel

@@ -0,0 +1,5 @@
+var val = 1024;
+while val > 0 {
+        writeln(val);
+        val /= 2;
+}

Task/Loops-While/Chipmunk-Basic/loops-while.basic

@@ -0,0 +1,11 @@
+100 i = 1024
+110 do while i > 0
+120   print i
+130   i = int(i/2)
+140 loop
+150 print
+160 i = 1024
+170 while i > 0
+180   print i
+190   i = int(i/2)
+200 wend

Task/Loops-While/ChucK/loops-while.chuck

@@ -0,0 +1,7 @@
+1024 => int value;
+
+while(value > 0)
+{
+    <<<value>>>;
+    value / 2 => value;
+}

Task/Loops-While/Clojure/loops-while-1.clj

@@ -0,0 +1,5 @@
+(def i (ref 1024))
+
+(while (> @i 0)
+  (println @i)
+  (dosync (ref-set i (quot @i 2))))

Task/Loops-While/Clojure/loops-while-2.clj

@@ -0,0 +1,8 @@
+(loop [i 1024]
+  (when (pos? i)
+    (println i)
+    (recur (quot i 2))))
+
+
+(doseq [i (take-while pos? (iterate #(quot % 2) 1024))]
+  (println i))

Task/Loops-While/ColdFusion/loops-while-1.cfm

@@ -0,0 +1,3 @@
+<cfset i = 1024 /><cfloop condition="i GT 0">  #i#< br />
+  <cfset i /= 2 />
+</cfloop>

Task/Loops-While/ColdFusion/loops-while-2.cfm

@@ -0,0 +1,6 @@
+<cfscript>  i = 1024;
+  while( i > 0 )
+  {
+    writeOutput( i + "< br/ >" );
+  }
+</cfscript>

Task/Loops-While/Commodore-BASIC/loops-while.basic

@@ -0,0 +1,6 @@
+10 N% = 1024
+20 IF N% = 0 THEN 60
+30 PRINT N%
+40 N% = N%/2
+50 GOTO 20
+60 END

Task/Loops-While/Common-Lisp/loops-while.lisp

@@ -0,0 +1,14 @@
+(let ((i 1024))
+  (loop while (plusp i) do
+        (print i)
+        (setf i (floor i 2))))
+
+(loop with i = 1024
+      while (plusp i) do
+      (print i)
+      (setf i (floor i 2)))
+
+(defparameter *i* 1024)
+(loop while (plusp *i*) do
+      (print *i*)
+      (setf *i* (floor *i* 2)))

Task/Loops-While/Cowgol/loops-while.cowgol

@@ -0,0 +1,8 @@
+include "cowgol.coh";
+
+var n: uint16 := 1024;
+while n > 0 loop
+    print_i16(n);
+    print_nl();
+    n := n/2;
+end loop;

Task/Loops-While/Crack/loops-while.crack

@@ -0,0 +1,5 @@
+i = 1024;
+while( i > 0 ) {
+  cout ` $i\n`;
+  i = i/2;
+}

Task/Loops-While/Creative-Basic/loops-while.basic

@@ -0,0 +1,27 @@
+DEF X:INT
+
+X=1024
+
+OPENCONSOLE
+
+WHILE X>0
+
+   PRINT X
+   X=X/2
+
+ENDWHILE
+'Output starts with 1024 and ends with 1.
+
+'Putting the following in the loop will produce output starting with 512 and ending with 0:
+'X=X/2
+'PRINT X
+
+PRINT:PRINT"Press any key to end."
+
+'Keep console from closing right away so the figures can be read.
+WHILE INKEY$="":ENDWHILE
+
+CLOSECONSOLE
+
+'Since this is, in fact, a Creative Basic console program.
+END

Task/Loops-While/Crystal/loops-while-1.crystal

@@ -0,0 +1,5 @@
+i = 1024
+while i > 0
+    puts i
+    i //= 2
+end

Task/Loops-While/Crystal/loops-while-2.crystal

@@ -0,0 +1,5 @@
+i = 1024
+until i <= 0
+   puts i
+   i //= 2
+end

Task/Loops-While/D/loops-while.d

@@ -0,0 +1,10 @@
+import std.stdio;
+
+void main() {
+    int i = 1024;
+
+    while (i > 0) {
+        writeln(i);
+        i >>= 1;
+    }
+}

Task/Loops-While/DCL/loops-while.dcl

@@ -0,0 +1,10 @@
+$ i = 1024
+$Loop:
+$ IF ( i .LE. 0 ) THEN GOTO LoopEnd
+$ WRITE sys$output F$FAO( "  i = !4UL", i )  ! formatted ASCII output, fixed-width field
+$ ! Output alternatives:
+$ !   WRITE sys$output F$STRING( i )         ! explicit integer-to-string conversion
+$ !   WRITE sys$output i                     ! implicit conversion to string/output
+$ i = i / 2
+$ GOTO Loop
+$LoopEnd:

Task/Loops-While/DUP/loops-while-1.dup

@@ -0,0 +1 @@
+1024[$][$.10,2/\%]# {Short form}

Task/Loops-While/DUP/loops-while-2.dup

@@ -0,0 +1,6 @@
+1024                {push 1024 on stack}
+    [ ][         ]# {while[condition>0][do]}
+     $              {DUP}
+        $.          {DUP, print top of stack to STDOUT}
+          10,       {print newline}
+             2/\%   {2 DIV/MOD SWAP POP}

Task/Loops-While/DUP/loops-while-3.dup

@@ -0,0 +1 @@
+1024[$][$.10,1»]#

Task/Loops-While/DUP/loops-while-4.dup

@@ -0,0 +1,11 @@
+1024
+512
+256
+128
+64
+32
+16
+8
+4
+2
+1

Task/Loops-While/DWScript/loops-while.dw

@@ -0,0 +1,6 @@
+var i := 1024;
+
+while i > 0 do begin
+   PrintLn(i);
+   i := i div 2;
+end;

Task/Loops-While/Dao/loops-while.dao

@@ -0,0 +1,2 @@
+i = 1024;
+while( i > 0 ) i = i / 2;

Task/Loops-While/Dart/loops-while-1.dart

@@ -0,0 +1,7 @@
+void main() {
+  var val = 1024;
+  while (val > 0) {
+    print(val);
+    val >>= 2;
+  }
+}

Task/Loops-While/Dart/loops-while-2.dart

@@ -0,0 +1,7 @@
+void main() {
+  num val = 1024;
+  while (val > 0) {
+    print(val);
+    val /= 2;
+  }
+}

Task/Loops-While/Dc/loops-while.dc

@@ -0,0 +1 @@
+[ q ] sQ [ d 0!<Q p 2 / lW x ] sW 1024 lW x

Task/Loops-While/Delphi/loops-while.delphi

@@ -0,0 +1,11 @@
+var
+  i : Integer;
+begin
+  i := 1024;
+
+  while i > 0 do
+  begin
+    Writeln(i);
+    i := i div 2;
+  end;
+end;

Task/Loops-While/Draco/loops-while.draco

@@ -0,0 +1,8 @@
+proc nonrec main() void:
+    word i;
+    i := 1024;
+    while i > 0 do
+        writeln(i);
+        i := i >> 1
+    od
+corp

Task/Loops-While/Dragon/loops-while.dragon

@@ -0,0 +1,5 @@
+i = 1024
+while(i > 0){
+   showln i
+   i >>= 1 //also acceptable: i /= 2
+}

Task/Loops-While/Dyalect/loops-while.dyalect

@@ -0,0 +1,5 @@
+var i = 1024
+while i > 0 {
+  print(i)
+  i /= 2
+}

Task/Loops-While/E/loops-while.e

@@ -0,0 +1,5 @@
+var i := 1024
+while (i > 0) {
+    println(i)
+    i //= 2
+}

Task/Loops-While/EGL/loops-while.egl

@@ -0,0 +1,5 @@
+x int = 1024;
+while ( x > 0 )
+   SysLib.writeStdout( x );
+   x = MathLib.floor( x / 2 );
+end

Task/Loops-While/ERRE/loops-while.erre

@@ -0,0 +1,5 @@
+   I%=1024
+   WHILE I%>0 DO  ! you can leave out >0
+     PRINT(I%)
+     I%=I% DIV 2  ! I%=INT(I%/2) for C-64 version
+   END WHILE

Task/Loops-While/EasyLang/loops-while.easy

@@ -0,0 +1,5 @@
+i = 1024
+while i > 0
+  print i
+  i = i div 2
+.

Task/Loops-While/EchoLisp/loops-while.l

@@ -0,0 +1,3 @@
+(set! n 1024)
+(while (> n 0) (write n) (set! n (quotient n 2)))
+1024 512 256 128 64 32 16 8 4 2 1

Task/Loops-While/Elena/loops-while.elena

@@ -0,0 +1,10 @@
+public program()
+{
+    int i := 1024;
+    while (i > 0)
+    {
+        console.writeLine:i;
+
+        i /= 2
+    }
+}

Task/Loops-While/Elixir/loops-while.elixir

@@ -0,0 +1,9 @@
+defmodule Loops do
+  def while(0), do: :ok
+  def while(n) do
+    IO.puts n
+    while( div(n,2) )
+  end
+end
+
+Loops.while(1024)

Task/Loops-While/Emacs-Lisp/loops-while.l

@@ -0,0 +1,4 @@
+(let ((i 1024))
+  (while (> i 0)
+    (message "%d" i)
+    (setq i (/ i 2))))

Task/Loops-While/Erlang/loops-while.erl

@@ -0,0 +1,12 @@
+-module(while).
+-export([loop/0]).
+
+loop() ->
+	loop(1024).
+
+loop(N) when N div 2 =:= 0 ->
+	io:format("~w~n", [N]);
+	
+loop(N) when N >0 ->
+	io:format("~w~n", [N]),
+	loop(N div 2).

Task/Loops-While/Euphoria/loops-while.euphoria

@@ -0,0 +1,7 @@
+integer i
+i = 1024
+
+while i > 0 do
+    printf(1, "%g\n", {i})
+    i = floor(i/2) --Euphoria does NOT use integer division.  1/2 = 0.5
+end while

Task/Loops-While/F-Sharp/loops-while.fs

@@ -0,0 +1,2 @@
+let rec loop n = if n > 0 then printf "%d " n; loop (n / 2)
+loop 1024

Task/Loops-While/FALSE/loops-while.false

@@ -0,0 +1,2 @@
+1024[$0>][$."
+"2/]#%

Task/Loops-While/Factor/loops-while.factor

@@ -0,0 +1 @@
+1024 [ dup 0 > ] [ dup . 2 /i ] while drop

Task/Loops-While/Fantom/loops-while.fantom

@@ -0,0 +1,12 @@
+class Main
+{
+  public static Void main ()
+  {
+    Int i := 1024
+    while (i > 0)
+    {
+      echo (i)
+      i /= 2
+    }
+  }
+}

Task/Loops-While/Fennel/loops-while.fennel

@@ -0,0 +1,4 @@
+(var n 1024)
+(while (> i 0)
+  (print i)
+  (set i (// n 2)))

Task/Loops-While/Fermat/loops-while.fermat

@@ -0,0 +1,2 @@
+n:=1024;
+while n>2/3 do !!n;n:=n/2; od;

Task/Loops-While/Forth/loops-while.fth

@@ -0,0 +1,5 @@
+: halving ( n -- )
+  begin  dup 0 >
+  while  cr dup .  2/
+  repeat drop ;
+1024 halving

Task/Loops-While/Fortran/loops-while-1.f

@@ -0,0 +1,5 @@
+INTEGER :: i = 1024
+DO WHILE (i > 0)
+  WRITE(*,*) i
+  i = i / 2
+END DO

Task/Loops-While/Fortran/loops-while-2.f

@@ -0,0 +1,17 @@
+      PROGRAM LOOPWHILE
+        INTEGER I
+
+C       FORTRAN 77 does not have a while loop, so we use GOTO statements
+C       with conditions instead. This is one of two easy ways to do it.
+        I = 1024
+   10   CONTINUE
+C       Check condition.
+        IF (I .GT. 0) THEN
+C         Handle I.
+          WRITE (*,*) I
+          I = I / 2
+C         Jump back to before the IF block.
+          GOTO 10
+        ENDIF
+        STOP
+      END