0

我正在尝试使用 Scheme 编写代码(函数):

  • 将任意大小的列表作为参数
  • 将列表的每个数字相乘
  • 符号应该被跳过
  • 对内的值应包含在乘法中

换句话说,结果应该如下:

> (mult '(1 2 3))
6
> (mult '(1 2 x 3 4))
24
> (mult '(1 2 z (3 y 4)))
24 (mine gives me 2)

我的代码允许我跳过符号并将所有内容相乘。但是,一旦我在列表中包含一对,它就好像它不是一个数字,因此就好像它不存在一样。这是我的代码:

(define mult
       (lambda (x)
               (if (null? x)
                      1
                      (if(number? (car x))
                         (* (car x) (mult (cdr x)))
                         (mult(cdr x))))))

我尝试在找到一对时使用 append ,但显然我做错了......关于如何让它包含一对内的值的任何帮助将不胜感激。

即'(1 2 y (3 z 4) = 1 * 2 * 3 * 4

4

2 回答 2

1

你快到了,只是错过了名单?测试:

(define (mult lst)
  (if (null? lst) 
      1
      (let ((ca (car lst)))
        (cond
          ((number? ca) (* ca (mult (cdr lst))))
          ((list? ca)   (* (mult ca) (mult (cdr lst))))
          (else         (mult (cdr lst)))))))

编辑

他是没有 let 的等效版本:

(define (mult lst)
  (cond
    ((null? lst)         1)
    ((number? (car lst)) (* (car lst) (mult (cdr lst))))
    ((cons? (car lst))   (* (mult (car lst)) (mult (cdr lst))))
    (else                (mult (cdr lst)))))

如您所见, (car lst) 可能会被多次评估,因此我在第一个版本中使用了 let 来避免这种情况。

于 2013-09-21T21:43:17.203 回答
0

这是一种稍微先进的技术,但这个问题可以很容易地表述为尾递归算法。

(define (mult lst)
  (let multiplying ((lst lst) (r 1))   ; r is the multiplicative identity...
    (if (null? lst)
        r
        (let ((next (car lst))
              (rest (cdr lst)))
          (multiplying rest (cond ((number? next) (* next r))
                                  ((list?   next) (* (mult next) r))
                                  (else           r)))))))
> (mult '(1 2 3 a b (((((10)))))))
60

使用尾递归对性能有影响,但不可否认,这不是要学习的第一件事——递归才是。然而,在这种情况下,由于列表通常很长,避免每个列表元素的堆栈帧可以显着节省;使用尾调用可以避免堆栈帧。

于 2013-09-21T22:32:11.220 回答