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

implemented Miscellaneous completely

This commit is contained in:
stibear 2014-02-10 23:20:20 +09:00
parent 2c491001a5
commit 4e2becb642
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
piclib/srfi/1.scm
View File

@ -246,6 +246,12 @@
(map fourth list) (map fourth list)
(map fifth list))) (map fifth list)))
(define (count pred . clists)
(let rec ((tflst (apply map pred clists)) (n 0))
(if (null? tflst)
n
(rec (cdr tflst) (if (car tflst) (+ n 1) n)))))
(export length length+ (export length length+
append append! concatenate concatenate! append append! concatenate concatenate!
reverse reverse! append-reverse append-reverse! reverse reverse! append-reverse append-reverse!