RosettaCodeData/Task/Matrix-transposition/PL-I/matrix-transposition-1.pli
2023-07-01 13:44:08 -04:00

3 lines
144 B
Text

/* 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. */