33 lines
477 B
Common Lisp
33 lines
477 B
Common Lisp
(multiply
|
|
(array 2 2 '(1 2 3 4))
|
|
(array 2 3 '(-3 -8 3 -2 1 4)))
|
|
|
|
((-7 -6 11)
|
|
(-17 -20 25))
|
|
|
|
(multiply
|
|
(array 3 2 '(1 2 3 4 3 6))
|
|
(array 2 3 '(-3 -8 3 -2 1 4)))
|
|
|
|
((-7 -6 11)
|
|
(-17 -20 25)
|
|
(-21 -18 33))
|
|
|
|
|
|
(multiply
|
|
(array 3 3 '(1 2 3 4 5 6 7 8 9))
|
|
(array 3 3 '(2 2 2 5 5 5 7 7 7)))
|
|
|
|
((33 33 33)
|
|
(75 75 75)
|
|
(117 117 117))
|
|
|
|
|
|
(multiply
|
|
(array 4 2 '(1 2 3 4 5 6 7 8))
|
|
(array 2 3 '(1 2 3 4 5 6)))
|
|
|
|
((9 12 15)
|
|
(19 26 33)
|
|
(29 40 51)
|
|
(39 54 69))
|