A-M baby

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

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

Task/Loops-While/0DESCRIPTION

@@ -0,0 +1 @@
+Start an integer value at 1024. Loop while it is greater than 0. Print the value (with a newline) and divide it by two each time through the loop.

Task/Loops-While/1META.yaml

@@ -0,0 +1,2 @@
+---
+note: Iteration

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/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/AWK/loops-while.awk

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

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/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.bas

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

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/BASIC/loops-while.bas

@@ -0,0 +1,5 @@
+i = 1024
+while i > 0
+   print i
+   i = i / 2
+wend

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

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

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

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

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,2 @@
+for (init; cond; update)
+  statement;

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

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

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/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,5 @@
+<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,7 @@
+<cfscript>
+  i = 1024;
+  while( i > 0 )
+  {
+    writeOutput( i + "< br/ >" );
+  }
+</cfscript>

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

@@ -0,0 +1,4 @@
+(setq i 1024)
+(loop while (> i 0) do
+  (print i)
+  (setq i (floor i 2)))

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/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/DWScript/loops-while.dwscript

@@ -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/Dc/loops-while.dc

@@ -0,0 +1 @@
+1024[p2/d0<p]dspx

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/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/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/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/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,33 @@
+      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
+
+C       This is an alternative while loop with labels on both ends. This
+C       will use the condition as a break rather than create an entire
+C       IF block. Which you use is up to you, but be aware that you must
+C       use this one if you plan on allowing for breaks.
+        I = 1024
+   20   CONTINUE
+C         If condition is false, break.
+          IF (I .LE. 0) GOTO 30
+C         Handle I.
+          WRITE (*,*) I
+          I = I / 2
+C         Jump back to the "loop" beginning.
+          GOTO 20
+   30   CONTINUE
+
+        STOP
+      END

Task/Loops-While/Frink/loops-while.frink

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

Task/Loops-While/GML/loops-while.gml

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

Task/Loops-While/Go/loops-while.go

@@ -0,0 +1,5 @@
+i := 1024
+for i > 0 {
+  fmt.Printf("%d\n", i)
+  i /= 2
+}

Task/Loops-While/Groovy/loops-while.groovy

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

Task/Loops-While/Haskell/loops-while-1.hs

@@ -0,0 +1,5 @@
+import Control.Monad (when)
+main = loop 1024
+  where loop n = when (n > 0)
+                      (do print n
+                          loop (n `div` 2))

Task/Loops-While/Haskell/loops-while-2.hs

@@ -0,0 +1,5 @@
+import Control.Monad (when)
+
+whileM :: (Monad m) => m Bool -> m a -> m ()
+whileM cond body = do c <- cond
+                      when c (body >> whileM cond body)

Task/Loops-While/Haskell/loops-while-3.hs

@@ -0,0 +1,9 @@
+import Data.IORef
+
+main :: IO ()
+main = do r <- newIORef 1024
+          whileM (do n <- readIORef r
+                     return (n > 0))
+                 (do n <- readIORef r
+                     print n
+                     modifyIORef r (`div` 2))

Task/Loops-While/Icon/loops-while.icon

@@ -0,0 +1,5 @@
+procedure main()
+   local i
+   i := 1024
+   while write(0 < (i := i / 2))
+end

Task/Loops-While/Inform-7/loops-while.inf

@@ -0,0 +1,4 @@
+let N be 1024;
+while N > 0:
+	say "[N][line break]";
+	let N be N / 2;

Task/Loops-While/J/loops-while-1.j

@@ -0,0 +1 @@
+,. <.@-:^:*^:a: 1024

Task/Loops-While/J/loops-while-2.j

@@ -0,0 +1,7 @@
+monad define 1024
+  while. 0 < y do.
+    smoutput y
+    y =. <. -: y
+  end.
+  i.0 0
+)

Task/Loops-While/Java/loops-while-1.java

@@ -0,0 +1,5 @@
+int i = 1024;
+while(i > 0){
+   System.out.println(i);
+   i >>= 1; //also acceptable: i /= 2;
+}

Task/Loops-While/Java/loops-while-2.java

@@ -0,0 +1,3 @@
+for(int i = 1024; i > 0;i /= 2 /*or i>>= 1*/){
+   System.out.println(i);
+}

Task/Loops-While/JavaScript/loops-while.js

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

Task/Loops-While/Joy/loops-while.joy

@@ -0,0 +1,3 @@
+DEFINE putln == put '\n putch.
+
+1024 [] [dup putln 2 /] while.

Task/Loops-While/LOLCODE/loops-while.lol

@@ -0,0 +1,10 @@
+HAI 1.3
+
+I HAS A n ITZ 1024
+
+IM IN YR loop UPPIN YR nop WILE n
+    VISIBLE n
+    n R QUOSHUNT OF n AN 2
+IM OUTTA YR loop
+
+KTHXBYE

Task/Loops-While/Lang5/loops-while.lang5

@@ -0,0 +1,9 @@
+: /i  / int ; : 0=  0 == ;
+: dip  swap '_ set execute _ ; : dupd  'dup dip ;
+: 2dip  swap '_x set swap '_y set execute _y _x ;
+: while
+    do  dupd 'execute 2dip
+        rot 0= if break else dup 2dip then
+    loop ;
+
+1024 "dup 0 >" "dup . 2 /i" while

Task/Loops-While/Liberty-BASIC/loops-while.liberty

@@ -0,0 +1,6 @@
+i = 1024
+while i > 0
+   print i
+   i = int( i / 2)
+wend
+end

Task/Loops-While/Lisaac/loops-while.lisaac

@@ -0,0 +1,7 @@
++ i : INTEGER;
+i := 1024;
+{ i > 0 }.while_do {
+  i.println;
+
+  i := i / 2;
+};

Task/Loops-While/Logo/loops-while.logo

@@ -0,0 +1,2 @@
+make "n 1024
+while [:n > 0] [print :n  make "n :n / 2]

Task/Loops-While/Lua/loops-while.lua

@@ -0,0 +1,5 @@
+n = 1024
+while n>0 do
+  print(n)
+  n = math.floor(n/2)
+end

Task/Loops-While/MATLAB/loops-while-1.m

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

Task/Loops-While/MATLAB/loops-while-2.m

@@ -0,0 +1 @@
+  printf('%d\n', 2.^[log2(1024):-1:0]);

Task/Loops-While/MAXScript/loops-while.max

@@ -0,0 +1,6 @@
+a = 1024
+while a > 0 do
+(
+    print a
+    a /= 2
+)

Task/Loops-While/MIRC-Scripting-Language/loops-while.mirc

@@ -0,0 +1,7 @@
+alias while_loop {
+  var %n = 10
+  while (%n >= 0) {
+    echo -a Countdown: %n
+    dec %n
+  }
+}

Task/Loops-While/MOO/loops-while.moo

@@ -0,0 +1,5 @@
+i = 1024;
+while (i > 0)
+  player:tell(i);
+  i /= 2;
+endwhile

Task/Loops-While/Make/loops-while-1.make

@@ -0,0 +1,12 @@
+NEXT=`expr $* / 2`
+MAX=10
+
+all: $(MAX)-n;
+
+0-n:;
+
+%-n: %-echo
+       @-make -f while.mk $(NEXT)-n MAX=$(MAX)
+
+%-echo:
+       @echo $*

Task/Loops-While/Make/loops-while-2.make

@@ -0,0 +1 @@
+|make -f while.mk MAX=1024

Task/Loops-While/Maple/loops-while.maple

@@ -0,0 +1,22 @@
+> n := 1024: while n > 0 do print(n); n := iquo(n,2) end:
+                                  1024
+
+                                  512
+
+                                  256
+
+                                  128
+
+                                   64
+
+                                   32
+
+                                   16
+
+                                   8
+
+                                   4
+
+                                   2
+
+                                   1

Task/Loops-While/Mathematica/loops-while.mathematica

@@ -0,0 +1,5 @@
+i = 1024;
+While[i > 0,
+ Print[i];
+ i = Floor[i/2];
+]

Task/Loops-While/Maxima/loops-while.maxima

@@ -0,0 +1,4 @@
+block([n], n: 1024, while n > 0 do (print(n), n: quotient(n, 2)));
+
+/* using a C-like loop: divide control variable by two instead of incrementing it */
+for n: 1024 next quotient(n, 2) while n > 0 do print(n);

Task/Loops-While/Metafont/loops-while.metafont

@@ -0,0 +1,5 @@
+a := 1024;
+forever: exitif not (a > 0);
+  show a;
+  a := a div 2;
+endfor

Task/Loops-While/Modula-2/loops-while.mod2

@@ -0,0 +1,13 @@
+MODULE DivBy2;
+  IMPORT InOut;
+
+  VAR
+    i: INTEGER;
+BEGIN
+  i := 1024;
+  WHILE i > 0 DO
+    InOut.WriteInt(i, 4);
+    InOut.WriteLn;
+    i := i DIV 2
+  END
+END DivBy2.

Task/Loops-While/Modula-3/loops-while.mod3

@@ -0,0 +1,9 @@
+PROCEDURE DivBy2() =
+  VAR i: INTEGER := 1024;
+  BEGIN
+    WHILE i > 0 DO
+      IO.PutInt(i);
+      IO.Put("\n");
+      i := i DIV 2;
+    END;
+  END DivBy2;

Task/Loops-While/PHP/loops-while.php

@@ -0,0 +1,5 @@
+$i = 1024;
+while ($i > 0) {
+   echo "$i\n";
+   $i >>= 1;
+}

Task/Loops-While/Perl/loops-while-1.pl

@@ -0,0 +1,5 @@
+my $n = 1024;
+while ($n) {
+    print "$n\n";
+    $n = int $n / 2;
+}

Task/Loops-While/Perl/loops-while-2.pl

@@ -0,0 +1,5 @@
+my $n = 1024;
+until ($n <= 0) {
+    print "$n\n";
+    $n = int $n / 2;
+}

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

@@ -0,0 +1,4 @@
+(let N 1024
+   (while (gt0 N)
+      (println N)
+      (setq N (/ N 2)) ) )

Task/Loops-While/Prolog/loops-while.pro

@@ -0,0 +1,2 @@
+while(0) :- !.
+while(X) :- X>0,write(X), nl, X1 is X // 2, while(X1).

Task/Loops-While/Python/loops-while.py

@@ -0,0 +1,4 @@
+n = 1024
+while n > 0:
+    print n
+    n //= 2

Task/Loops-While/R/loops-while.r

@@ -0,0 +1,6 @@
+i <- 1024L
+while(i > 0)
+{
+   print(i)
+   i <- i %/% 2
+}

Task/Loops-While/REXX/loops-while-1.rexx

@@ -0,0 +1,6 @@
+/*REXX program to show a     DO  WHILE     construct. */
+j=1024
+         do while j>0
+         say j
+         j=j%2                /*in REXX, %  is integer division. */
+         end

Task/Loops-While/REXX/loops-while-2.rexx

@@ -0,0 +1,6 @@
+/*REXX program to show a     DO  WHILE     construct. */
+x=1024
+         do while x>0
+         say right(x,10)      /*pretty up the output by aligning.*/
+         x=x%2                /*in REXX, %  is integer division. */
+         end

Task/Loops-While/REXX/loops-while-3.rexx

@@ -0,0 +1,6 @@
+/*REXX program to show a     DO  WHILE     construct. */
+x=1024
+         do while x>>0        /*this is an exact comparison.     */
+         say right(x,10)      /*pretty up the output by aligning.*/
+         x=x%2                /*in REXX, %  is integer division. */
+         end

Task/Loops-While/Racket/loops-while.rkt

@@ -0,0 +1,5 @@
+#lang racket
+(let loop ([n 1024])
+  (when (positive? n)
+    (displayln n)
+    (loop (quotient n 2))))

Task/Loops-While/Ruby/loops-while-1.rb

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

Task/Loops-While/Ruby/loops-while-2.rb

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

Task/Loops-While/Ruby/loops-while-3.rb

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

Task/Loops-While/Sather/loops-while.sa

@@ -0,0 +1,9 @@
+class MAIN is
+  main is
+    i ::= 1024;
+    loop while!(i > 0);
+      #OUT + i + "\n";
+      i := i / 2;
+    end;
+  end;
+end;

Task/Loops-While/Scala/loops-while.scala

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

Task/Loops-While/Scheme/loops-while.ss

@@ -0,0 +1,4 @@
+(do ((n 1024 (quotient n 2)))
+    ((<= n 0))
+    (display n)
+    (newline))

Task/Loops-While/Smalltalk/loops-while-1.st

@@ -0,0 +1,4 @@
+number := 1024.
+[ number > 0 ] whileTrue:
+  [ Transcript print: number; nl.
+  number := number // 2 ]

Task/Loops-While/Smalltalk/loops-while-2.st

@@ -0,0 +1,4 @@
+number := 1024.
+[ number <= 0 ] whileFalse:
+  [ Transcript print: number; nl.
+  number := number // 2 ]

Task/Loops-While/Tcl/loops-while.tcl

@@ -0,0 +1,5 @@
+set i 1024
+while {$i > 0} {
+    puts $i
+    set i [expr {$i / 2}]
+}