5 lines
129 B
Text
5 lines
129 B
Text
(defun dotp (v u)
|
|
(if (or (endp v) (endp u))
|
|
0
|
|
(+ (* (first v) (first u))
|
|
(dotp (rest v) (rest u)))))
|