summaryrefslogtreecommitdiff
path: root/srfi/srfi-1.scm
diff options
context:
space:
mode:
authorKevin Ryde <user42@zip.com.au>2003-12-02 21:12:20 +0000
committerKevin Ryde <user42@zip.com.au>2003-12-02 21:12:20 +0000
commit110348aee92a143f66a905f9b631d190e374e15e (patch)
treefd61d46a8238b769c0536dcaf10334215e0b1f96 /srfi/srfi-1.scm
parentf1efbdf3f119cfede7a544d1a723dd926a08936f (diff)
downloadguile-110348aee92a143f66a905f9b631d190e374e15e.tar.gz
(count): Rewrite in C, avoiding non-tail recursion.
Diffstat (limited to 'srfi/srfi-1.scm')
-rw-r--r--srfi/srfi-1.scm19
1 files changed, 0 insertions, 19 deletions
diff --git a/srfi/srfi-1.scm b/srfi/srfi-1.scm
index b22806ad2..171c98c1b 100644
--- a/srfi/srfi-1.scm
+++ b/srfi/srfi-1.scm
@@ -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)