Question

这是我第一次使用Scheme。我有一个整数列表，我想得到列表中所有偶数的总和。

 ; sum_even
(define (sum_even l)
  (if (null? l) l
  (cond ((even? (car l)) 0)
        ((not(even? (car l))) (car l)))
  (+ (sum_even (car l) (sum_even(cdr l))))))
(sum_even '(2 3 4))

Answer 1

(define (sum_even l)
    (cond ((null? l) 0)
          ((even? (car l)) (+ (car l) (sum_even (cdr l))))
          (else (sum_even (cdr l)))))

未经测试

Answer 2

你并不是在问一个问题。您在检查您的解决方案是否正确或正在寻找替代解决方案吗？

您也可以通过

按如下方式实施

(apply + (filter even? lst))

编辑：如果你正如你所提到的那样，你不能使用过滤器，那么这个解决方案将起作用并且是尾递归的：

(define (sum-even lst)
    (let loop ((only-evens lst) (sum 0))
        (cond
            ((null? only-evens) sum)             
            ((even? (car only-evens))
             (loop (cdr only-evens) (+ (car only-evens) sum)))
            (else (loop (cdr only-evens) sum)))))

Answer 3

(define (sum-even xs)
  (foldl (lambda (e acc) 
           (if (even? e) 
               (+ e acc) 
               acc))
         0 
         xs))

示例：

> (sum-even (list 1 2 3 4 5 6 6))
18

Answer 4

这是另一个具有更高阶函数且没有显式递归的函数：

(use srfi-1)

(define (sum-even ls) (fold + 0 (filter even? ls)))

Answer 5

考虑使用内置过滤功能。例如：

(filter even? l)

将返回列表中的偶数列表l。有很多方法可以对列表中的数字进行求和（示例来自http://groups.engin.umd.umich.edu/CIS/course.des/cis400/scheme/listsum.htm）：

;
; List Sum
; By Jerry Smith
;
(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))))))

甚至在计划中的总和

5 个答案: