Matrix transposition: Difference between revisions
Content added Content deleted
m (→{{header|REXX}}: added more whitespace for BIF arguments.) |
m (→{{header|REXX}}: elided an errant blank.) |
||
Line 2,568: | Line 2,568: | ||
showMat: parse arg mat,rows,cols; say; say center(mat 'matrix', cols*(L+1)+4, "─") |
showMat: parse arg mat,rows,cols; say; say center(mat 'matrix', cols*(L+1)+4, "─") |
||
do r=1 for rows; _= |
do r=1 for rows; _= |
||
do c=1 for cols; _=_ right(value(mat'.'r". |
do c=1 for cols; _=_ right(value(mat'.'r"."c), L) |
||
end /*c*/ |
end /*c*/ |
||
say _ |
say _ |