Data commit

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

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

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

@@ -0,0 +1,9 @@
+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

@@ -0,0 +1,22 @@
+/*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.*/