[Common Lisp] 関数が定義されているか
シンボルに対応する関数が定義されているかは fboundp 関数で調べる。 CL-USER> (defun foo (x y) (+ x y)) FOO CL-USER> (fboundp ‘foo) T CL-USER> (fboundp ‘bar) NIL
Month: August 2010
[Common Lisp] intern と symbol-name
intern は印字名に対応するシンボルを得る関数。 逆に、シンボルの印字名を得るには symbol-name 関数を用いる。 下の concat-symbol は「2つのシンボルの各印字名を連結した印字名をもつシンボル」を返す関数。 (defun concat-symbol (x y) (intern (concatenate ‘string (symbol-name x) (symbol-name y)))) CL-USER> (concat-symbol ‘x ‘y) XY NIL
[Common Lisp] リストの複製
毎回忘れて再発明しそうになるが、Common Lisp にはリストを複製する関数 copy-tree がある。 CL-USER> (let ((lst ‘(a b c))) (eq lst (copy-tree lst))) NIL
[Common Lisp] コマンドライン引数を取得
Common Lisp ではコマンドライン引数を取得する方法は処理系依存らしい。 Steel Bank Common Lisp (SBCL) の場合は *posix-argv* に文字列のリストの形で代入されている。 Allegro Common Lisp (ACL) の場合は system パッケージの command-line-arguments 関数で取得できる。 『KMRCLを眺める(184) COMMAND-LINE-ARGUMENTS』 によると、(apropos ‘argv) として ‘argv で関数の説明文を検索すれば処理系毎の方法が見つかることが多いとのこと。
破妖の剣6 鬱金の暁闇6
外伝、聖石と来たときはまた止まる予感がしてたのだけれど、意外と早く出たよう。前回の本編から、1年経ってない。すばらしい。さらに帯にて「まんが化決定」の告知。今度は小島 榊が描くのだろうか。 破妖の漫画化は今回初めてでなく、厦門潤 作画のものが４冊出ている。コバルト本誌で連載していて、当時幼かった自分も読んでいた。まだ読解力が不足していて、物語の筋は追えてもラスと闇主の関係とかやりとりとか、そういうものがよく分かっていなかったのだが、この漫画で二人の関係の壮絶さを知った気がする。今でもこのシリーズを追っているのはこの漫画によるところが大きいかもしれない。 『紫紺の糸』を漫画化した『深紫絃韻』が特に盛り上がっていて、壮絶な意地の張り合いから闇主が折れる？までがイイ。 内容は本編７割、番外編３割。番外編はチェリクの幼い頃の話。帯で怒濤の展開とあおっている割にはあまり進んでいるような気がしない。ラエスリールが目覚めたって言うのが大きいんだろうけど、ほとんどそれだけ。ただ、魅了眼の存在、第六の妖主の目論見が少し分かってきた。次はアーゼンターラと藍絲の戦闘がメインのよう。時期については「あまり時間を空けず、第七巻をお届けする予定です」とのこと。 破妖の剣 ６ 鬱金の暁闇６ (コバルト文庫)前田 珠子 小島 榊 by G-Tools
[SpamAssassin] mbox形式のメールで学習
mbox形式で保存されたメールを学習で用いるには、 sa-learn に –mbox オプションを指定する。 % sa-learn –mbox –spam smapfile Learned tokens from 228 message(s) (228 message(s) examined)