mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-28 16:00:22 +02:00
Code Activity

(reduce, reduce-right): Don't call f with ridentity, use

Browse source 
it only if lst is empty, per srfi and intended optimization reduce
represents over fold.
This commit is contained in:
Kevin Ryde 2005-02-11 21:38:02 +00:00
parent fbef82bd1f
commit 04171cd571
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
srfi/srfi-1.scm
View file

@ -619,10 +619,14 @@
(uf (g seed) (cons (f seed) lis))))))
(define (reduce f ridentity lst)
(fold f ridentity lst))
(if (null? lst)
ridentity
(fold f (car lst) (cdr lst))))
(define (reduce-right f ridentity lst)
(fold-right f ridentity lst))
(if (null? lst)
ridentity
(fold-right f (last lst) (drop-right lst 1))))
;; Internal helper procedure. Map `f' over the single list `ls'.