Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 05:39:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Merge pull request #946 from ekaitz-zarraga/faster-concatenate!

Browse source 
Reduce iterations in concatenate!
This commit is contained in:
Alex Shinn 2024-01-10 23:45:28 +09:00 • committed by GitHub
commit 97a04bd2fc
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 10 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
lib/srfi/1/misc.scm
View file

@ -15,13 +15,16 @@
(define (concatenate! lists) (define (concatenate! lists)
(if (null? lists) (if (null? lists)
'() '()
(fold (lambda (el acc) (let loop ((acc '())
(cond (prev '())
((null? acc) el) (rem lists))
((null? el) acc) (cond
(else (begin (set-cdr! (last-pair acc) el) acc)))) ((null? rem) acc)
(car lists) ((null? acc) (let ((cur (car rem))) (loop cur cur (cdr rem))))
(cdr lists)))) ((null? (car rem)) (loop acc prev (cdr rem)))
(else (let ((cur (car rem)))
(set-cdr! (last-pair prev) cur)
(loop acc cur (cdr rem))))))))
(define (append-reverse rev tail) (define (append-reverse rev tail)
(if (null? rev) tail (append-reverse (cdr rev) (cons (car rev) tail)))) (if (null? rev) tail (append-reverse (cdr rev) (cons (car rev) tail))))