;(mod (m1 m2)
; (defun get_col (m idx)
; (if (= idx 0) (f m) (get_col (r m) (- idx 1)))
; )
; (defun dot_product (r1 r2)
; (if r1 (+ (* (f r1) (f r2)) (dot_product (r r1) (r r2))) ())
; )
; (defun column (m idx)
; (if m (c (get_col (f m) idx) (column (r m) idx)) ())
; )
; (defun list_len (row)
; (if row (+ 1 (list_len (r row))) 0)
; )
; (defun width (m)
; (list_len (f m))
; )
; (defun transpose_impl (m idx rest)
; (if (= -1 idx)
; rest
; (transpose_impl m (- idx 1) (c (column m idx) rest))
; )
; )
; (defun transpose (m)
; (transpose_impl m (- (width m) 1) ())
; )
; (defun mul_row (r1 m1)
; (if m1 (c (dot_product r1 (f m1)) (mul_row r1 (r m1))) ())
; )
; (defun matrix_mul_transposed (m1 m2)
; (if m1 (c (mul_row (f m1) m2) (matrix_mul_transposed (r m1) m2)) ())
; )
; (defun matrix_mul (m1 m2)
; (matrix_mul_transposed m1 (transpose m2))
; )
;
; (matrix_mul m1 m2)
;)
(a (q 2 60 (c 2 (c 5 (c 11 (q))))) (c (q (((a (i 5 (q 4 (a 20 (c 2 (c 9 (c 11 (q))))) (a 16 (c 2 (c 13 (c 11 (q)))))) (q 1)) 1) 2 (i 5 (q 16 (* 9 19) (a 24 (c 2 (c 13 (c 27 (q)))))) (q 1)) 1) (a (i (= 11 (q)) (q . 9) (q 2 20 (c 2 (c 13 (c (- 11 (q . 1)) (q)))))) 1) (a (i 5 (q 16 (q . 1) (a 44 (c 2 (c 13 (q))))) (q 1)) 1) 2 18 (c 2 (c 5 (c (a 22 (c 2 (c 11 (q)))) (q))))) ((a (i 5 (q 4 (a 26 (c 2 (c 9 (c 11 (q))))) (a 18 (c 2 (c 13 (c 11 (q)))))) (q 1)) 1) 2 (i 11 (q 4 (a 24 (c 2 (c 5 (c 19 (q))))) (a 26 (c 2 (c 5 (c 27 (q)))))) (q 1)) 1) (a 46 (c 2 (c 5 (c (- (a 62 (c 2 (c 5 (q)))) (q . 1)) (q ()))))) (a (i (= (q . -1) 11) (q . 23) (q 2 46 (c 2 (c 5 (c (- 11 (q . 1)) (c (c (a 16 (c 2 (c 5 (c 11 (q))))) 23) (q))))))) 1) 2 44 (c 2 (c 9 (q)))) 1))