conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Merge pull request #151 from koba-e964/master 

Make filter tail-recursive
This commit is contained in:
Yuichi Nishiwaki 2014-06-26 19:33:26 +09:00
parent 346a687e25 5b215eb57a
commit b77fac6ce1
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
piclib/srfi/1.scm
View File

@ -402,12 +402,8 @@
;; filter partition remove ;; filter partition remove
;; filter! partition! remove! ;; filter! partition! remove!
(define (filter pred list) (define (filter pred list)
(if (null? list) (let ((pcons (lambda (v acc) (if (pred v) (cons v acc) acc))))
'() (reverse (fold pcons '() list))))
(if (pred (car list))
(cons (car list)
(filter pred (cdr list)))
(filter pred (cdr list)))))
(define (remove pred list) (define (remove pred list)
(filter (lambda (x) (not (pred x))) list)) (filter (lambda (x) (not (pred x))) list))