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

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)