よし！来た電車の中で思いついた考え方でそれっぽいのが出てきた予感。 条件 ・引数にとった親自身が青い目をしていた場合は０ ・青い目をした人がいなかった場合はfalseを返す ---------------- family tree---------------------- (define-struct parent (…

入れ子になったリストをフラットなリストにする関数を考えてみた。 (define (flat-list a-wp) (cond ((empty? a-wp) empty) ((symbol? (first a-wp)) (cons (first a-wp) (flat-list (rest a-wp)))) (else (append (flat-list (first a-wp)) (flat-list (res…

(define (occurs1 a-wp s) ;;14.3.2 引数にとったシンボルがいくつか数える（入れ子になったリストは無視） (cond ((empty? a-wp) 0) ((and (symbol? (first a-wp)) (symbol=? (first a-wp) s)) (+ 1 (occurs1 (rest a-wp) s))) (else (occurs1 (rest a-wp) …

勢いで書いていたらしく昨日の日記が意味のわからない文章になっている・・・ ちなみにexercises14.2.3も解けたのでメモ (define a-BT ;Figure 38 A バイナリーツリー (make-node 63 'top (make-node 29 't (make-node 15 'd (make-node 10 'e false false) …

とりあえず答えがでてきた！！ create-bstの部分が (define (create-bst B N S) (cond ((boolean? B) (make-node N S false false)) ((eqv? (node-ssn B) N) 'equal) (else (cond ((< N (node-ssn B)) (make-node (node-ssn B) (node-name B) (create-bst-le…

昨日は夕方くらいに猛烈な睡魔に襲われたからお昼寝しかない、と思って寝たら朝の５時くらいまで寝てしまった・・・ これはいかんいかん。がんばって動き始めないと。

バイナリーツリー関係の問題exercises14.2.3 で足踏み状態なのですが微妙に求めている答えに近いようなものがかけました。あとは条件分岐を考えれば答えにたどり着けそうなのでがんばってみようかと。 (define a-BT ;Figure 38 A (make-node 63 'top (make-n…

ちょっと戻って飛ばしてしまっていた section14.2 Binary Search Trees をやってみる。 (define-struct node (ssn name left right)) (define a-BT ;Figure 38 A (make-node 63 'top (make-node 29 't (make-node 15 'd (make-node 10 'e false false) (make…

先週あたりからp210あたりで苦戦しています。 Lists in Structures , List in Structuresのところなのですが家系図を下にたどっていく問題で足踏み状態です。＜原文 :http://www.htdp.org/2003-09-26/Book/curriculum-Z-H-20.html#node_chap_15> 以下、自分…

勉強日記をつけることにしました。 プログラムはschemeが初めてなので自分メモ的な日記になってしまうかもしれませんがこまめに書いていきたいです。