Scheme - バイナリツリー反復再帰は、何もではなく空のNodeとしてappends（）を追加します。

Question

ツリーノードの値のリストを「予約注文」の方法で返す簡単なコードを記述しようとしています。

(define pre-iter (lambda (tree) 
(if (not (pair? tree)) 
    (list tree) 
    (append (list (car tree)) (pre-iter (cadr tree)) (pre-iter (caddr tree))) 
))) 

次のことがなぜ起こるか私は見つけることができません。

(iter-tree (quote (F (B A (D C E)) (G() (I H())))) pre-iter): expected '(F B A D C E G I H), got '(F B A D C E G() I H()) 

はあなたの助けのためにありがとうございました。

Answer 1

サブツリーがnullの場合は、余分なケースを処理するだけで済みます。これを試してみてください：

(define pre-iter 
    (lambda (tree) 
    (cond ((null? tree) '()) 
      ((not (pair? tree)) (list tree)) 
      (else 
      (append (list (car tree)) 
        (pre-iter (cadr tree)) 
        (pre-iter (caddr tree))))))) 

要求されるようにそれが動作します。

(pre-iter '(F (B A (D C E)) (G() (I H())))) 
=> '(F B A D C E G I H)