Common Lisp の MongoDB ドライバを作ってみた
cl-mongo があるのは知っていましたが、それでも Common Lisp の MongoDB ドライバを作ってみました。 https://github.com/quek/info.read-eval-print.bson https://github.com/quek/info.read-eval-print.mongo Quicklisp には入ってません。 いろいろ足りないかもしれませんが、とりあえず動きます。仕事でログ解析に使ったりしています。 ;; 他にも https://github.com/quek/ の下にある何かが必要かも・・・ (eval-when (:compile-toplevel :load-toplevel :execute) ;; https://github.com/quek/info.read-eval-print.bson (ql:quickload
Google Code Jam Qualification Round 2011
参加した。 もちろん使用言語は Common Lisp A Bot Trust オレンジが仕事している間もブル一は仕事できる。まずは、 O の仕事と B の仕事をグルーピングしよう。 loop で書きかけたら、何だか書きにくい。再帰で書く。 あ、だめだ。 B 1 B 2 と連続していたら、O が仕事している間にできるのは、 B 1 の分だけだ。 (setf prev-sec 0) が必要。 ボタンを押す分を足すの忘れてる。 1+ 追加。 2ヵ所で (if (eq curr-robot 'o) とか判定してるのきたないな。。。ま、いいか。 うん、動いた。よさそう。 入力は、リーダがあってよかった。 Small も Larg もかわらないね。 ;;;; Google Code Jam ;;;; Qualification Round 2011 ;;;; A Bot Trust ;;;; Com
Common Lisp で Web アプリを作るためのブランクプロジェクト
何かの時に必要になるかもしれないと思い、 Common Lisp で Web アプリを作るためのブランクプロジェクトを作ってみた。 https://github.com/quek/hunchentoot-blank Hunchentoot, CL-WHO, CLSQL を使ったブランクプロジェクト。 データベースには MySQL を使用。シェルから次のコマンドを実行してデータベースの作成が必要。 echo 'create database hunchentoot_blank default character set utf8;' | mysql -u root 次を実行して http://localhost:8888/ にアクセスする。 (require :hunchentoot-blank) (hunchentoot-blank::start) これだけではちょっと寂しいので、いつもの
Parenscript で jQuery を使う場合は chain を
Parenscript で jQuery を使うのは のエントリで Parenscript のメンテナ Vladimir Sedach さんからコメントをもらい、既に chain というのがあると教えてもらった。Vladimir Sedach さんありがとうございます。 (ps:ps (ps:chain ($ "#f1") (attr "action" "edit"))) ;; => "$('#f1').attr('action', 'edit');" (ps:ps (defun foo (x) (bar x (ps:chain x bano (bino) (baha 1 2 3))))) ;; => "function foo(x) { ;; bar(x, x.bano.bino().baha(1, 2, 3)); ;; };" 素晴しい!!
Named-Readtables いいね
g000001 さんからいいと聞いていた Named-Readtables をようやく使ってみた。 Common Lisp のリーダマクロはいろいろいろいろだけど。。。 Named-Readtables はいいと思う。 下のコードはいろいろいろいろだけど。。。 Named-Readtables はいいような気がする。 (eval-when (:compile-toplevel :load-toplevel :execute) (require :named-readtables)) (defpackage :string-reader (:use :cl) (:export #:syntax)) (defun |#"""-reader"""| (stream) #1=(read-char stream t nil t) (with-output-to-string (*standard-o
ABCL で Google app engine
前回は Clojure だったので今回は ABCL。 ABCL on Google App Engine を頼りにやってみる。 まずは Eclipse でプロジェクトを作る（手抜き）。 abcl.jar を war/WEB-INF/lib に ln -s して Eclipse の build pass に abcl.jar を追加。 ABCL のリポジトリにあるサンプルから AbclInit.java, HelloWorldServlet.java, first-servlet.lisp をプロジェクトのソースディレクトリにコピー。 first-servlet.lisp は Slime で C-c C-k してコンパイル。 war/fasls ディレクトリを作ってコンパイルした first-servlet.abcl をコピー。 war/WEB-INF/appengine-web.xml の
[Common Lisp] SBCL 環境 ライブラリ ~/.sbclrc
Common Lisp のライブラリ環境をそろえるのに幾つか方法があると思うが、私がどうしているかを書いておく。 Debian を使用。基本的に Debian のパッケージがあるものは Debian のパッケージを使う。 パッケージのないもの、あっても最新バージョンが欲しいものは~/letter/lisp/lib の下に各リポジトリからチェックアウトしている。Common Lisp 界は darcs が多かったけど git が主流になりつつある気がする。それらを asdf:*central-registry* に登録するために下記のようにcl-fad を使っている。 Debian パッケージもリポジトリの公開もないものは asdf-insatll している。 あとライブラリを探すときは CLiki と The Common Lisp Directory を参照する。 ~/.sbclrc は
[Common Lisp] Twitter というよりむしろ CL-JSON
以前、Common Lisp で Twitter API をたたいて妙なアクセサを作ったりしたけど、CL-JSON にはもっと便利な機能があった。 *json-symbols-package**json-object-factory**json-object-factory-add-key-value**json-object-factory-return*などを上手に設定してやれば、ちゃんと Lisp のオブジェクトを構築してくれる。下のコードの twitter-status は user スロットに twitter-user を持つが、そのへんもきちんとめんどうみてくれる。CL-JSON かしこい。 まだきちんと把握してないが、以下コードの断片。 (in-package :twittcl) ;; 文字コードは UTF-8 で (setf drakma:*drakma-default-e
[Common Lisp] loop collect でのクロージャ
Yoshinori Tahara 横浜市, 神奈川県, Japan 好きなもの: Common Lisp, Kinesis, アーロンチェア, Kensington Expert Mouse 詳細プロフィールを表示 ► 2021 (4) ► 8月 (3) ► 1月 (1) ► 2019 (4) ► 7月 (4) ► 2015 (4) ► 9月 (1) ► 6月 (1) ► 4月 (2) ► 2014 (12) ► 9月 (2) ► 7月 (2) ► 6月 (2) ► 3月 (1) ► 2月 (2) ► 1月 (3) ► 2013 (13) ► 11月 (1) ► 9月 (2) ► 8月 (2) ► 7月 (1) ► 6月 (1) ► 5月 (1) ► 4月 (1) ► 3月 (2) ► 2月 (1) ► 1月 (1) ► 2012 (38) ► 12月 (1) ► 11月 (2) ► 10
Emacs 番号をふる。query-replace-regexp-eval が便利
Yoshinori Tahara 横浜市, 神奈川県, Japan 好きなもの: Common Lisp, Kinesis, アーロンチェア, Kensington Expert Mouse 詳細プロフィールを表示 ► 2021 (4) ► 8月 (3) ► 1月 (1) ► 2019 (4) ► 7月 (4) ► 2015 (4) ► 9月 (1) ► 6月 (1) ► 4月 (2) ► 2014 (12) ► 9月 (2) ► 7月 (2) ► 6月 (2) ► 3月 (1) ► 2月 (2) ► 1月 (3) ► 2013 (13) ► 11月 (1) ► 9月 (2) ► 8月 (2) ► 7月 (1) ► 6月 (1) ► 5月 (1) ► 4月 (1) ► 3月 (2) ► 2月 (1) ► 1月 (1) ► 2012 (38) ► 12月 (1) ► 11月 (2) ► 10
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
１０分でコーディング x 2 〜リストの破壊的操作篇に挑戦
[Commo Lisp] mapf
[Common Lisp] SQL その2
[Common Lisp] SQL
[Common Lisp] lambda と書くのがめんどうなときに。{}
[Common Lisp] lambda と書くのがめんどうなときに
Common Lisp から Maxima の関数を使う
[Common Lisp] Web フレームワークを作る。CLSQL
[Common Lisp] Climacs のメモ
[Common Lisp] 文字列リテラルを作る