Select Code to Download

(defun transpose (x) (apply 'mapcar (cons 'list x))

...
(transpose '((1 2 3) (4 5 6) (7 8 9) (10 11 12)))
Should product this output:
((1 4 7 10) (2 5 8 11) (3 6 9 12))

use LISP qw(cons);

...
print $list->string;   # Prints ((1 5 9) (2 6 10) (3 7 11) (4 8 12))
$list=$transpose->($list);
print $list->string;   # Prints ((1 2 3 4) (5 6 7 8) (9 10 11 12))