RosettaCodeData/Task/Matrix-transposition/PL-I/matrix-transposition-1.pli
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07: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. */