Anonymous user
Matrix transposition: Difference between revisions
Added PicoLisp
(Added PicoLisp) |
|||
Line 738:
return call_user_func_array('array_map', array_merge(array(NULL), $m));
}</lang>
=={{header|PicoLisp}}==
<lang PicoLisp>(de matTrans (Mat)
(apply mapcar Mat list) )
(matTrans '((1 2 3) (4 5 6)))</lang>
Output:
<pre>-> ((1 4) (2 5) (3 6))</pre>
=={{header|PL/I}}==
| |||