RosettaCodeData/Task/Matrix-transposition/PicoLisp/matrix-transposition.l

5 lines
79 B
Plaintext

(de matTrans (Mat)
(apply mapcar Mat list) )
(matTrans '((1 2 3) (4 5 6)))