Anonymous user
Matrix transposition: Difference between revisions
→{{header|PHP}}
SqrtNegInf (talk | contribs) m (→{{header|Perl 6}}: mention shaped arrays) |
|||
Line 2,388:
=={{header|PHP}}==
====Up to PHP version 5.6====
<lang php>function transpose($m) {▼
<lang php>
if (count($m) == 0) // special case: empty matrix
return array();
Line 2,398 ⟶ 2,400:
return call_user_func_array('array_map', $m);
}</lang>
====Starting with PHP 5.6====
<lang php>
function transpose($m) {
return count($m) == 0 ? $m : (count($m) == 1 ? array_chunk($m[0], 1) : array_map(null, ...$m));
}
</lang>
=={{header|PicoLisp}}==
| |||