与えられた木から、子→親への対応を作る
(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が馴染んでないようです。