RosettaCodeData/Task/Matrix-multiplication/LFE/matrix-multiplication-2.lfe

10 lines
224 B
Plaintext

> (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))