aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Initial data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 72d218235f
commit f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Task/Array-concatenation/PL-I/array-concatenation-1.pli Normal file
View file

@ -0,0 +1,3 @@
declare x(12) fixed;
declare b(5) fixed defined x;
declare c(7) fixed defined x(1sub+5);

3
Task/Array-concatenation/PL-I/array-concatenation-2.pli Normal file
View file

@ -0,0 +1,3 @@
declare x(m+n) fixed;
declare b(m) fixed defined x;
declare c(n) fixed defined x(1sub+hbound(b,1));

14
Task/Array-concatenation/PL-I/array-concatenation-3.pli Normal file
View file

@ -0,0 +1,14 @@
declare a(5,6) fixed;
declare b(3,4) fixed defined a(1sub, 2sub);
declare c(2,2) fixed defined a(1sub+hbound(b,1), 2sub+hbound(b,2));
declare (i, j, k) fixed;
a = 0;
put skip list ('Please type elements for a 3 x 4 matrix:');
get list (b);
put skip list ('Please type elements for a 2 x 2 matrix:');
get list (c);
put skip edit (c) ( skip, (hbound(c,2)) f(5,0) );
put skip list ('Composite matrix:');
put skip edit (a) ( skip, (hbound(a,2)) f(5,0) );

13
Task/Array-concatenation/PL-I/array-concatenation-4.pli Normal file
View file

@ -0,0 +1,13 @@
Please type elements for a 3 x 4 matrix:
Please type elements for a 2 x 2 matrix:
13 14
15 16
Composite matrix:
1 2 3 4 0 0
5 6 7 8 0 0
9 10 11 12 0 0
0 0 0 0 13 14
0 0 0 0 15 16