Anonymous user
Matrix transposition: Difference between revisions
added php
(added common lisp and ruby) |
(added php) |
||
Line 374:
1.00000 8.00000 27.00000 64.00000 125.00000
1.00000 16.00000 81.00000 256.00000 625.00000
=={{header|PHP}}==
<php>function transpose($m) {
array_unshift($m, NULL);
return call_user_func_array(array_map, $m); // array_map(NULL, m[0], m[1], ..)
}</php>
=={{header|Pop11}}==
Line 416 ⟶ 422:
Output:
[[1, 2, 3, 4, 5], [1, 4, 9, 16, 25], [1, 8, 27, 64, 125], [1, 16, 81, 256, 625]]
or
<ruby>require 'matrix'
m=Matrix[[1, 1, 1, 1],
[2, 4, 8, 16],
[3, 9, 27, 81],
[4, 16, 64, 256],
[5, 25,125, 625]]
puts m.transpose</ruby>
Output:
Matrix[[1, 2, 3, 4, 5], [1, 4, 9, 16, 25], [1, 8, 27, 64, 125], [1, 16, 81, 256, 625]]
=={{header|Scheme}}==
| |||