RosettaCodeData/Task/Matrix-transposition/PicoLisp/matrix-transposition.l
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07:00

4 lines
79 B
Text

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