RosettaCodeData/Task/Array-concatenation/PL-I/array-concatenation-2.pli

4 lines
109 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
declare x(m+n) fixed;
declare b(m) fixed defined x;
declare c(n) fixed defined x(1sub+hbound(b,1));