2008-01-21から1日間の記事一覧
2.68でmemqを使ってしまった。 (後でまじめにparseする方法を考える) (define (make-leaf symbol weight) (list 'leaf symbol weight)) (define (leaf? object) (eq? (car object) 'leaf)) (define (symbol-leaf x) (cadr x)) (define (weight-leaf x) (cadd…
2.68でmemqを使ってしまった。 (後でまじめにparseする方法を考える) (define (make-leaf symbol weight) (list 'leaf symbol weight)) (define (leaf? object) (eq? (car object) 'leaf)) (define (symbol-leaf x) (cadr x)) (define (weight-leaf x) (cadd…