Parent Directory | Revision Log | Patch
revision 1.25 by kryde, Tue Jul 8 00:10:42 2003 UTC | revision 1.26 by kryde, Sun Jul 13 23:05:31 2003 UTC | |
---|---|---|
# | Line 662 | Line 662 |
662 | ||
663 | ;;; Filtering & partitioning | ;;; Filtering & partitioning |
664 | ||
(define (partition pred list) | ||
(if (null? list) | ||
(values '() '()) | ||
(if (pred (car list)) | ||
(receive (in out) (partition pred (cdr list)) | ||
(values (cons (car list) in) out)) | ||
(receive (in out) (partition pred (cdr list)) | ||
(values in (cons (car list) out)))))) | ||
665 | (define (remove pred list) | (define (remove pred list) |
666 | (filter (lambda (x) (not (pred x))) list)) | (filter (lambda (x) (not (pred x))) list)) |
667 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |