リストを操作する関数: filter
> (define (filter lst p)
    (cond ((null? lst)   (list))
          ((p (car lst)) (cons (car lst) (filter (cdr lst) p)))
          (else          (filter (cdr lst) p))))
> (filter (list 1 -2 3 -4) positive?)
(1 3)

一覧 前へ 次へ