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

September 2017 Update

Browse source
This commit is contained in:
Ingy döt Net 2017-09-23 10:01:46 +02:00
parent bba7bfd280
commit ba8067c3b7
14570 changed files with 153136 additions and 63871 deletions
Download patch file Download diff file Expand all files Collapse all files

23
Task/Matrix-transposition/REXX/matrix-transposition-1.rexx Normal file
View file

@ -0,0 +1,23 @@
/*REXX program transposes any sized rectangular matrix, displays before & after matrices*/
@.=; @.1 = 1.02 2.03 3.04 4.05 5.06 6.07 7.08
@.2 = 111 2222 33333 444444 5555555 66666666 777777777
do row=1 while @.row\==''
do col=1 while @.row\==''; parse var @.row A.row.col @.row
end /*c*/
end /*r*/ /* [↑] build matrix A from matrix X*/
rows=row-1; cols=col-1 /*adjust for the DO loop indices. */
L=0; do j=1 for rows
do k=1 for cols
B.k.j=A.j.k; L=max( L, length(B.k.j) )
end /*k*/ /* ↑ */
end /*j*/ /* └─── is maximum width element value*/
call showMat 'A',rows,cols
call showMat 'B',cols,rows
exit /*stick a fork in it, we're all done. */
/*──────────────────────────────────────────────────────────────────────────────────────*/
showMat: arg mat,rows,cols; say; say center( mat 'matrix', (L+1)*cols +4, "─")
do r=1 for rows; _=
do c=1 for cols; _=_ right( value( mat'.'r"."c), L)
end /*c*/
say _
end /*r*/; return

8
Task/Matrix-transposition/REXX/matrix-transposition-2.rexx Normal file
View file

@ -0,0 +1,8 @@
/*──────────────────────────────────────────────────────────────────────────────────────*/
showMat: arg mat,rows,cols; say; say center( mat 'matrix', (L+1)*cols +4, "─")
$=.
do r=1 for rows; _=
do c=1 for cols; _=_ right( value( mat || $ || r || $ || c), L)
end /*c*/
say _
end /*r*/; return

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

@ -1,28 +0,0 @@
/*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 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 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