9 lines
224 B
Text
9 lines
224 B
Text
> (set ma '((1 2)
|
|
(3 4)
|
|
(5 6)
|
|
(7 8)))
|
|
((1 2) (3 4) (5 6) (7 8))
|
|
> (set mb (transpose ma))
|
|
((1 3 5 7) (2 4 6 8))
|
|
> (matrix* ma mb)
|
|
((5 11 17 23) (11 25 39 53) (17 39 61 83) (23 53 83 113))
|