与えられた木から、子→親への対応を作る

与えられた木から、子→親への対応を作るより。

(define (get-parent-alist tree)
  (define (rec root children)
    (append-map
     (lambda (child)
       (acons (car child)
              root
              (rec (car child) (cdr child))))
     children))
  (rec (car tree) (cdr tree)))

15分強。append-mapに渡す処理の中身を勘違いしててつっかえた。


以前から思ってたけど、自分の思考パターンにはまだfoldが馴染んでないようです。