Anonymous user
Matrix transposition: Difference between revisions
→{{header|PHP}}
(+hope) |
|||
Line 666:
return call_user_func_array('array_map', array_merge(array(NULL), $m));
}</lang>
=={{header|PL/I}}==
<lang PL/I>
/* Transpose matrix A, result at B. */
transpose: procedure (a, b);
declare (a, b) (*,*) float controlled;
declare (m, n) fixed binary;
if allocation(b) > 0 then free b;
m = hbound(a,1); n = hbound(a,2);
allocate b(n,m);
do i = 1 to m;
b(*,i) = a(i,*);
end;
end transpose;
</lang>
=={{header|Pop11}}==
| |||