> (get-rows m)              
2
> (get-columns m)
3
> (get-first-row m)
(1 2 3)
> (get-first-column m)
(1 4)
> (del-first-row m)
((4 5 6))
> (del-first-column m)
((2 3) (5 6))
> (get-row 0 m)
(1 2 3)
> (get-row 1 m)
(4 5 6)
> (get-row 2 m)
[image] [image] mcar: contract violation
  expected: mpair?
  given: ()
> (get-column 0 m)
(1 4)
> (get-column 1 m)
(2 5)
> (get-column 2 m)
(3 6)
> (del-first-column m)
((2 3) (5 6))
> (del-first-column (del-first-column m))
((3) (6))
> (del-first-column (del-first-column (del-first-column m)))
(() ())
> (transpose m)
((1 4) (2 5) (3 6))
> (transpose m)
((1 4) (2 5) (3 6))
> (map list '(1 2 3) '(4 5 6))
((1 4) (2 5) (3 6))
> (map list '(1 2 3) '(4 5 6) '(7 8 9))
((1 4 7) (2 5 8) (3 6 9))
> (map list '(1 2 3) '(4 5 6) '(7 8 9) '(10 11 12))
((1 4 7 10) (2 5 8 11) (3 6 9 12))
> (cons list m)
(#<procedure:mlist> (1 2 3) (4 5 6))
> (transpose m)
((1 4) (2 5) (3 6))
> (transpose (transpose m))
((1 2 3) (4 5 6))
> (apply + '(1 2 3 4))
10
> (apply + 1 5 10 '(12 13 145 16))
202
> (cons list m)
(#<procedure:mlist> (1 2 3) (4 5 6))
> (apply + 1 '(2 3))
6
> (apply + '(1 2 3))
6
> (apply + (cons 1 '(2 3)))
6
> (transpose (transpose m))
((1 2 3) (4 5 6))
> (transpose m)
((1 4) (2 5) (3 6))
> (sum-vectors '(1 2 3) '(4 5 6))
(5 7 9)
> (sum-matrices m m)
((2 4 6) (8 10 12))
> (mult-vectors '(1 2 3) '(4 5 6))
32
> (map (lambda (row) (apply + row)) m)
(6 15)
> (map (lambda (column) (apply + column)) (transpose m))
(5 7 9)