18012009 lisp
単語の特徴を表すクラスを作って、ベイジアンフィルタを実装していく。
最後のヤツは対数の総和をとるのに
実践Common Lisp(reduce #'+ probs :key #'log)
# reduce(lambda x,y:log(x)+log(y),list) ;python
こんな風に書くことが出来る。
17012009 lisp
format,例外処理,package,LOOPあたり
ちまちま読んでてあまり頭に入らないのでざっと目を通して脳内インデックスを作っておく感じで眺めた。理解する必要が生じた場合に戻ってきて読めばいいのだろう。
これ以降はすべて実践の章で面白そうな内容ばかり。特に次の章はlispで作るベイジアンフィルタだ。
15012009 lisp
asdf(日本語)とはperlでいうところのCPANみたいなものらしい。
でもってperl互換な正規表現ライブラリのcl-ppcreをインストールしてみる。
ちなみに毎回asdfをrequireするのは面倒なので.sbclrcに
(require 'asdf)
って一行入れてある。
asdf-installはgpgを使っているのでここを参考にして設定した。
で、インストールはsbclを起動して
(require 'asdf-install)
(asdf-install:install 'cl-ppcre)
って打つだけ。おーなんかcpanみたいで気持ちいい。
インストールできたら実際に使ってみる。どう書く?の税込み価格への修正をやってみた。asdfだとloadの仕方がちょっと違うみたい。
* (asdf:operate 'asdf:load-op 'cl-ppcre)
NIL
* (defun including-tax (string)
(cl-ppcre:regex-replace-all
"\\d+" string
(lambda (num) (format nil "~a" (floor (* (parse-integer num) 1.05))))
:simple-calls t))
INCLUDING-TAX
* (including-tax "ダイコン150円、ハクサイ120円、ジャガイモ30円")
"ダイコン157円、ハクサイ125円、ジャガイモ31円"
T
感激!
さて、loadする時にasdf:operateって書いてあったりasdf:oosって書いてあったりして違いがわからなかったのだけど、oos is a synonym for operateなんだそうだ。
パッケージを見てたらperl-in-lispというものを見つけた。おもしろそうなのであとで触る。
あとpython-on-lispというものもあるらしい。
14012009 lisp
lispでオブジェクト指向。
この2つの章だけでは理解がいまいちだったけど、次のページが参考になった。
12012009 lisp
入門Common Lispの第8章が面白いですね。
λ式を使って数を定義していって、次に足し算、掛け算を実装。最後にY-combinatorを使った再帰を定義して、階乗を計算させる。
入門Common Lisp―関数型4つの特徴とλ(ラムダ)計算(defun Y (f n) (funcall (funcall f f) n))
この流れでGrassも理解しておきたいところ。
11012009 lisp
数、文字、文字列、コレクション(ベクタ)、リスト、連想リスト、属性リスト、ファイルIOに関して一通りやって、パスネーム可搬ライブラリを実装してみる。
ここらへんの内容はxyzzy Lisp Programmingのほうが丁寧に書いてあると思う。
次はlispでオブジェクト指向に入っていく。ちょっと楽しみ。
10012009 lisp
マクロに関して。
9章でマクロを使ってユニットテストを書いていくんだけど、抽象化の過程がやたらと面白かった。
09012009 lisp
シンタックス、セマンティクス、変数、関数あたりの説明。
ダイナミック変数ってのは要するにperlでいうグローバル変数のようなものか？そしてletがlocalに似た挙動を示すっぽいな。
09012009 lisp
common lispだと
(let ((count 0))
(list
#'(lambda () (incf count))
#'(lambda () (decf count))
#'(lambda () (count)))
同じことをperlでもlispっぽくかける。
#!/usr/bin/env perl
use Perl6::Say;
sub make_counter {
my $c = 0;
return (
sub {$c++},
sub {$c--},
sub {$c}
);
}
my ($inc,$dec,$counter) = make_counter();
say $counter->(); # 0
$inc->();
$inc->();
$inc->();
say $counter->(); # 3
$dec->();
say $counter->(); # 2