/var/log/messages

Nov 8, 2013 - 1 minute read - Comments - EoPL Scheme

EoPL の Exercise 2.14 (2)

なんか昨晩書いた試験が微妙、って思ったら pop は状態を変えるだけで値を取り出す手続きは別で存在してたんすね。いやはや。とりあえず微妙なのは以下の部分だった模様。

(test* "get top of stack"
       1
       (pop (push 1 (empty-stack))))

pop は値を戻すのではなくて stack を戻さないと。

(test* "get top of stack"
       empty-stack
       (pop (push 1 (empty-stack))))

ということで実装書く。つうか書いてみたら試験も色々駄目でした。

Nov 8, 2013 - 1 minute read - Comments - octopress

Octopress の TODO

ええと、以下に列挙。 tweet が出力されてない categories amazon リンク つうかこの際なので SEO な実験してみようかな。assense はそれなりに正確な数値が取れているみ

Nov 7, 2013 - 1 minute read - Comments - EoPL Scheme

EoPL の Exercise 2.13

試験スルーで軽く、ということで勘弁してもらう方向。 unparse が以下なのかどうか。

(define unparse-expression
  (lambda (exp)
    (cases term exp
      (var-term (id) id)
      (constant-term (datum) datum)
  (app-term (terms)
        (let app-term-unparse ((terms terms) (ret '()))
          (if (null? terms)
              (reverse ret)
              (app-term-unparse (cdr terms) (cons (unparse-expression (car terms)) ret))))))))

Nov 7, 2013 - 1 minute read - Comments - EoPL Scheme

EoPL の Exercise 2.14

同居人には内緒で sticker 発注だん。それは良いとしてとりあえず以下な手続きの試験を書いてみます。

  • empty-stack
  • push
  • pop
  • top
  • empty-stack?

この節の記述によれば top と empty-stack? が ovservers でそれ以外は constructors ってことで良いのかどうか。

Nov 6, 2013 - 3 minute read - Comments - octopress

Octopress 設定云々

現実トウヒです。今朝も頭ぐるぐる状態でした。 とりあえずイケてないあたりを以下に列挙。

  • adsense なバナーを右上と下に配置したい
  • TagCloud
  • discus 設定できてない
  • tweet 取得できてない
  • _include/post/sharing.html が壊れている

とりあえず構造てきな部分が全然理解できてないのでそのあたり掘削しつつ、という事で。