Drkcore

Common Lispの束縛(自己参照型)

いまいちシンボルについてきちんと理解してないのでたまに混乱するのだけど、キーワードシンボルが束縛されているか調べてたのでエントリにしてみた。

自己評価型ってのはboundpは常にTを返すんですねぇ(Tとかnilも)。ここらへんは実際に実装してみれば理解が深まるのかなぁ。

21022009 lisp

Common Lisp入門

わかりやすかった。

Common Lisp 入門 (岩波コンピュータサイエンス)
湯浅太一,萩谷昌己
岩波書店 / ￥ 3,990 ()
通常24時間以内に発送

traceを使うと関数がどのように呼び出されたかわかる
縦棒を使うと小文字をつかった印字名がつくれる |KzFm|

15022009 lisp

Common Lispのwebサーバー(hunchentoot)

macbookでaserveがうまく動かせないのでhunchentootを使ってる。日本語の通しかたをみつけたので早速。あとcl-whoもちょっといじってみた。

(require :hunchentoot)
(require :cl-who)
(setq *server* (hunchentoot:start-server :port 4242))
(setf (hunchentoot:log-file) "./server.log")
(setq hunchentoot:*hunchentoot-default-external-format*
     (flex:make-external-format :utf-8 :eol-style :lf))
(setq hunchentoot:*default-content-type* "text/html; charset=utf-8")
(setq hunchentoot:*dispatch-table*
     (list (hunchentoot:create-regex-dispatcher "^/$" 'hello-world)))
(defun hello-world ()
 (cl-who:with-html-output-to-string
     (str nil :prologue t)
   (:html (:head (:title "hello world"))
             (:body (:h1 "はろはろ リスプってますよ") (:br) (:img :src 
"http://ec2.images-amazon.com/images/I/51gfHrLAtTL._SS500_.jpg")))))

hunchentoot

このながれで、hunchentootでblosxomクローンでもつくってみるかな。

15022009 lisp Emacs

SBCLのasdf:oosとrequire

SBCLのasdf:oosとrequireの違いがわからないという、解決も何にもしてないただ疑問だけのエントリーを書いた。

あと、Slimy Hackathon面白そうだ。参加したいところだが、、、、

emacs+slime+clojure+processingでaction-codingのようなことがやれればと思っているんだけど。clojure+processingで再帰的な図形が描ければ楽しいと思うんだよなぁ。

計算機プログラムの構造と解釈
ジェラルド・ジェイサスマン,ジュリーサスマン,ハロルドエイブルソン
ピアソンエデュケーション / ￥ 4,830 ()
通常24時間以内に発送

11022009 lisp

グループブログはモチベーションが保ててよい

pathnameについて書いた。

#Pって索引になくて、探すの難儀した。

実践Common Lisp
Peter Seibel
オーム社 / ￥ 4,410 ()
通常24時間以内に発送

グループブログって初めて参加してみたけど、モチベーションが保ててよい。

09022009 lisp

Common Lispのwebサーバー

前回aserveがうまくいかなかったので、もうひとつのHUNCHENTOOTを試してみた。

(asdf-install:install 'hunchentoot)

だとこけるので、依存しているライブラリをひとつづつインストールした後改めてhunchentootをインストールしたらあっさり完了

hunchentoot

言語の組み込みのサーバーが動くとなんとなくワクワクする。

09022009 perl lisp

Simoのソース読み

ここのところOn Lispとか実践Common Lispを読んで、マクロって面白いなぁと。

という流れで、Simoのソースを読んでみた

そういえばModule::Compile::TTがあったのを思い出した。

That said, string level preprocessing of source code sucks. However, since Perl doesn't have a convenient AST to write Lisp-style macros and deeper templates (that are aware of Perl's own semantics), this module does fill a niche.

Lispだとマクロをガリガリ使えるのは抽象構文木のおかげ？そこらへんのモヤモヤが晴れないのは精進が足りないからか。

08022009 lisp

Common Lispでlast.fmのベストトラックをパース

この前の続き。

(asdf:oos 'asdf:load-op 'aserve)
(asdf:oos 'asdf:load-op 's-xml)

(setq result (net.aserve.client:do-http-request 
    "http://ws.audioscrobbler.com/2.0/user/kzfm/toptracks.xml"
    :format :binary))

(setq  data (s-xml:parse-xml-string (sb-ext:octets-to-string result 
    :external-format :utf8)))

s-xmlを使った。

((:|toptracks| :|user| "kzfm" :|type| "overall")
 ((:|track| :|rank| "1") (:|name| "Imaginary Folklore") (:|playcount| "169")
  :|mbid|
  (:|url| "http://www.last.fm/music/Clammbon+By+Nujabes/_/Imaginary+Folklore")
  ((:|streamable| :|fulltrack| "0") "0")
  (:|artist| (:|name| "Clammbon By Nujabes") :|mbid|
   (:|url| "http://www.last.fm/music/Clammbon+By+Nujabes")))
 ((:|track| :|rank| "2") (:|name| "アンパンマンのマーチ") (:|playcount| "78") :|mbid|
  (:|url|

結論:Nujabesのクラムボンrmxはよい

hydeout productions 2nd Collections
オムニバス,hydeout productions,emancipator,Shing02,Uyama Hiroto,DSK,Nujabes,clammbon by nujabes,Pase Rock,C.L.Smooth,Substantial,Five Deez
インディーズ・メーカー / ￥ 3,000 (2007-11-11)
通常24時間以内に発送

07022009 perl lisp