我需要执行球拍功能,以这种方式在球拍中将2个列表相乘:
ex:l1 =(1 2 3)l2 =(4 5 6) 函数的结果为189 =(1 + 2)(2 + 5)(3 + 6)
我不知道从哪里开始,所以请帮助我,我完全迷路了。
答案 0 :(得分:0)
您可以使用car
(+ (car '(1 2)) (car '(4 5)))
=> 5
使用cdr
获取列表的其余部分:
(cdr '(1 2 3))
=> '(2 3)
(define product-of-sum
(lambda (list1 list2)
...))
您在正文中添加了两个列表中的第一个元素,然后将列表的其余部分传递到product-of-sum
以继续计算,直到列表为空列表为止。