2010-01-24から1日間の記事一覧
http://ja.doukaku.org/178/ hash-tableを使うととても簡単に書ける。 親を探すコストの低い方法はないのかな? (use srfi-1) (use util.match) (define pair-lst '((a b) (b c) (c d) (c e) (a f) (d x) (y z) (z c))) (define (alist->tree alist) (let1 h…
http://ja.doukaku.org/178/ hash-tableを使うととても簡単に書ける。 親を探すコストの低い方法はないのかな? (use srfi-1) (use util.match) (define pair-lst '((a b) (b c) (c d) (c e) (a f) (d x) (y z) (z c))) (define (alist->tree alist) (let1 h…