基于加法函数的两个一元列表的乘法

Question

(define unary-add
  (lambda (list1 list2)
    (if (pair? list1)
        (cons (car list1)
              (unary-add (cdr list1) list2))
        list2)))

我执行了清单的两个一元表示的加法运算。 现在，我想将它们相乘，将乘法视为重复的加法。 因此，我利用了此功能，并进行了以下操作：

(define unary-mul
  (lambda (list1 list2)
    (if (pair? list1)
        (cons (car list1)
              (unary-mul (unary-add (cdr list1) list2)))
        list2)))

在运行代码时，它说参数不匹配。 我哪里出问题了？

Answer 1

您当前的方法似乎不正确-递归调用被放错了位置，并且报告的错误表明您忘记了将第二个参数传递给unary-mul 。 尝试以下方法：

(define unary-mul
  (lambda (list1 list2)
    (if (pair? list2)
        (unary-add list1
                   (unary-mul list1 (cdr list2)))
        '())))

说明：乘法只是重复的加法，在上面的代码中，我们继续添加list1并减小list2的长度，直到它为空。 它按预期工作：

(unary-mul '(x x x) '(x x))
=> '(x x x x x x)