langs a-z

Task/Loops-While/Nemerle/loops-while-1.nemerle

@@ -0,0 +1,6 @@
+mutable x = 1024;
+while (x > 0)
+{
+    WriteLine($"$x");
+    x /= 2;
+}

Task/Loops-While/Nemerle/loops-while-2.nemerle

@@ -0,0 +1,11 @@
+// within another function, eg Main()
+def loop(n : int) : void
+{
+    when (n > 0)
+    {
+        WriteLine($"$n");
+        loop(n / 2);
+    }
+}
+
+loop(1024)

Task/Loops-While/NetRexx/loops-while.netrexx

@@ -0,0 +1,11 @@
+/* NetRexx */
+options replace format comments java crossref savelog symbols nobinary
+
+  say
+  say 'Loops/While'
+
+  x_ = 1024
+  loop while x_ > 0
+    say x_.right(6)
+    x_ = x_ % 2 -- integer division
+    end

Task/Loops-While/Nimrod/loops-while.nimrod

@@ -0,0 +1,4 @@
+var n: int = 1024
+while n > 0:
+  echo(n)
+  n = n div 2

Task/Loops-While/OCaml/loops-while-1.ocaml

@@ -0,0 +1,5 @@
+let n = ref 1024;;
+while !n > 0 do
+  Printf.printf "%d\n" !n;
+  n := !n / 2
+done;;

Task/Loops-While/OCaml/loops-while-2.ocaml

@@ -0,0 +1,6 @@
+let rec loop n =
+  if n > 0 then begin
+    Printf.printf "%d\n" n;
+    loop (n / 2)
+  end
+in loop 1024

Task/Loops-While/Oberon-2/loops-while.oberon-2

@@ -0,0 +1,10 @@
+PROCEDURE DivBy2*();
+  VAR i: INTEGER;
+BEGIN
+  i := 1024;
+  WHILE i > 0 DO
+    Out.Int(i,0);
+    Out.Ln;
+    i := i DIV 2;
+  END;
+END DivBy2;

Task/Loops-While/Objeck/loops-while.objeck

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

Task/Loops-While/Octave/loops-while.octave

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

Task/Loops-While/Oz/loops-while-1.oz

@@ -0,0 +1,3 @@
+for I in 1024; I>0; I div 2 do
+   {Show I}
+end

Task/Loops-While/Oz/loops-while-2.oz

@@ -0,0 +1,7 @@
+declare
+  I = {NewCell 1024}
+in
+  for while:@I > 0 do
+     {Show @I}
+     I := @I div 2
+  end

Task/Loops-While/PARI-GP/loops-while.pari

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

Task/Loops-While/PL-I/loops-while.pli

@@ -0,0 +1,6 @@
+declare i fixed binary initial (1024);
+
+do while (i>0);
+   put skip list (i);
+   i = i / 2;
+end;

Task/Loops-While/Pascal/loops-while.pascal

@@ -0,0 +1,13 @@
+program divby2(output);
+
+var
+  i: integer;
+
+begin
+  i := 1024;
+  while i > 0 do
+    begin
+      writeln(i);
+      i := i div 2
+    end
+end.

Task/Loops-While/Perl-6/loops-while-1.pl6

@@ -0,0 +1 @@
+my $n = 1024; while $n > 0 { say $n; $n div= 2 }

Task/Loops-While/Perl-6/loops-while-2.pl6

@@ -0,0 +1 @@
+loop (my $n = 1024; $n > 0; $n +>= 1) { say $n }

Task/Loops-While/Perl-6/loops-while-3.pl6

@@ -0,0 +1 @@
+.say for 1024, 512, 256 ... 1

Task/Loops-While/Pike/loops-while.pike

@@ -0,0 +1,7 @@
+int main(){
+   int i = 1024;
+   while(i > 0){
+      write(i + "\n");
+      i = i / 2;
+   }
+}

Task/Loops-While/Pop11/loops-while.pop11

@@ -0,0 +1,5 @@
+lvars i = 1024;
+while i > 0 do
+    printf(i, '%p\n');
+    i div 2 -> i;
+endwhile;

Task/Loops-While/PostScript/loops-while.ps

@@ -0,0 +1,9 @@
+1024
+{
+    dup 0 le     % check whether still greater than 0
+    { pop exit } % if not, exit the loop
+    if
+    dup =        % print the number
+    2 idiv       % divide by two
+}
+loop

Task/Loops-While/PowerShell/loops-while.psh

@@ -0,0 +1,5 @@
+[int]$i = 1024
+while ($i -gt 0) {
+    $i
+    $i /= 2
+}

Task/Loops-While/PureBasic/loops-while.purebasic

@@ -0,0 +1,12 @@
+If OpenConsole()
+
+  x.i = 1024
+  While x > 0
+    PrintN(Str(x))
+    x / 2
+  Wend
+
+  Print(#CRLF$ + #CRLF$ + "Press ENTER to exit")
+  Input()
+  CloseConsole()
+EndIf

Task/Loops-While/REBOL/loops-while.rebol

@@ -0,0 +1,12 @@
+REBOL [
+	Title: "Loop/While"
+	Author: oofoe
+	Date: 2009-12-19
+	URL: http://rosettacode.org/wiki/Loop/While
+]
+
+value: 1024
+while [value > 0][
+	print value
+	value: to-integer value / 2
+]

Task/Loops-While/Retro/loops-while.retro

@@ -0,0 +1 @@
+1024 [ cr &putn sip 2 / dup ] while

Task/Loops-While/Run-BASIC/loops-while.run

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

Task/Loops-While/SAS/loops-while.sas

@@ -0,0 +1,7 @@
+data _null_;
+n=1024;
+do while(n>0);
+  put n;
+  n=int(n/2);
+end;
+run;

Task/Loops-While/Seed7/loops-while.seed7

@@ -0,0 +1,11 @@
+$ include "seed7_05.s7i";
+
+const proc: main is func
+  local
+    var integer: i is 1024;
+  begin
+    while i > 0 do
+      writeln(i);
+      i := i div 2
+    end while;
+  end func;

Task/Loops-While/Slate/loops-while.slate

@@ -0,0 +1,4 @@
+#n := 1024.
+[n isPositive] whileTrue:
+  [inform: number printString.
+   n := n // 2]

Task/Loops-While/Standard-ML/loops-while-1.ml

@@ -0,0 +1,5 @@
+val n = ref 1024;
+while !n > 0 do (
+  print (Int.toString (!n) ^ "\n");
+  n := !n div 2
+)

Task/Loops-While/Standard-ML/loops-while-2.ml

@@ -0,0 +1,9 @@
+let
+  fun loop n =
+    if n > 0 then (
+      print (Int.toString n ^ "\n");
+      loop (n div 2)
+    ) else ()
+in
+  loop 1024
+end

Task/Loops-While/Suneido/loops-while-1.suneido

@@ -0,0 +1,6 @@
+i = 1024
+while (i > 0)
+    {
+    Print(i)
+    i = (i / 2).Floor()
+    }

Task/Loops-While/Suneido/loops-while-2.suneido

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

Task/Loops-While/TI-89-BASIC/loops-while.ti-89

@@ -0,0 +1,6 @@
+Local i
+1024 → i
+While i > 0
+  Disp i
+  intDiv(i, 2) → i
+EndWhile

Task/Loops-While/TUSCRIPT/loops-while.tuscript

@@ -0,0 +1,7 @@
+$$ MODE TUSCRIPT
+i=1024
+LOOP
+   PRINT i
+   i=i/2
+   IF (i==0) EXIT
+ENDLOOP

Task/Loops-While/TorqueScript/loops-while.torquescript

@@ -0,0 +1,6 @@
+%num = 1024;
+while(%num > 0)
+{
+    echo(%num);
+    %num = mFloor(%num / 2);
+}

Task/Loops-While/Trith/loops-while-1.trith

@@ -0,0 +1 @@
+1024 [dup print 2 / floor] [dup 0 >] while drop

Task/Loops-While/Trith/loops-while-2.trith

@@ -0,0 +1 @@
+1024 [dup print 1 shr] [dup 0 >] while drop

Task/Loops-While/UNIX-Shell/loops-while.sh

@@ -0,0 +1,5 @@
+x=1024
+while [[ $x -gt 0 ]]; do
+  echo $x
+  x=$(( $x/2 ))
+done

Task/Loops-While/UnixPipes/loops-while.unixpipes

@@ -0,0 +1,3 @@
+(echo 1024>p.res;tail -f p.res) | while read a ; do
+   test $a -gt 0 && (expr $a / 2  >> p.res ; echo $a) || exit 0
+done

Task/Loops-While/Ursala/loops-while-1.ursala

@@ -0,0 +1,7 @@
+#import nat
+
+g = ~&h-> ^C/half@h ~&
+
+#show+
+
+main = %nP*=tx g <1024>

Task/Loops-While/Ursala/loops-while-2.ursala

@@ -0,0 +1 @@
+main = %nP*=tK33 1024

Task/Loops-While/V/loops-while.v

@@ -0,0 +1,4 @@
+1024 [0 >] [
+   dup puts
+   2 / >int
+] while

Task/Loops-While/Vedit-macro-language/loops-while-1.vedit

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

Task/Loops-While/Vedit-macro-language/loops-while-2.vedit

@@ -0,0 +1,3 @@
+for (#1 = 1024; #1 > 0; #1 /= 2) {
+    Num_Type(#1)
+}

Task/Loops-While/Visual-Basic-.NET/loops-while.visual

@@ -0,0 +1,5 @@
+Dim x = 1024
+Do
+    Console.WriteLine(x)
+    x = x \ 2
+Loop While x > 0

Task/Loops-While/Whitespace/loops-while-2.ws

@@ -0,0 +1,8 @@
+push 1024
+
+0:
+    dup onum push 10 ochr
+    push 2 div dup
+    push 0 swap sub
+        jn 0
+        pop exit

Task/Loops-While/XPL0/loops-while.xpl0

@@ -0,0 +1,8 @@
+code CrLf=9, IntOut=11;
+int I;
+[I:= 1024;
+while I>0 do
+        [IntOut(0, I);  CrLf(0);
+        I:= I>>1;       \(same as I/2 for positive I)
+        ];
+]