リストを操作する関数: append
> (define (append lst1 lst2)
    (if (null? lst1)
        ; lst1 の空リストにあたる部分を lst2 に置き換える
        lst2
        (cons (car lst1)
              (append (cdr lst1) lst2))))
> (append (list 1 4 9 16 25) (list 1 3 5 7))
(1 4 9 16 25 1 3 5 7)

一覧 前へ 次へ