RosettaCodeData/Task/Matrix-transposition/PL-I/matrix-transposition-1.pli

4 lines
144 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
/* The short method: */
declare A(m, n) float, B (n,m) float defined (A(2sub, 1sub));
/* Any reference to B gives the transpose of matrix A. */