2008-06-02から1日間の記事一覧

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

与えられた木から、子→親への対応を作るより。 (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分強。app…