我正在尝试在lisp中相乘两个向量。我的代码是:
(defun produs(x y)
(cond
((or (null x) (null y))
nil)
((eq (cdr x) nil)
(cons (* (car x) (car y))
(cdr y)))
((eq (cdr y) nil)
(cons (* (car x) (car y))
(cdr x)))
(t
(cons (* (car x) (car y))
(produs (cdr x) (cdr y))))))
当我验证时
(produs '(7) '(1 2))
它给了我(72)。
第4行代码没有指定,如果x的其余部分为零,那么将其与y的所有元素相乘?
如果我正确理解你想要实现的目标,那么这个代码应该可以工作:
(defun produs(x y)
(cond
((or (null x) (null y)) nil)
((eq (cdr x) nil) ( cons (* (car x)(car y))(produs (cdr y) x )))
((eq (cdr y) nil) ( cons (* (car x)(car y)) (produs (cdr x) y)))
(t (cons (*(car x)(car y)) (produs (cdr x)(cdr y))))
)
)
问题是,您并不是在"说"用头x乘以所有元素,而是将y中的所有剩余元素添加到结果列表中。
(produs '(7) '(1 2)) => (7 14)
您也可以尝试对代码进行一些重构,以避免重复:
(defun produs (x y)
(when (and x y)
(cons (* (first x) (first y))
(let ((rx (rest x))
(ry (rest y)))
(cond
((and rx ry) (produs rx ry))
(rx (produs rx y))
(ry (produs ry x)))))))