Data update

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

@@ -1,9 +1,7 @@
-> (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))
+(defun matrix*-lc (m1 m2)
+  (let ((m2T (transpose m2)))
+    (list-comp
+        ((<- row  m1))
+      (list-comp
+          ((<- col m2T))
+        (dot-product row col)))))