A-M baby

Task/Loops-Downward-for/0DESCRIPTION

@@ -0,0 +1 @@
+Write a for loop which writes a countdown from 10 to 0.

Task/Loops-Downward-for/1META.yaml

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

Task/Loops-Downward-for/6502-Assembly/loops-downward-for.6502

@@ -0,0 +1,38 @@
+;An OS/hardware specific routine that is setup to display the Ascii character
+;value contained in the Accumulator
+Send 		= 	$9000		;routine not implemented here
+PrintNewLine	=	$9050		;routine not implemented here
+
+  		*= 	$8000		;set base address
+Start		PHA			;push Accumulator and Y register onto stack
+		TYA
+		PHA
+		LDY 	#10		;set Y register to loop start value
+		TYA			;place loop value in the Accumulator
+Loop		JSR	PrintTwoDigits
+		JSR   PrintNewLine
+		DEY			;decrement loop value
+		BPL	Loop		;continue loop if sign flag is clear
+		PLA			;pop Y register and Accumulator off of stack
+		TAY
+		PLA
+		RTS			;exit
+				
+;Print value in Accumulator as two hex digits
+PrintTwoDigits
+		PHA
+		LSR
+		LSR
+		LSR
+		LSR
+		JSR     PrintDigit
+		PLA
+		AND     #$0F
+		JSR     PrintDigit
+		RTS
+				
+;Convert value in Accumulator to an Ascii hex digit
+PrintDigit
+		ORA	#$30
+		JSR	Send		;routine not implemented here
+		RTS

Task/Loops-Downward-for/ALGOL-68/loops-downward-for-1.alg

@@ -0,0 +1,3 @@
+FOR i FROM 10 BY -1 TO 0 DO
+    print((i,new line))
+OD

Task/Loops-Downward-for/ALGOL-68/loops-downward-for-2.alg

@@ -0,0 +1,3 @@
+FOR i FROM 10 DOWNTO 0 DO
+    print((i,new line))
+OD

Task/Loops-Downward-for/AWK/loops-downward-for.awk

@@ -0,0 +1,5 @@
+BEGIN {
+  for(i=10; i>=0; i--) {
+     print i
+  }
+}

Task/Loops-Downward-for/Ada/loops-downward-for.ada

@@ -0,0 +1,3 @@
+for I in reverse 0..10 loop
+   Put_Line(Integer'Image(I));
+end loop;

Task/Loops-Downward-for/AmigaE/loops-downward-for.amiga

@@ -0,0 +1,6 @@
+PROC main()
+  DEF i
+  FOR i := 10 TO 0 STEP -1
+    WriteF('\d\n', i)
+  ENDFOR
+ENDPROC

Task/Loops-Downward-for/AutoHotkey/loops-downward-for.ahk

@@ -0,0 +1,7 @@
+x := 10
+While (x >= 0)
+{
+  output .= "`n" . x
+  x--
+}
+MsgBox % output

Task/Loops-Downward-for/BASIC/loops-downward-for.bas

@@ -0,0 +1,3 @@
+for i = 10 to 0 step -1
+   print i
+next i

Task/Loops-Downward-for/BBC-BASIC/loops-downward-for.bbc

@@ -0,0 +1,3 @@
+      FOR i% = 10 TO 0 STEP -1
+        PRINT i%
+      NEXT

Task/Loops-Downward-for/Befunge/loops-downward-for.bf

@@ -0,0 +1,2 @@
+55+>:.:v
+   ^ -1_@

Task/Loops-Downward-for/Bracmat/loops-downward-for.bracmat

@@ -0,0 +1,2 @@
+  10:?i
+& whl'(out$!i&!i+-1:~<0:?i)

Task/Loops-Downward-for/Brat/loops-downward-for.brat

@@ -0,0 +1 @@
+10.to 0 { n | p n }

Task/Loops-Downward-for/C++/loops-downward-for.cpp

@@ -0,0 +1,2 @@
+for(int i = 10; i >= 0; --i)
+  std::cout << i << "\n";

Task/Loops-Downward-for/C/loops-downward-for.c

@@ -0,0 +1,3 @@
+int i;
+for(i = 10; i >= 0; --i)
+  printf("%d\n",i);

Task/Loops-Downward-for/Clojure/loops-downward-for.clj

@@ -0,0 +1 @@
+(doseq [x (range 10 -1 -1)] (println x))

Task/Loops-Downward-for/CoffeeScript/loops-downward-for.coffee

@@ -0,0 +1,9 @@
+# The more compact "array comprehension" style
+console.log i for i in [10..0]
+
+# The "regular" for loop style.
+for i in [10..0]
+	console.log i
+
+# More compact version of the above
+for i in [10..0] then console.log i

Task/Loops-Downward-for/ColdFusion/loops-downward-for-1.cfm

@@ -0,0 +1,3 @@
+<cfloop index = "i" from = "10" to = "0" step = "-1">
+  #i#
+</cfloop>

Task/Loops-Downward-for/ColdFusion/loops-downward-for-2.cfm

@@ -0,0 +1,6 @@
+<cfscript>
+  for( i = 10; i <= 0; i-- )
+  {
+    writeOutput( i );
+  }
+</cfscript>

Task/Loops-Downward-for/Common-Lisp/loops-downward-for.lisp

@@ -0,0 +1,2 @@
+(loop for i from 10 downto 1 do
+  (print i))

Task/Loops-Downward-for/D/loops-downward-for.d

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

Task/Loops-Downward-for/DWScript/loops-downward-for.dwscript

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

Task/Loops-Downward-for/E/loops-downward-for.e

@@ -0,0 +1 @@
+for i in (0..10).descending() { println(i) }

Task/Loops-Downward-for/EGL/loops-downward-for.egl

@@ -0,0 +1,3 @@
+for ( i int from 10 to 0 decrement by 1 )
+   SysLib.writeStdout( i );
+end

Task/Loops-Downward-for/Ela/loops-downward-for-1.ela

@@ -0,0 +1,3 @@
+open console imperative
+
+each writen [10,9..0]

Task/Loops-Downward-for/Ela/loops-downward-for-2.ela

@@ -0,0 +1,2 @@
+each f (x::xs) = f x $ each f xs
+each _ []      = ()

Task/Loops-Downward-for/Ela/loops-downward-for-3.ela

@@ -0,0 +1,6 @@
+open console
+
+countDown m n | n < m = ()
+              | else = writen n $ countDown m (n-1)
+
+countDown 0 10

Task/Loops-Downward-for/Euphoria/loops-downward-for.euphoria

@@ -0,0 +1,3 @@
+for i = 10 to 0 by -1 do
+    ? i
+end for

Task/Loops-Downward-for/FALSE/loops-downward-for.false

@@ -0,0 +1 @@
+10[$0>][$." "1-]#.

Task/Loops-Downward-for/Factor/loops-downward-for.factor

@@ -0,0 +1 @@
+11 iota <reversed> [ . ] each

Task/Loops-Downward-for/Fantom/loops-downward-for.fantom

@@ -0,0 +1,10 @@
+class DownwardFor
+{
+  public static Void main ()
+  {
+    for (Int i := 10; i >= 0; i--)
+    {
+      echo (i)
+    }
+  }
+}

Task/Loops-Downward-for/Forth/loops-downward-for.fth

@@ -0,0 +1 @@
+: loop-down  0 10 do  i .  -1 +loop ;

Task/Loops-Downward-for/Fortran/loops-downward-for-1.f

@@ -0,0 +1,3 @@
+DO i = 10, 0, -1
+  WRITE(*, *) i
+END DO

Task/Loops-Downward-for/Fortran/loops-downward-for-2.f

@@ -0,0 +1,12 @@
+      PROGRAM DOWNWARDFOR
+C Initialize the loop parameters.
+        INTEGER I, START, FINISH, STEP
+        PARAMETER (START = 10, FINISH = 0, STEP = -1)
+
+C If you were to leave off STEP, it would default to positive one.
+        DO 10 I = START, FINISH, STEP
+          WRITE (*,*) I
+   10   CONTINUE
+
+        STOP
+      END

Task/Loops-Downward-for/GML/loops-downward-for.gml

@@ -0,0 +1,2 @@
+for(i = 10; i >= 0; i += 1)
+    show_message(string(i))

Task/Loops-Downward-for/Go/loops-downward-for.go

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

Task/Loops-Downward-for/Groovy/loops-downward-for.groovy

@@ -0,0 +1,3 @@
+for (i in (10..0)) {
+    println i
+}

Task/Loops-Downward-for/Haskell/loops-downward-for.hs

@@ -0,0 +1,2 @@
+import Control.Monad
+forM_ [10,9..0] print

Task/Loops-Downward-for/HicEst/loops-downward-for.hicest

@@ -0,0 +1,3 @@
+DO i = 10, 0, -1
+  WRITE() i
+ENDDO

Task/Loops-Downward-for/IDL/loops-downward-for-1.idl

@@ -0,0 +1 @@
+for i=10,0,-1 do print,i

Task/Loops-Downward-for/IDL/loops-downward-for-2.idl

@@ -0,0 +1 @@
+print,10-indgen(11)

Task/Loops-Downward-for/Icon/loops-downward-for.icon

@@ -0,0 +1,3 @@
+every i := 10 to 0 by -1 do {
+   # things to do within the loop
+   }

Task/Loops-Downward-for/Inform-6/loops-downward-for.inf

@@ -0,0 +1,2 @@
+for(i = 10: i >= 0: i--)
+    print i, "^";

Task/Loops-Downward-for/J/loops-downward-for.j

@@ -0,0 +1,6 @@
+3 : 0 ] 11
+        for_i. i. - y do.
+            i 1!:2 ]2
+        end.
+     i.0 0
+   )

Task/Loops-Downward-for/Java/loops-downward-for.java

@@ -0,0 +1,3 @@
+for(i = 10; i >= 0; --i){
+   System.out.println(i);
+}

Task/Loops-Downward-for/JavaScript/loops-downward-for.js

@@ -0,0 +1 @@
+for (var i=10; i>=0; --i) print(i);

Task/Loops-Downward-for/Liberty-BASIC/loops-downward-for.liberty

@@ -0,0 +1,4 @@
+for i = 10 to 0 step -1
+   print i
+next i
+end

Task/Loops-Downward-for/Lisaac/loops-downward-for.lisaac

@@ -0,0 +1,4 @@
+10.downto 0 do { i : INTEGER;
+  i.println;
+
+};

Task/Loops-Downward-for/Logo/loops-downward-for.logo

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

Task/Loops-Downward-for/Lua/loops-downward-for.lua

@@ -0,0 +1,3 @@
+for i=10,0,-1 do
+  print(i)
+end

Task/Loops-Downward-for/M4/loops-downward-for.m4

@@ -0,0 +1,7 @@
+define(`for',
+   `ifelse($#,0,``$0'',
+   `ifelse(eval($2 $3),1,
+   `pushdef(`$1',$2)$5`'popdef(`$1')$0(`$1',eval($2+$4),$3,$4,`$5')')')')dnl
+
+for(`x',`10',`>=0',`-1',`x
+')

Task/Loops-Downward-for/MATLAB/loops-downward-for-1.m

@@ -0,0 +1,3 @@
+    for k = 10:-1:0,
+        printf('%d\n',k)
+    end;

Task/Loops-Downward-for/MATLAB/loops-downward-for-2.m

@@ -0,0 +1 @@
+  printf('%d\n',10:-1:0);

Task/Loops-Downward-for/MAXScript/loops-downward-for.max

@@ -0,0 +1 @@
+for i in 10 to 0 by -1 do print i

Task/Loops-Downward-for/MUMPS/loops-downward-for.mumps

@@ -0,0 +1,3 @@
+LOOPDOWN
+ NEW I FOR I=10:-1:1 WRITE I WRITE:I'=1 ", "
+ KILL I QUIT

Task/Loops-Downward-for/Maple/loops-downward-for-1.maple

@@ -0,0 +1 @@
+for i from 10 to 0 by -1 do print(i) end:

Task/Loops-Downward-for/Maple/loops-downward-for-2.maple

@@ -0,0 +1 @@
+seq(print(i),i=10..0,-1)

Task/Loops-Downward-for/Mathematica/loops-downward-for-1.mathematica

@@ -0,0 +1 @@
+For[i = 10, i >= 0, i--, Print[i]]

Task/Loops-Downward-for/Mathematica/loops-downward-for-2.mathematica

@@ -0,0 +1 @@
+Do[Print[i], {i, 10, 0, -1}]

Task/Loops-Downward-for/Mathematica/loops-downward-for-3.mathematica

@@ -0,0 +1 @@
+Scan[Print, Range[10, 0, -1]]

Task/Loops-Downward-for/Maxima/loops-downward-for.maxima

@@ -0,0 +1 @@
+for i from 10 thru 0 step -1 do print(i);

Task/Loops-Downward-for/Mercury/loops-downward-for.mercury

@@ -0,0 +1,14 @@
+:- module loops_downward_for.
+:- interface.
+
+:- import_module io.
+:- pred main(io::di, io::uo) is det.
+
+:- implementation.
+:- import_module int.
+
+main(!IO) :-
+   Print = (pred(I::in, !.IO::di, !:IO::uo) is det :-
+       io.write_int(I, !IO), io.nl(!IO)
+   ),
+   int.fold_down(Print, 1, 10, !IO).

Task/Loops-Downward-for/Metafont/loops-downward-for-1.metafont

@@ -0,0 +1,2 @@
+for i = 10 step -1 until 0: show i; endfor
+end

Task/Loops-Downward-for/Metafont/loops-downward-for-2.metafont

@@ -0,0 +1 @@
+for i = 10 downto 0: show i; endfor end

Task/Loops-Downward-for/Modula-2/loops-downward-for.mod2

@@ -0,0 +1,12 @@
+MODULE Downward;
+  IMPORT InOut;
+
+  VAR
+    i: INTEGER;
+
+BEGIN
+  FOR i := 10 TO 0 BY -1 DO
+    InOut.WriteInt(i, 2);
+    InOut.WriteLn
+  END
+END Downward.

Task/Loops-Downward-for/Modula-3/loops-downward-for.mod3

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

Task/Loops-Downward-for/PHP/loops-downward-for-1.php

@@ -0,0 +1,2 @@
+for ($i = 10; $i >= 0; $i--)
+  echo "$i\n";

Task/Loops-Downward-for/PHP/loops-downward-for-2.php

@@ -0,0 +1,2 @@
+foreach (range(10, 0) as $i)
+  echo "$i\n";

Task/Loops-Downward-for/Perl/loops-downward-for.pl

@@ -0,0 +1,3 @@
+foreach (reverse 0..10) {
+  print "$_\n";
+}

Task/Loops-Downward-for/PicoLisp/loops-downward-for-1.l

@@ -0,0 +1,2 @@
+(for (I 10 (ge0 I) (dec I))
+   (println I) )

Task/Loops-Downward-for/PicoLisp/loops-downward-for-2.l

@@ -0,0 +1 @@
+(mapc println (range 10 0))

Task/Loops-Downward-for/Python/loops-downward-for.py

@@ -0,0 +1,2 @@
+for i in xrange(10, -1, -1):
+    print i

Task/Loops-Downward-for/R/loops-downward-for.r

@@ -0,0 +1 @@
+for(i in 10:0) {print(i)}

Task/Loops-Downward-for/REXX/loops-downward-for-1.rexx

@@ -0,0 +1,3 @@
+  do j=10  to 0  by -1
+  say j
+  end

Task/Loops-Downward-for/REXX/loops-downward-for-2.rexx

@@ -0,0 +1,3 @@
+  do j=10  by -1  to 0
+  say j
+  end

Task/Loops-Downward-for/REXX/loops-downward-for-3.rexx

@@ -0,0 +1,4 @@
+  do j=10  by -2  to 0
+  say j
+  j=j+1     /*this increments the  DO  index.   Do NOT program like this! */
+  end

Task/Loops-Downward-for/REXX/loops-downward-for-4.rexx

@@ -0,0 +1,3 @@
+  do j=30  to 1  by -.25
+  say j
+  end

Task/Loops-Downward-for/Racket/loops-downward-for.rkt

@@ -0,0 +1,4 @@
+#lang racket
+
+(for ([i (in-range 10 -1 -1)])
+  (displayln i))

Task/Loops-Downward-for/Ruby/loops-downward-for.rb

@@ -0,0 +1,3 @@
+10.downto(0) do |i|
+   puts i
+end

Task/Loops-Downward-for/SNUSP/loops-downward-for.snusp

@@ -0,0 +1,3 @@
+++++++++++>++++++++++!/- @!\=@\.@@@-@-----#   atoi
+    \n      counter  #\?>.</  \ @@@+@+++++#   itoa
+                       loop

Task/Loops-Downward-for/Sather/loops-downward-for.sa

@@ -0,0 +1,8 @@
+class MAIN is
+  main is
+    i:INT;
+    loop i := 10.downto!(0);
+       #OUT  + i + "\n";
+    end;
+  end;
+end;

Task/Loops-Downward-for/Scala/loops-downward-for.scala

@@ -0,0 +1,3 @@
+for(i <- 10 to 0 by -1) println(i)
+//or
+10 to 0 by -1 foreach println

Task/Loops-Downward-for/Scheme/loops-downward-for.ss

@@ -0,0 +1,4 @@
+(do ((i 10 (- i 1)))
+    ((< i 0))
+    (display i)
+    (newline))

Task/Loops-Downward-for/Smalltalk/loops-downward-for.st

@@ -0,0 +1,4 @@
+10 to: 1 by: -1 do:[:aNumber |
+  aNumber display.
+  Character space display.
+]

Task/Loops-Downward-for/Tcl/loops-downward-for.tcl

@@ -0,0 +1,4 @@
+for {set i 10} {$i >= 0} {incr i -1} {
+    puts $i
+}
+# puts "We have liftoff!"