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

4 lines
144 B
Text
Raw Permalink Normal View History

2013-04-10 22:43:41 -07: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. */