Data commit

Task/Integer-sequence/Oberon-2/integer-sequence.oberon

@@ -0,0 +1,27 @@
+MODULE IntegerSeq;
+IMPORT
+  Out,
+  Object:BigInt;
+
+  PROCEDURE IntegerSequence*;
+  VAR
+    i: LONGINT;
+  BEGIN
+    FOR i := 0 TO MAX(LONGINT) DO
+      Out.LongInt(i,0);Out.String(", ")
+    END;
+    Out.Ln
+  END IntegerSequence;
+
+  PROCEDURE BigIntSequence*;
+  VAR
+    i: BigInt.BigInt;
+  BEGIN
+    i := BigInt.zero;
+    LOOP
+      Out.Object(i.ToString() + ", ");
+      i := i.Add(BigInt.one);
+    END
+  END BigIntSequence;
+
+END IntegerSeq.