ネストしたリストの操作

メモです。

flatten

• 学習用データ作成 - 主にアルゴリズムの実験日誌

(define (flatten ls)
  (cond ((null? ls) '())
        ((pair? ls)
         (append (flatten (car ls)) (flatten (cdr ls))))
        (else (list ls))))

• LISP Scheme Part8

(define (flatten a)
　(if (list? a) (apply append (map flatten a))
　　　(list a))) 

なかなか変態なコードですよね。

deep-copy-list

• プログラミングGauche (〜p.60) - ibenseの日記

(define (deep-copy-list lis)
  (if (pair? lis)
      (cons (deep-copy-list (car lis)) (deep-copy-list (cdr lis)))
      lis))

やりたかったのは

Gauche本、P66とかにリストの構造を保ったまま全ての要素を2倍する、とかがあったのでリストをflatにして2倍とかしようとか考えた。が、電車プログラミングの中ではできなかったので、帰宅後ググる。結局上のflatternが作れなかった、ということであった。

(map (lambda (x) (* 2 x)) (flatten '(1 2 3 (4 5 6))))

一箇所に再帰適用とかは分かるけど、二箇所とかはまだよく分からーん。