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

(count): Rewrite in C, avoiding non-tail recursion.

Browse source
This commit is contained in:
Kevin Ryde 2003-12-02 21:12:20 +00:00
parent f1efbdf3f1
commit 110348aee9
3 changed files with 104 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

19
srfi/srfi-1.scm
View file

@ -442,25 +442,6 @@
(values (map1 first l) (map1 second l) (map1 third l) (map1 fourth l)
(map1 fifth l)))
(define (count pred clist1 . rest)
(if (null? rest)
(count1 pred clist1)
(let lp ((lists (cons clist1 rest)))
(cond ((any1 null? lists)
0)
(else
(if (apply pred (map1 car lists))
(+ 1 (lp (map1 cdr lists)))
(lp (map1 cdr lists))))))))
(define (count1 pred clist)
(let lp ((result 0) (rest clist))
(if (null? rest)
result
(if (pred (car rest))
(lp (+ 1 result) (cdr rest))
(lp result (cdr rest))))))
;;; Fold, unfold & map
(define (fold kons knil list1 . rest)