よーわからん。 Mecabインストール download http://lispuser.net/files/jp.tar.gz http://lispuser.net/files/guess.tar.gz http://lispuser.net/files/mecab.tar.gz ~/sbcl/site に展開 それぞれの asdファイル (jp.asd guess.asd mecab.asd）を ~/sbcl/sy…

なんか、すごいプログラマの人が出したという迷路を解く問題http://okajima.air-nifty.com/b/2010/01/post-abc6.htmlをいまさらRubyで行った。 ダイクストラ法の勉強で2時間 それをコードに落とすのに2時間 「Oh! No! 動かなーい」で3時間 結果を表示するの…

(once-only (a b ... ) body) ;;;=> (let ((#:G01 a) (#:G02 b) ....) (let ((a #:G01) (b #:G02) ....) body)) となることは想像つくんだけど・・・ 作れといわれてもまだ無理か。

マット・リドレーの「繁栄 明日を切り開くための十万年史」が面白すぎる。

CommonLispはトップレベルに定義された変数はスペシャル変数となりダイナミックスコープを持つ (defvar x 10) (defun foo () x) (let ((x 100)) (foo)) => 100 レキシカルスコープこんな風にコーディングすることがあるのかどうかは知らんが。 (let ((x 10))…

手続きの残り引数 CommonLisp (defun huga (a &rest b) (list a b) # (huga 1 2 3) -> (1 (2 3)) scheme (define (huga a . b) (list a b) # -> (huga 1 2 3) -> (1 (2 3)) ほとんど同じ。schemeの方が楽といえば楽 オプショナル引数 CommonLisp (defun huga…