langs a-z

Task/Loops-For-with-a-specified-step/Nemerle/loops-for-with-a-specified-step-1.nemerle

@@ -0,0 +1 @@
+for (i = 2; i <= 8; i +=2)

Task/Loops-For-with-a-specified-step/Nemerle/loops-for-with-a-specified-step-2.nemerle

@@ -0,0 +1 @@
+foreach (i in [2, 4 .. 8])

Task/Loops-For-with-a-specified-step/NetRexx/loops-for-with-a-specified-step.netrexx

@@ -0,0 +1,10 @@
+/* NetRexx */
+options replace format comments java crossref savelog symbols nobinary
+
+say
+  say 'Loops/For with a specified step'
+
+  loop i_ = -1.4 to 10.6 by 1.7
+    say i_.format(3, 1) || '\0'
+    end i_
+  say

Task/Loops-For-with-a-specified-step/OCaml/loops-for-with-a-specified-step.ocaml

@@ -0,0 +1,18 @@
+# let for_step a b step fn =
+    let rec aux i =
+      if i <= b then begin
+        fn i;
+        aux (i+step)
+      end
+    in
+    aux a
+  ;;
+val for_step : int -> int -> int -> (int -> 'a) -> unit = <fun>
+
+# for_step 0 8 2  (fun i -> Printf.printf " %d\n" i) ;;
+ 0
+ 2
+ 4
+ 6
+ 8
+- : unit = ()

Task/Loops-For-with-a-specified-step/Objeck/loops-for-with-a-specified-step.objeck

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

Task/Loops-For-with-a-specified-step/Octave/loops-for-with-a-specified-step.octave

@@ -0,0 +1,3 @@
+for i = 1:2:10
+  disp(i)
+endfor

Task/Loops-For-with-a-specified-step/Openscad/loops-for-with-a-specified-step.scad

@@ -0,0 +1,6 @@
+/* Loop from 3 to 9 in steps of 2 */
+
+for ( l = [3:2:9] )  {
+  echo (l);
+}
+echo ("on a double white line.");

Task/Loops-For-with-a-specified-step/Oz/loops-for-with-a-specified-step.oz

@@ -0,0 +1,4 @@
+for I in 2..8;2 do
+   {System.show I}
+end
+{System.show done}

Task/Loops-For-with-a-specified-step/PARI-GP/loops-for-with-a-specified-step-1.pari

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

Task/Loops-For-with-a-specified-step/PARI-GP/loops-for-with-a-specified-step-2.pari

@@ -0,0 +1 @@
+forstep(n=1,100,[2,4,2,2],print(n))

Task/Loops-For-with-a-specified-step/PL-I/loops-for-with-a-specified-step.pli

@@ -0,0 +1,6 @@
+declare (n, i) fixed binary;
+
+get list (n);
+do i = 1 to n by 4;
+   put skip list (i);
+end;

Task/Loops-For-with-a-specified-step/Perl-6/loops-for-with-a-specified-step.pl6

@@ -0,0 +1,5 @@
+for 2, 4 ... 8 {
+    print "$_, ";
+}
+
+say 'whom do we appreciate?';

Task/Loops-For-with-a-specified-step/Pike/loops-for-with-a-specified-step.pike

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

Task/Loops-For-with-a-specified-step/PowerShell/loops-for-with-a-specified-step.psh

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

Task/Loops-For-with-a-specified-step/PureBasic/loops-for-with-a-specified-step.purebasic

@@ -0,0 +1,3 @@
+For i=-15 To 25 Step 5
+  Debug i
+Next i

Task/Loops-For-with-a-specified-step/REBOL/loops-for-with-a-specified-step.rebol

@@ -0,0 +1,3 @@
+for i 2 8 2 [
+	prin rejoin [i ", "]]
+print "who do we appreciate?"

Task/Loops-For-with-a-specified-step/Run-BASIC/loops-for-with-a-specified-step.run

@@ -0,0 +1,4 @@
+for i = 2 to 8 step 2
+   print i; ", ";
+next i
+print "who do we appreciate?"

Task/Loops-For-with-a-specified-step/SAS/loops-for-with-a-specified-step.sas

@@ -0,0 +1,5 @@
+data _null_;
+do i=1 to 10 by 2;
+put i;
+end;
+run;

Task/Loops-For-with-a-specified-step/Salmon/loops-for-with-a-specified-step.salmon

@@ -0,0 +1,3 @@
+for (x; 2; x <= 8; 2)
+    print(x, ", ");;
+print("who do we appreciate?\n");

Task/Loops-For-with-a-specified-step/Seed7/loops-for-with-a-specified-step.seed7

@@ -0,0 +1,10 @@
+$ include "seed7_05.s7i";
+
+const proc: main is func
+  local
+    var integer: number is 0;
+  begin
+    for number range 1 to 10 step 2 do
+      writeln(number);
+    end for;
+  end func;

Task/Loops-For-with-a-specified-step/Slate/loops-for-with-a-specified-step.slate

@@ -0,0 +1,2 @@
+2 to: 8 by: 2 do: [| :i | Console ; i printString ; ', '].
+inform: 'enough with the cheering already!'.

Task/Loops-For-with-a-specified-step/TI-89-BASIC/loops-for-with-a-specified-step.ti-89

@@ -0,0 +1,4 @@
+Local i
+For i, 0, 100, 5
+    Disp i
+EndFor

Task/Loops-For-with-a-specified-step/TUSCRIPT/loops-for-with-a-specified-step.tuscript

@@ -0,0 +1,4 @@
+$$ MODE TUSCRIPT
+LOOP i=2,9,2
+PRINT i
+ENDLOOP

Task/Loops-For-with-a-specified-step/UNIX-Shell/loops-for-with-a-specified-step-1.sh

@@ -0,0 +1,5 @@
+x=2
+while test $x -le 8; do
+	echo $x
+	x=`expr $x + 2` || exit $?
+done

Task/Loops-For-with-a-specified-step/UNIX-Shell/loops-for-with-a-specified-step-2.sh

@@ -0,0 +1 @@
+for x in `jot - 2 8 2`; do echo $x; done

Task/Loops-For-with-a-specified-step/UNIX-Shell/loops-for-with-a-specified-step-3.sh

@@ -0,0 +1,3 @@
+for (( x=2; $x<=8; x=$x+2 )); do
+  printf "%d, " $x
+done

Task/Loops-For-with-a-specified-step/UNIX-Shell/loops-for-with-a-specified-step-4.sh

@@ -0,0 +1,3 @@
+foreach x (`jot - 2 8 2`)
+	echo $x
+end

Task/Loops-For-with-a-specified-step/Vedit-macro-language/loops-for-with-a-specified-step.vedit

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

Task/Loops-For-with-a-specified-step/Vorpal/loops-for-with-a-specified-step.vorpal

@@ -0,0 +1,3 @@
+for(i = 2, i <= 8, i = i + 2){
+   i.print()
+}

Task/Loops-For-with-a-specified-step/XPL0/loops-for-with-a-specified-step.xpl0

@@ -0,0 +1,8 @@
+include c:\cxpl\codes;
+int I;
+[for I:= 2 to 8 do
+        [IntOut(0, I);  Text(0, ", ");
+        I:= I+1;
+        ];
+Text(0, "who do we appreciate?");
+]

Task/Loops-For-with-a-specified-step/ZX-Spectrum-Basic/loops-for-with-a-specified-step.zx

@@ -0,0 +1,4 @@
+10 FOR l = 2 TO 8 STEP 2
+20 PRINT l; ", ";
+30 NEXT l
+40 PRINT "Who do we appreciate?"