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

4 lines
109 B
Text
Raw Permalink Normal View History

2013-04-10 22:43:41 -07:00
declare x(m+n) fixed;
declare b(m) fixed defined x;
declare c(n) fixed defined x(1sub+hbound(b,1));