langs a-z

Task/Loops-Downward-for/Nemerle/loops-downward-for-1.nemerle

@@ -0,0 +1 @@
+for (i = 10; i >= 0; i--) {WriteLine($"$i")}

Task/Loops-Downward-for/Nemerle/loops-downward-for-2.nemerle

@@ -0,0 +1 @@
+foreach (i in [10, 9 .. 0]) {WriteLine($"$i")}

Task/Loops-Downward-for/NetRexx/loops-downward-for.netrexx

@@ -0,0 +1,9 @@
+/* NetRexx */
+options replace format comments java crossref savelog symbols nobinary
+
+  say
+  say 'Loops/Downward for'
+
+  loop i_ = 10 to 0 by -1
+    say i_.right(2)
+    end i_

Task/Loops-Downward-for/OCaml/loops-downward-for.ocaml

@@ -0,0 +1,3 @@
+for i = 10 downto 0 do
+  Printf.printf "%d\n" i
+done

Task/Loops-Downward-for/Oberon-2/loops-downward-for.oberon-2

@@ -0,0 +1,3 @@
+FOR i := 10 TO 0 BY -1 DO
+  Out.Int(i,0);
+END;

Task/Loops-Downward-for/Objeck/loops-downward-for.objeck

@@ -0,0 +1,3 @@
+for(i := 10; i >= 0; i -= 1;) {
+   i->PrintLine();
+};

Task/Loops-Downward-for/Octave/loops-downward-for.octave

@@ -0,0 +1,3 @@
+for i = 10:-1:0
+  % ...
+endfor

Task/Loops-Downward-for/Oz/loops-downward-for.oz

@@ -0,0 +1,3 @@
+for I in 10..0;~1 do
+   {Show I}
+end

Task/Loops-Downward-for/PARI-GP/loops-downward-for.pari

@@ -0,0 +1 @@
+forstep(n=10,0,-1,print(n))

Task/Loops-Downward-for/PL-I/loops-downward-for.pli

@@ -0,0 +1,3 @@
+do i = 10 to 0 by -1;
+   put skip list (i);
+end;

Task/Loops-Downward-for/Pascal/loops-downward-for.pascal

@@ -0,0 +1,2 @@
+for i := 10 downto 0 do
+  writeln(i);

Task/Loops-Downward-for/Perl-6/loops-downward-for.pl6

@@ -0,0 +1,3 @@
+for 10 ... 0 {
+    .say;
+}

Task/Loops-Downward-for/Pike/loops-downward-for.pike

@@ -0,0 +1,5 @@
+int main(){
+   for(int i = 10; i >= 0; i--){
+      write(i + "\n");
+   }
+}

Task/Loops-Downward-for/Pop11/loops-downward-for.pop11

@@ -0,0 +1,4 @@
+lvars i;
+for i from 10 by -1 to 0 do
+   printf(i, '%p\n');
+endfor;

Task/Loops-Downward-for/PowerShell/loops-downward-for-1.psh

@@ -0,0 +1,3 @@
+for ($i = 10; $i -ge 0; $i--) {
+    $i
+}

Task/Loops-Downward-for/PowerShell/loops-downward-for-2.psh

@@ -0,0 +1 @@
+10..0

Task/Loops-Downward-for/PureBasic/loops-downward-for.purebasic

@@ -0,0 +1,3 @@
+For i=10 To 0 Step -1
+  Debug i
+Next

Task/Loops-Downward-for/REBOL/loops-downward-for.rebol

@@ -0,0 +1 @@
+for i 10 0 -1 [print i]

Task/Loops-Downward-for/Retro/loops-downward-for.retro

@@ -0,0 +1 @@
+11 [ putn space ] iterd

Task/Loops-Downward-for/Salmon/loops-downward-for.salmon

@@ -0,0 +1,2 @@
+for (x; 10; x >= 0; -1)
+    x!;

Task/Loops-Downward-for/Seed7/loops-downward-for.seed7

@@ -0,0 +1,3 @@
+for i range 10 downto 0 do
+  writeln(i);
+end for;

Task/Loops-Downward-for/Slate/loops-downward-for.slate

@@ -0,0 +1 @@
+10 downTo: 1 do: [| :n | print: n]

Task/Loops-Downward-for/TI-83-BASIC/loops-downward-for.ti-83

@@ -0,0 +1,3 @@
+:For(I,10,0,–1)
+  :Disp I
+:End

Task/Loops-Downward-for/TI-89-BASIC/loops-downward-for.ti-89

@@ -0,0 +1,4 @@
+Local i
+For i, 10, 0, –1
+  Disp i
+EndFor

Task/Loops-Downward-for/TUSCRIPT/loops-downward-for.tuscript

@@ -0,0 +1,4 @@
+$$ MODE TUSCRIPT
+LOOP n=10,0,-1
+ PRINT n
+ENDLOOP

Task/Loops-Downward-for/Trith/loops-downward-for-1.trith

@@ -0,0 +1 @@
+10 inc iota reverse [print] each

Task/Loops-Downward-for/Trith/loops-downward-for-2.trith

@@ -0,0 +1 @@
+10 [dup print dec] [dup 0 >=] while drop

Task/Loops-Downward-for/UNIX-Shell/loops-downward-for-1.sh

@@ -0,0 +1,5 @@
+i=10
+while test $i -ge 0; do
+	echo $i
+	i=`expr $i - 1`
+done

Task/Loops-Downward-for/UNIX-Shell/loops-downward-for-2.sh

@@ -0,0 +1,3 @@
+for(( Z=10; Z>=0; Z-- )); do
+    echo $Z
+done

Task/Loops-Downward-for/UNIX-Shell/loops-downward-for-3.sh

@@ -0,0 +1,3 @@
+for i in `jot - 10 0 -1`; do
+	echo $i
+done

Task/Loops-Downward-for/UNIX-Shell/loops-downward-for-4.sh

@@ -0,0 +1,6 @@
+for i in `seq 10 -1 0`; do
+	echo $i
+done
+
+# or better yet
+seq 10 -1 0

Task/Loops-Downward-for/UnixPipes/loops-downward-for.unixpipes

@@ -0,0 +1,3 @@
+yes '' | cat -n | head -n 11 | while read n; do
+	expr $n - 1
+done | tail -r

Task/Loops-Downward-for/V/loops-downward-for.v

@@ -0,0 +1,4 @@
+10
+[0 >]
+  [dup puts pred]
+while

Task/Loops-Downward-for/Vedit-macro-language/loops-downward-for.vedit

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

Task/Loops-Downward-for/Visual-Basic-.NET/loops-downward-for.visual

@@ -0,0 +1,3 @@
+For i = 10 To 0 Step -1
+    Console.WriteLine(i)
+Next

Task/Loops-Downward-for/XPL0/loops-downward-for.xpl0

@@ -0,0 +1,4 @@
+include c:\cxpl\codes;          \intrinsic 'code' declarations
+int I;
+for I:= 10 downto 0 do
+        [IntOut(0, I); CrLf(0)]

Task/Loops-Downward-for/ZX-Spectrum-Basic/loops-downward-for.zx

@@ -0,0 +1,3 @@
+10 FOR l = 10 TO 0 STEP -1
+20 PRINT l
+30 NEXT l