Sync

Task/Matrix-transposition/REXX/matrix-transposition.rexx

@@ -1,32 +1,31 @@
 /*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'
+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*/
+      end   /*c*/
+  end       /*r*/
 
-rows=r-1;   cols=c-1
+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*/
+         end   /*j*/
+     end       /*i*/
 
-call showMat 'A',rows,cols
-call showMat 'B',cols,rows
+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, "─")
+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)
+               do c=1  for cols;   _ = _ right(value(mat'.'r'.'c), L)
                end   /*c*/
          say _
          end         /*r*/