aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

2016 Update

Browse source
This commit is contained in:
Tina Müller 2016-12-05 22:15:40 +01:00
parent 948b86eafa
commit dcf5d15da3
7965 changed files with 139854 additions and 31002 deletions
Download patch file Download diff file Expand all files Collapse all files

52
Task/Matrix-transposition/REXX/matrix-transposition.rexx
View file

@ -1,32 +1,28 @@
/*REXX program transposes a matrix, shows before and after matrixes. */
x. =
x.1 = 1.02 2.03 3.04 4.05 5.06 6.07 7.07
x.2 = 111 2222 33333 444444 5555555 66666666 777777777
/*REXX program transposes a matrix, and displays the before and after matrices. */
x.=; x.1 = 1.02 2.03 3.04 4.05 5.06 6.07 7.07
x.2 = 111 2222 33333 444444 5555555 66666666 777777777
do r=1 while x.r\=='' /*build the "A" matric from X. numbers */
do c=1 while x.r\==''
parse var x.r a.r.c x.r
end /*c*/
end /*r*/
rows = r-1; cols = c-1
L=0 /*L is the maximum width element value.*/
do i=1 for rows
do j=1 for cols
b.j.i = a.i.j; L=max(L,length(b.j.i))
end /*j*/
end /*i*/
do r=1 while x.r\=='' /*build matrix A from matrix X.*/
do c=1 while x.r\==''
parse var x.r a.r.c x.r
end /*c*/
end /*r*/
rows=r-1; cols=c-1 /*adjust for DO loop indices. */
L=0 /*L is max width element value. */
do i=1 for rows
do j=1 for cols
b.j.i=a.i.j; L=max( L, length(b.j.i) )
end /*j*/
end /*i*/
call showMat 'A', rows, cols
call showMat 'B', cols, rows
exit /*stick a fork in it, we're done.*/
/*─────────────────────────────────────SHOWMAT subroutine───────────────*/
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'.'c), L)
end /*c*/
say _
end /*r*/
return
exit /*stick a fork in it, we're all done. */
/*──────────────────────────────────────────────────────────────────────────────────────*/
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"."c), L)
end /*c*/
say _
end /*r*/
return