mirror/ede
1
0
Fork 0
mirror of https://github.com/edeproject/ede.git synced 2023-08-10 21:13:03 +03:00
Code Issues Projects Releases Wiki Activity

Replaced map impl. with the better one. At least faster...

Browse Source
This commit is contained in:
Sanel Zukan 2008-11-05 11:50:51 +00:00
parent 71bb4b94d8
commit 23cf161b16
1 changed files with 33 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
tools/capone/lib/capone.init
View File

@ -187,15 +187,39 @@
(append cars (list car1))
(append cdrs (list cdr1))))))
(define (map proc . lists)
(if (null? lists)
(apply proc)
(if (null? (car lists))
'()
(let* ((unz (apply unzip1-with-cdr lists))
(cars (car unz))
(cdrs (cdr unz)))
(cons (apply proc cars) (apply map (cons proc cdrs)))))))
;;
;; Original implementation that pretty sucks
;;
;(define (map proc . lists)
; (if (null? lists)
; (apply proc)
; (if (null? (car lists))
; '()
; (let* ((unz (apply unzip1-with-cdr lists))
; (cars (car unz))
; (cdrs (cdr unz)))
; (cons (apply proc cars) (apply map (cons proc cdrs)))))))
(define (map1 proc lst)
(if (null? lst)
lst
(let loop ((lst lst)
(nls '()))
(if (null? lst)
(reverse nls)
(loop (cdr lst)
(cons (proc (car lst)) nls))))))
(define (map proc lst . more)
(if (null? more)
(map1 proc lst)
(let map-more ((lst lst)
(more more))
(if (null? lst)
lst
(cons (apply proc (car lst) (map car more))
(map-more (cdr lst)
(map cdr more)))))))
;;
;; Original implementation that pretty sucks