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