Sync

Task/Integer-sequence/Applesoft-BASIC/integer-sequence-1.applesoft

@@ -0,0 +1,5 @@
+ 10 I% = 1
+ 20  PRINT I%;
+ 30 I% = I% + 1
+ 40  PRINT ", ";
+ 50  GOTO 20

Task/Integer-sequence/Applesoft-BASIC/integer-sequence-2.applesoft

@@ -0,0 +1,24 @@
+, 32646, 32647, 32648, 32649, 32650, 326
+51, 32652, 32653, 32654, 32655, 32656, 3
+2657, 32658, 32659, 32660, 32661, 32662,
+ 32663, 32664, 32665, 32666, 32667, 3266
+8, 32669, 32670, 32671, 32672, 32673, 32
+674, 32675, 32676, 32677, 32678, 32679,
+32680, 32681, 32682, 32683, 32684, 32685
+, 32686, 32687, 32688, 32689, 32690, 326
+91, 32692, 32693, 32694, 32695, 32696, 3
+2697, 32698, 32699, 32700, 32701, 32702,
+ 32703, 32704, 32705, 32706, 32707, 3270
+8, 32709, 32710, 32711, 32712, 32713, 32
+714, 32715, 32716, 32717, 32718, 32719,
+32720, 32721, 32722, 32723, 32724, 32725
+, 32726, 32727, 32728, 32729, 32730, 327
+31, 32732, 32733, 32734, 32735, 32736, 3
+2737, 32738, 32739, 32740, 32741, 32742,
+ 32743, 32744, 32745, 32746, 32747, 3274
+8, 32749, 32750, 32751, 32752, 32753, 32
+754, 32755, 32756, 32757, 32758, 32759,
+32760, 32761, 32762, 32763, 32764, 32765
+, 32766, 32767
+?ILLEGAL QUANTITY ERROR IN 30
+]

Task/Integer-sequence/COBOL/integer-sequence.cobol

@@ -0,0 +1,16 @@
+       IDENTIFICATION DIVISION.
+       PROGRAM-ID. Int-Sequence.
+
+       DATA DIVISION.
+       WORKING-STORAGE SECTION.
+*      *> 36 digits is the largest size a numeric field can have.
+       01  I PIC 9(36).
+
+       PROCEDURE DIVISION.
+*          *> Display numbers until I overflows.
+           PERFORM VARYING I FROM 1 BY 1 UNTIL I = 0
+               DISPLAY I
+           END-PERFORM
+
+           GOBACK
+           .

Task/Integer-sequence/Component-Pascal/integer-sequence.component

@@ -0,0 +1,14 @@
+MODULE IntegerSequence;
+IMPORT StdLog;
+
+PROCEDURE Do*;
+VAR
+	i: INTEGER;
+BEGIN
+	FOR i := 0 TO MAX(INTEGER) DO;
+		StdLog.Int(i)
+	END;
+	StdLog.Ln
+END Do;
+
+END IntegerSequence.