球拍定義列表

Question

我必須使用語言球拍解決嵌套任務。 根據給定的列表，我必須創建僅包含除以 10 沒有剩余的元素的新列表。

到目前為止我的代碼：

(define (brel x sp)
   (cond ((null? sp) 0)
         (( = (remainder (car sp) 10) 0) (car sp))
         (else (brel x (cdr sp)))))

(define (spbr L)
  (define (f l1)
    (if (null? l1) '()
     (cons (brel (car l1) L) (f (cdr l1)))))
 (f L))
(spbr (list 50 5 3))

給代碼當前計算第一個列表中元素的每個重復並將它們添加到新列表中。 我必須改變什么才能使它工作？

Answer 1

您不需要幫助程序，只需構建一個僅包含滿足條件的項目的新列表：

(define (spbr L)
  (cond ((null? L) '())
        ((= (remainder (car L) 10) 0)
         (cons (car L) (spbr (cdr L))))
        (else
         (spbr (cdr L)))))

使用filter程序會更慣用：

(define (spbr L)
  (filter (lambda (e) (zero? (remainder e 10)))
          L))

無論哪種方式，它都按預期工作：

(spbr '(50 5 3 70))
=> '(50 70)