Data commit

Task/Array-concatenation/ERRE/array-concatenation.erre

@@ -0,0 +1,31 @@
+PROGRAM ARRAY_CONCAT
+
+DIM A[5],B[5],C[10]
+
+!
+! for rosettacode.org
+!
+
+BEGIN
+  DATA(1,2,3,4,5)
+  DATA(6,7,8,9,0)
+
+  FOR I=1 TO 5 DO  ! read array A[.]
+    READ(A[I])
+  END FOR
+  FOR I=1 TO 5 DO  ! read array B[.]
+    READ(B[I])
+  END FOR
+
+  FOR I=1 TO 10 DO ! append B[.] to A[.]
+    IF I>5 THEN
+       C[I]=B[I-5]
+     ELSE
+       C[I]=A[I]
+    END IF
+    PRINT(C[I];)   ! print single C value
+  END FOR
+
+  PRINT
+
+END PROGRAM