「X51.ORG」がGyaoで番組になった - GIGAZINE たまらないなぁ・・・

久しぶりになってしまいました。 p250くらいまでやっとこさ辿りつきました。 あー、滅茶苦茶楽しくなってきました（理解度とは比例せず）。。 (define (list=? a-list another-list) ;;17.8.2 (cond ((and (cons? a-list) (empty? another-list)) false) ((a…

いろんな人がいていろんな人の話を聞けて本当に充実していた。 参加されていた方たちはみんな人間が深くて自分もこうありたいなと改めて思ったりもした。 そういう人たちが周りにいるということは本当に幸せかもしれない。 自分がどうやったら慣れるか今はわ…

今日は貴重な体験ができたし素晴らしい方たちの話がいろいろと聞けたので充実した一日だった。 でも帰りの電車の中で風邪のためかおなかが痛くなり家までは苦行のように感じた。日本人の胃腸は弱いのでしょうかー！明日は休みなので一日中パソコンとともに過…

夜寝る前に明日の予定。 HTDPをガッツリやる。以上 ジュンク堂でSICPかえるかな？あとJavaScriptとかオライリーの本いろいろ読みに行こう。 うあ・・・買ってしまいそうだ！！読みたい本でいっぱいなのに・・・うれしい悲鳴だｗ

今月に入って失速気味だったのですが一問解けたのでメモ。 (define LOS '(a b c)) (define LON '(1 2)) (define (cross alon1 alon2) ;;引数にリストを二つとって全部の組み合わせを書き出す関数 (cond ((empty? alon1) empty) (else (append (cross-aux (fi…

よし！来た電車の中で思いついた考え方でそれっぽいのが出てきた予感。 条件 ・引数にとった親自身が青い目をしていた場合は０ ・青い目をした人がいなかった場合は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が初めてなので自分メモ的な日記になってしまうかもしれませんがこまめに書いていきたいです。