2008-08-01から1ヶ月間の記事一覧

夏の祭典

コミケに行くことになったので準備中・・・。しかし初参加は不安すぐるのぉ。

exercise 3.30 続き

今度は実際に時間を考える。 時間の表記については inverter-delayをi and-delayをa or-delayをo と言う感じで。 half-adder sumは max(a+i, o) + a carryは a full-adder half-adderのsumとcarryをそれぞれs,cとおくと、 sumは s carryは s+c+o ripple-adde…

exercise 3.30

やることがあるのに気づいたら飲み会行って、その後寝てしまった・・・。とりあえず朝に書いたコードでも張っとくか。 (define (make-wire-list n) (if (= 0 n) '() (cons (make-wire) (make-wire-list (- n 1))))) (define (set-nbit-signal! wires signals…

勉強会二日目 exercise 3.1~3.23

部活の勉強会で3.3.2のRepresenting Queまで終了。 とりあえず、書いた演習問題でもさらしてみる。 動作については多分大丈夫、多分。とはいってもごちゃごちゃしたコードの集まりからコピってきたので不安もある。コード書くときは後で見返すことを考えよう…

exercise 3.29

要するに A∨B = ~~(A∨B) = ~(~A∧~B) ってこと。コードは (define (another-or a1 a2 output) (let ((c (make-wire)) (d (make-wire)) (e (make-wire))) (inverter a c) (inverter b d) (and-gate c d e) (inverter e output) 'ok)) ちなみに時間は、a->c,b->…

ex3.28

こんな時間だが、前のエントリにもある通りこのまま寝てしまうのは悔しいので(まぁ寝た方が効率はいいんだろうが)少しぐらいは問題を解いてから寝よう、うん。 以下、適当な回答 (define (or-gate a1 a2 output) (define (or-action-procedure) (let ((new…

反省

高校時代からの悪いクセなのか、気づけば何となくネットサーフィンしていたら時間が (ryってのがよくある気がする。具体的に何をしているか振り返って見ると、 1.LDRなどでのニュースチェック 2.LDRの注目度ランキングを漁る。 3.はてブのホッテントリ 4.は…

読書会

昨日に引き続き、本日も部活のイベント。SICPの読書会でした。今回は3章の初めからスタート。 以前までは発表者を決めて、その人が事前に用意してくる形式だったけど、今回はエクストリームリーディングという形式で読み進めた。とりあえず自分は以前に読ん…

練習会

部活のICPC練習会に行ってきた。 前回が難しすぎたってことで、今回はダイクストラ法の練習とか。なれてた友達はサクッと通してたけど、自分は一苦労… まぁ何にしても良い経験だったかと思う。コード上げるのははまぁいいか。

exercise 3.26

最初に「解けた!」と思ったときは、実は単に2.66解いてただけだと分かって、適当に書き直すもうまく動かず。その後結局解答をチラッと見て、なんとかできた。 …いろいろと書きたいことはあるが疲れたので、とりあえずコード貼り付けるだけ

exercise 3.27

東の大きな大学の解答と照らし合わせて、正解を確認。 解くのはいいとして、問題はブログにどうやってあげるかだ・・・・まぁそれはともかくパコパコとフレーム作るのはおもしろかったかな あとメモ化の便利さを実感。以前に部活の講座で聞いたりもしたが、…

exercise 3.26 -- 追記

とりあえず、失敗した点を上げてみる 当初書いててハマったのがこれ (define (insert! key value records) (cond ((eq? records 'empty-tree) (set! records (make-sub-tree key value '() '()))) ;;ここでハマってた ((= key (key-name records)) (set-valu…

生活リズム

気づけば既に崩壊気味。 これが一人暮らし+大学生の夏休み ってやつか!

exercise 3.24

(define (make-table same-key?) (let ((local-table (list '*table*))) (define (assoc key records) (cond ((null? records) #f) ((same-key? key (caar records)) (car records)) (else (assoc key (cdr records))))) (define (lookup key-1 key-2) (let …

wineの話(続き)

ふと気づいたが、ここ半年でWindowsを立ち上げる回数がグッと減った気がする。 実際オフィスとかはOOoで事足りるし(大学のコンピューターにもインストールされているのは、下宿先にプリンターが無い私にはありがたい話です。)、ゲームも結構動く。 まぁこ…

wineでエロゲ

なんか場違いなタイトルな気もするがメモ。2chのスレ見てたら分かったけど、最近のwineはすごいっすな・・・ エロゲがムービーまで動いたがな・・・ちなみにwinetricks (http://www.kegel.com/wine/winetricks) を適当に落としてきて directx9 と wmp9(もし…

exercise 3.22

実際できるだろうと分かっても、書いて動かすと何か楽しかった。

exercise 3.21

(define (print-queue queue) (front-ptr queue)) とりあえずこんだけ。 まぁ空になってもrear-ptrにゴミが残るのは注釈参照ですな。

exercise 3.23

やっと解けた・・・。もっと精進せねば。

もう一回

以前SICPの解答をちまちま載せていこうと決心するものの、試験とかでダルくなって消してしまった。 夏休みになったので、もう一回チャレンジ ちなみに現状は3.23まできてる。 過去の奴はHDD漁って少しずつ載せていければいいなぁ

exercise 3.25

調子いい感じ。(・・・問題はこの次な気もするが) 以下解答。