Question

我正在尝试实现一个用于计算列表总和的函数，其名称为sum -

(define (sum elemList)
  (if
   (null? elemList)
   (+ (car elemList) (sum (cdr elemList)))
   0
  )
 )

上述实现给出了错误的结果，例如 -

> (sum (list 1 2 3 4 ))
0

我在这里做错了什么？

Answer 1

我认为你交换了然后和if的 else 部分：

(define (sum elemList)
  (if
    (null? elemList)
    0
    (+ (car elemList) (sum (cdr elemList)))
  )
)

在原始函数中，对于每个非空列表，都会返回0。

Answer 2

您也可以使用apply

(define (sum elemList) (apply + elemList))

应该给您相同的结果

Answer 3

请参阅此链接以获取更多详细信息。 -http://groups.umd.umich.edu/cis/course.des/cis400/scheme/listsum.htm

(define(list-sum lst)
    (cond
((null ? lst)
    0)
((pair? (car lst))
    (+(list-sum (car lst)) (list-sum (cdr lst))))
(else
    (+ (car lst) (list-sum (cdr lst))))))

Scheme - 列表总和

3 个答案: