如何追加列表而不使用追加方案？

Question

說你想追加名單和輸出的這些列表包含了所有的數字

(append-lists (list (list 1 2) 
        (list 4 5) 
        (list 10 19))) => (list 1 2 4 5 10 19) 

一個列表中如果使用瑣碎的追加，我能做到這一點，

((define (append-lists llon) 
    (cond 
     [(empty? llon) empty] 
     [(cons? llon) (cons (first llon) 
         (append-lists (rest llon)))])) 

可是如何才能讓同輸出不使用遞歸附加？

Answer 1

這是展平的特例。一些Scheme實現具有內置的flatten過程;如果沒有，一般的扁平化的算法是：

(define (flatten sxp) 
    (let loop ((sxp sxp) (res '())) 
    (cond 
     ((null? sxp) res) 
     ((pair? sxp) (loop (car sxp) (loop (cdr sxp) res))) 
     (else  (cons sxp res))))) 

測試：

> (flatten (list (list 1 2) (list 4 5) (list 10 19))) 
'(1 2 4 5 10 19) 
> (flatten (list (list 1 2) 'a (list 4 5) 'b (list 10 19))) 
'(1 2 a 4 5 b 10 19)