2008-06-02から1日間の記事一覧
(define (make-alist tree) (let ((parent (car tree)) (children (cdr tree))) (if (null? children) '() (apply append (map (lambda (x) (cons (cons (car x) parent) (make-alist x))) children))))) やってみたらすげー素人くさくなってしまった 30分以…
(define (make-alist tree) (let ((parent (car tree)) (children (cdr tree))) (if (null? children) '() (apply append (map (lambda (x) (cons (cons (car x) parent) (make-alist x))) children))))) やってみたらすげー素人くさくなってしまった 30分以…