list - 如何处理方案列表中特定范围的数字？

Question

我正在学习方案，我想知道如何删除，例如列表的负数，以便我可以处理正数，直到现在我只得到 # 而不是删除负数。这是我的代码:

 (define test
    (lambda (list)
      (map (lambda (x) (if (> x 0) x ))list)))

Answer 1

这是过滤器的标准版本:

(define (filter pred? xs)
  (let loop ((xs xs) (ys '()))
    (cond ((null? xs) (reverse ys))
          ((pred? (car xs))
            (loop (cdr xs) (cons (car xs) ys)))
          (else (loop (cdr xs) ys)))))

这样，您就可以构建一个仅包含输入列表正值的新列表:

> (filter positive? '(3 9 -2 4 0 -1 7))
(3 9 4 7)

您可能会喜欢 my blog ，里面提供了大量的Scheme代码供大家学习。