langs a-z

Task/Integer-sequence/NetRexx/integer-sequence-1.netrexx

@@ -0,0 +1,10 @@
+/* NetRexx */
+options replace format comments java crossref symbols binary
+
+k_ = Rexx
+bigDigits = 999999999 -- Maximum setting for digits allowed by NetRexx
+numeric digits bigDigits
+
+loop k_ = 1
+  say k_
+  end k_

Task/Integer-sequence/NetRexx/integer-sequence-2.netrexx

@@ -0,0 +1,15 @@
+/* NetRexx */
+options replace format comments java crossref symbols binary
+
+import java.math.BigInteger
+
+-- allow an option to change the output radix.
+parse arg radix .
+if radix.length() == 0 then radix = 10 -- default to decimal
+k_ = BigInteger
+k_ = BigInteger.ZERO
+
+loop forever
+  k_ = k_.add(BigInteger.ONE)
+  say k_.toString(int radix)
+  end

Task/Integer-sequence/Nimrod/integer-sequence.nimrod

@@ -0,0 +1,4 @@
+var i:int64 = 0
+while true:
+    i = i + 1
+    echo(i)

Task/Integer-sequence/OCaml/integer-sequence-1.ocaml

@@ -0,0 +1,7 @@
+let () =
+  let i = ref 0 in
+  while true do
+    print_int !i;
+    print_newline ();
+    incr i;
+  done

Task/Integer-sequence/OCaml/integer-sequence-2.ocaml

@@ -0,0 +1,7 @@
+let () =
+  let rec aux i =
+    print_int i;
+    print_newline ();
+    aux (succ i)
+  in
+  aux 0

Task/Integer-sequence/Objeck/integer-sequence.objeck

@@ -0,0 +1,11 @@
+bundle Default {
+  class Count {
+    function : Main(args : String[]) ~ Nil {
+      i := 0;
+      do {
+        i->PrintLine();
+        i += 1;
+      } while(i <> 0);
+    }
+  }
+}

Task/Integer-sequence/OpenEdge-Progress/integer-sequence-1.openedge

@@ -0,0 +1,6 @@
+DEF VAR ii AS INTEGER FORMAT "->>>>>>>>9" NO-UNDO.
+
+DO WHILE TRUE:
+   ii = ii + 1.
+   DISPLAY ii.
+END.

Task/Integer-sequence/OpenEdge-Progress/integer-sequence-2.openedge

@@ -0,0 +1,6 @@
+DEF VAR ii AS INT64 FORMAT "->>>>>>>>>>>>>>>>>>9" NO-UNDO.
+
+DO WHILE TRUE:
+   ii = ii + 1.
+   DISPLAY ii.
+END.

Task/Integer-sequence/OpenEdge-Progress/integer-sequence-3.openedge

@@ -0,0 +1,6 @@
+DEF VAR de AS DECIMAL FORMAT "->>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>9" NO-UNDO.
+
+DO WHILE TRUE:
+   de = de + 1.
+   DISPLAY de.
+END.

Task/Integer-sequence/Order/integer-sequence-1.order

@@ -0,0 +1,8 @@
+#include <order/interpreter.h>
+
+#define ORDER_PP_DEF_8printloop ORDER_PP_FN( \
+8fn(8N,                                      \
+    8do(8print(8to_lit(8N) 8comma 8space),   \
+        8printloop(8inc(8N)))) )
+
+ORDER_PP( 8printloop(1) )

Task/Integer-sequence/Order/integer-sequence-2.order

@@ -0,0 +1,8 @@
+#include <order/interpreter.h>
+
+#define ORDER_PP_DEF_8printloop ORDER_PP_FN( \
+8fn(8N,                                      \
+    8do(8print(8to_lit(8N) 8comma 8space),   \
+        8when(8less(8N, 99), 8printloop(8inc(8N))))) )
+
+ORDER_PP( 8printloop(1) )   // 1, ..., 99,

Task/Integer-sequence/PARI-GP/integer-sequence.pari

@@ -0,0 +1 @@
+n=0; while(1,print(++n))

Task/Integer-sequence/PL-I/integer-sequence.pli

@@ -0,0 +1,5 @@
+infinity: procedure options (main);
+   declare k fixed decimal (30);
+   put skip edit
+      ((k do k = 1 to 999999999999999999999999999998))(f(31));
+end infinity;

Task/Integer-sequence/Pascal/integer-sequence-1.pascal

@@ -0,0 +1,9 @@
+Program IntegerSequenceLimited;
+var
+  Number: QWord = 0; // 8 bytes, unsigned: 0 .. 18446744073709551615
+begin
+  repeat
+    writeln(Number);
+    inc(Number);
+  until false;
+end.

Task/Integer-sequence/Pascal/integer-sequence-2.pascal

@@ -0,0 +1,15 @@
+Program IntegerSequenceUnlimited;
+
+uses
+  gmp;
+
+var
+  Number: mpz_t;
+
+begin
+  mpz_init(Number); //* zero now *//
+  repeat
+    mp_printf('%Zd' + chr(13) + chr(10), @Number);
+    mpz_add_ui(Number, Number, 1); //* increase Number *//
+  until false;
+end.

Task/Integer-sequence/Perl-6/integer-sequence.pl6

@@ -0,0 +1 @@
+.say for 1..*

Task/Integer-sequence/PostScript/integer-sequence.ps

@@ -0,0 +1 @@
+1 {succ dup =} loop

Task/Integer-sequence/PureBasic/integer-sequence.purebasic

@@ -0,0 +1,5 @@
+OpenConsole()
+Repeat
+  a.q+1
+  PrintN(Str(a))
+ForEver

Task/Integer-sequence/Retro/integer-sequence.retro

@@ -0,0 +1 @@
+0 [ [ putn space ] sip 1+ dup 0 <> ] while drop

Task/Integer-sequence/Run-BASIC/integer-sequence.run

@@ -0,0 +1,4 @@
+while 1
+i = i + 1
+print i
+wend

Task/Integer-sequence/Salmon/integer-sequence-1.salmon

@@ -0,0 +1,2 @@
+iterate (i; [0...+oo])
+    i!;

Task/Integer-sequence/Salmon/integer-sequence-2.salmon

@@ -0,0 +1,2 @@
+for (i; 0; true)
+    i!;

Task/Integer-sequence/Salmon/integer-sequence-3.salmon

@@ -0,0 +1,6 @@
+variable i := 0;
+while (true)
+  {
+    i!;
+    ++i;
+  };

Task/Integer-sequence/Seed7/integer-sequence-1.seed7

@@ -0,0 +1,11 @@
+$ include "seed7_05.s7i";
+
+  const proc: main is func
+    local
+      var integer: number is 0;
+    begin
+      repeat
+        incr(number);
+        writeln(number);
+      until number = 2147483647;
+    end func;

Task/Integer-sequence/Seed7/integer-sequence-2.seed7

@@ -0,0 +1,12 @@
+$ include "seed7_05.s7i";
+  include "bigint.s7i";
+
+  const proc: main is func
+    local
+      var bigInteger: number is 1_;
+    begin
+      repeat
+        writeln(number);
+        incr(number);
+      until FALSE;
+    end func;

Task/Integer-sequence/TUSCRIPT/integer-sequence.tuscript

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

Task/Integer-sequence/UNIX-Shell/integer-sequence.sh

@@ -0,0 +1,6 @@
+#!/bin/sh
+num=0
+while true; do
+  echo $num
+  num=`expr $num + 1`
+done

Task/Integer-sequence/Vala/integer-sequence.vala

@@ -0,0 +1,3 @@
+uint i = 0;
+while (++i < uint.MAX)
+	stdout.printf("%u\n", i);

Task/Integer-sequence/Visual-Basic-.NET/integer-sequence.visual

@@ -0,0 +1,3 @@
+    For i As Integer = 0 To Integer.MaxValue
+      Console.WriteLine(i)
+    Next

Task/Integer-sequence/XPL0/integer-sequence.xpl0

@@ -0,0 +1,8 @@
+\Displays integers up to 2^31-1 = 2,147,483,647
+code CrLf=9, IntOut=11;
+int N;
+[N:= 1;
+repeat  IntOut(0, N);  CrLf(0);
+        N:= N+1;
+until   N<0;
+]