mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 20:30:28 +02:00
Code Activity

(partition): Change to a tail-recursive form.

Browse source
This commit is contained in:
Kevin Ryde 2004-12-05 22:19:38 +00:00
parent cabc854555
commit f6ff79c415
1 changed files with 8 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

15
srfi/srfi-1.scm
View file

@ -747,13 +747,14 @@
(filiter pred list '())))
(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))))))
(let lp ((list list)
(in '())
(out '()))
(if (null? list)
(values (reverse! in) (reverse! out))
(if (pred (car list))
(lp (cdr list) (cons (car list) in) out)
(lp (cdr list) in (cons (car list) out))))))
(define (remove pred list)
(filter (lambda (x) (not (pred x))) list))