IP unreachable になりそげ。一応端末と無線デバイスを持っていくのですが、接続できないかもしれません。一応、火を入れた時には iwlist な scan で何とかしようと思ってはいますが微妙。 ただ、これはこれで 5.5 に到達する努力に集中できて良いかも、とは…

ワケワカなままでは悔しいので無理矢理ナカミを見てみる事に。

#f って清水寺の和尚さんが (ry 追記 でっかく「入」って書いて、「これを lambda と読みます」と言ってくれたら λ 時代到来。

手動評価器を再起動。(291) の続きから、という事で以下に停止するまでのナニを再掲。

ちょっと確認できてる点だけ控えておく。 問題 5.26 現時点では末尾再帰な ev-sequence のはずなので手続きを評価器に吸わせてみた。

うーん。随分前のエントリで同じコトしてる (DRY) かもしれんがヤッてみる。

昨晩の解に cons とか car、cdr を定義して評価してみたらループする。(鬱

ループの原因が分からん。とりあえず動作をメモっておく。

とほほほ。ループの件ですが、帰りしなのバスん中で差分を発見してました。ev-eval-print-loop で read-eval-print-loop (perform (op initialize-stack)) (perform (op prompt-for-input) (const ";;; EC-Eval input:")) (assign exp (op read)) (assign en…

問題 5.24 の解で ev-cond-false (assign val (const false)) (goto (reg continue))みたいなコトしてるんですが、これじゃ駄目。でも現状では #f を戻すようにするにはどうすりゃ良いのか微妙。と言いつつ以下のようにしてみたらなんとかなっている模様。 e…

早起きしてデバッガを試してみたら動かない。これはこれで原因を調べないと駄目だな。 問題 5.24 の続き exp を push していないのが原因だった模様。ev-cond-なんたらを以下に。 ev-cond (assign exp (op cond-clauses) (reg exp)) ev-cond-loop (test (op …

4.1 の評価器の上に 5 章のアセンブラがあって、その上に scheme な手続きの評価器が居る。5.19 な設問の解を無理矢理コピって breakpoint を設定したら動作しない。ってか、gosh さえ止まる始末。 何故か、な答えに到達してませんが、人間様との間の i/f が…

今週は遊びに行かずまっずぐ帰りました。久々に現実トウヒ抜きなので今から頑張ります。

横着して allcode なソレを使用。ch5-syntax.scm に (define true #t) (define false #f)を追加。あとは gosh 起動して gosh> (add-load-path ".") ("." "/usr/share/gauche/site/lib" "/usr/share/gauche/0.8.8/lib") gosh> (load "load-eceval") #t gosh> …

問題 5.25 ええと、thunk にされる式って compound な手続きの引数だったはず。なので一旦 eval で引数に格納 (束縛) された中身を取り出した上でそれを force-it する、という流れ。

問題 5.24 にダウト発見。帰りしなのバスの中でテキストを読んでいた所、 ループを構成し、ev-sequence を使い、その節の行動を評価しなければならない という記述を発見。よく考えたら cond のソレは命令のリストになってるんだ、という事に今更気がつく。…

よく見りゃスデに 5.4 なんだ。(何 問題 5.24 以下の命令は使える、と見てるんですが (define (cond? exp) (tagged-list? exp 'cond)) (define (cond-clauses exp) (cdr exp)) (define (cond-else-clause? clause) (eq? (cond-predicate clause) 'else)) (de…

へろへろなんで控えのみ。ちなみに 5.24 については直前エントリの状態で別途実機確認予定ッス。 問題 5.25 む。これ、思ったより面倒だな。ええと、actual-value で取り出した手続きが primitive か compound かで引数の処理の仕方が違ってくる。てコトは最…

SICP の以下のコード。最初が末尾再帰最適化なソレ。 ev-sequence (assign exp (op first-exp) (reg unev)) (test (op last-exp?) (reg unev)) (branch (label ev-sequence-last-exp)) (save unev) (save env) (assign continue (label ev-sequence-continue…

飛行機で遠出する用件があり、端末を置いていく勇気はない。最近バッテリーの具合が微妙だったりしまして $ apm -v No APM support in kernel $とか言われたりなんかしつつ AC アダプタの線を抜いたら「ぷちん」という音を残して電源がトンだりなんかしてま…

とりあえず目先のナニを以下に。 問題 5.23 から 25 まで解を検討 評価器が動く環境を作って解を検証 最後の問題を検討しつつ評価器で検証

iceweasel で音が云々は iKnow なソレを自宅で、とゆーのが (以下略 自宅にある windows なマシンで音が出ませんので自分の thinkpad で、と思ったんですが iceweasel でなんたら、を断念して debian パケジでない自分 firefox を起動してみたら音が出た。 …