Data update

Task/Array-concatenation/REXX/array-concatenation-1.rexx

@@ -1,3 +0,0 @@
-a.1 =  10
-a.2 =  22.7
-a.7 = -12

Task/Array-concatenation/REXX/array-concatenation-2.rexx

@@ -1,9 +0,0 @@
-fact.0=8
-fact.1=    1
-fact.2=    2
-fact.3=    6
-fact.4=   24
-fact.5=  120
-fact.6=  720
-fact.7= 5040
-fact.8=40320

Task/Array-concatenation/REXX/array-concatenation-3.rexx

@@ -1,22 +0,0 @@
-/*REXX program to demonstrates how to perform array concatenation.*/
-
-p.=                                    /*(below) a short list of primes.*/
-p.1=2;    p.2=3;     p.3=5;     p.4=7;     p.5=11;   p.6=13
-p.7=17;   p.8=19;    p.9=23;    p.10=27;   p.11=31;  p.12=37
-
-f.=                                    /*(below) a list of Fibonacci #s.*/
-f.0=0;f.1=1;f.2=1;f.3=2;f.4=3;f.5=5;f.6=8;f.7=13;f.8=21;f.9=34;f.10=55
-
-             do j=1  while p.j\==''
-             c.j=p.j                   /*assign C array with some primes*/
-             end   /*j*/
-n=j-1
-             do k=0  while f.k\=='';   n=n+1
-             c.n=f.k                   /*assign C array with fib numbers*/
-             end   /*k*/
-say 'elements=' n
-say
-             do m=1  for n
-             say 'c.'m"="c.m           /*show a "merged"  C  array nums.*/
-             end   /*m*/
-                                       /*stick a fork in it, we're done.*/

Task/Array-concatenation/REXX/array-concatenation.rexx

@@ -0,0 +1,21 @@
+-- 1 Jun 2025
+include Settings
+
+say 'ARRAY CONCATENATION'
+say version
+say
+say 'Two numbered arrays concatenated...'
+a.1=1; a.2=4; a.3=9
+b.1=16; b.2=25; b.3=36
+a.0=3; b.0=3
+j=a.0
+do i = 1 to 3
+   j=j+1; a.j=b.i
+end
+a.0=j
+do i = 1 to a.0
+   say i a.i
+end
+exit
+
+include Abend