Drkcore

06022009 lisp

Common Lispでメモ化

memoizeというのを使ってみた。

(asdf:oos 'asdf:load-op 'memoize)

(defun fib (n)
  (if (<= n 1)
      1
      (+ (fib (- n 1))
          (fib (- n 2)))))

(memoize:def-memoized-function fibm (n)  (if (<= n 1)
      1                    
      (+ (fibm (- n 1))
          (fibm (- n 2)))))

実行

* (fib 40) ; 結構待たされる

165580141
* (fibm 40) ; 一瞬

165580141

SBCLでベンチマークの取り方がわからん。

06022009 life

やりなおし算数道場

図書館にいったらあったので借りてみた。

やりなおし算数道場 (ブルーバックス)
歌丸優一
講談社 / ￥ 1,092 ()
通常24時間以内に発送

なんつーか図書館で借りる本じゃなかった。数問解いて、家でこんなん解く暇があったらコード書いたほうが、、、と。2週間で読もうとかが間違ってた。

結構面白いので、ちゃんと買って積んでおいて、出張の時とかに鞄に忍ばせておくのが正解。

そういう本でした。

一緒に借りてきた脳のやつを読もう。

脳研究の最前線(上巻) (ブル-バックス)

講談社 / ￥ 1,197 ()
通常24時間以内に発送

05022009 CTMCP

CTMCP chapter8 終了

状態共有並列性

データベースのACIDとか、そういう並列性の話

コンピュータプログラミングの概念・技法・モデル(IT Architect' Archiveクラシックモダン・コンピューティング6) (IT Architects’Archive CLASSIC MODER)
セイフ・ハリディ,ピーター・ヴァン・ロイ,Peter Van-Roy,Seif Haridi
翔泳社 / ￥ 8,610 ()
通常24時間以内に発送

あんまそそられなかったので流し読み。

05022009 lisp

Common Lispのhttp client

aserveのクライアントを使ってlast.fmの自分のベストトラックのXMLをとってくる。

Common Lisp と日本語と文字コードによるとバイナリでゲットしてエンコードすべしとのことだったのでそうした。

(asdf:oos 'asdf:load-op 'aserve)
(setq result (net.aserve.client:do-http-request 
    "http://ws.audioscrobbler.com/2.0/user/kzfm/toptracks.xml"
    :format :binary))
(sb-ext:octets-to-string result :external-format :utf8)

結果。

"<?xml version=\"1.0\" encoding=\"UTF-8\"?>
<toptracks user=\"kzfm\" type=\"overall\">

<track rank=\"1\">
    <name>Imaginary Folklore</name>
    <playcount>169</playcount>
    <mbid></mbid>
    <url>http://www.last.fm/music/Clammbon+By+Nujabes/_/Imaginary+Folklore</url>
    <streamable fulltrack=\"0\">0</streamable>
        <artist>
        <name>Clammbon By Nujabes</name>
        <mbid></mbid>
        <url>http://www.last.fm/music/Clammbon+By+Nujabes</url>
    </artist>
        </track>
<track rank=\"2\">
    <name>アンパンマンのマーチ</name>
    <playcount>77</playcount>

こんな感じで、割と簡単にできた。あとはパースすればよいですな。

05022009 life