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

using any instead of every in map function may make the run a bit faster

This commit is contained in:
Yuichi Nishiwaki 2013-11-14 22:48:06 +09:00
parent a272f9d27c
commit 6b742a7fa3
1 changed files with 15 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
piclib/built-in.scm
View File

@ -138,6 +138,18 @@
(every pred (cdr list)) (every pred (cdr list))
#f))) #f)))
(define (null? obj)
(null? obj))
(define (any pred list)
(if (null? list)
#f
((lambda (it)
(if it
it
(any pred (cdr list))))
(pred (car list)))))
(define (map f list . lists) (define (map f list . lists)
(define (single-map f list) (define (single-map f list)
(if (null? list) (if (null? list)
@ -145,10 +157,10 @@
(cons (f (car list)) (cons (f (car list))
(map f (cdr list))))) (map f (cdr list)))))
(define (multiple-map f lists) (define (multiple-map f lists)
(if (every pair? lists) (if (any null? lists)
'()
(cons (apply f (single-map car lists)) (cons (apply f (single-map car lists))
(multiple-map f (single-map cdr lists))) (multiple-map f (single-map cdr lists)))))
'()))
(if (null? lists) (if (null? lists)
(single-map f list) (single-map f list)
(multiple-map f (cons list lists)))) (multiple-map f (cons list lists))))