Common lisp tips

Windymelt

Common lispで書くために調べた事柄の実用的メモ．CLでのやり方を集めることを目指す．

メモを残していきます．不定期に更新します．

インストール

TBD

略称を定義する

(defmacro abbrev (short long)
  `(defmacro ,short (&rest args)
     `(,',long ,@args)))

(abbrev dbind destructuring-bind) ; too hard to remember

(dbind (x y) '(a b)
  (format t "~s, ~s~%" x y))

A, B

cf. http://www.bookshelf.jp/texi/onlisp/onlisp_17.html

速習`format` 関数

個人的によく使うものをまとめた．より詳しい説明は， http://super.para.media.kyoto-u.ac.jp/~tasuku/format-func.html を参照せよ．

文法

(format
  t                 ; tのときはstdoutに出力する
                    ; nilのときは文字列を返す
                    ; ストリームのときはそこに出力する．
                    ; より進んだ用法は上掲のリンクを参照せよ
  "制御シーケンス"    ; 指示子を含む文字列．
  [引数...]         ; 0個以上の引数が続く
)

指示子

これが全ての指示子ではない．より進んだ指示子や用法は，上掲のリンクを参照せよ．

`~s`

基本的な出力．引数をそのまま印字する．

`~a`

Aesthetic(美的)な出力を行う．例えば，~sとは違って文字列を括るダブルクオート"は印字されない．

`~%`

改行を出力する．#\Newlineを出力するが，これが\nになるか\r\nになるか\rになるかは，処理系/OSに依存する．確実に\nや\r\nを出力したいときは，~cに#\returnや#\linefeedを渡す．

cf. https://stackoverflow.com/a/2640875

`~&`

カーソルが行頭になければ改行を出力する．行頭にないときは何も出力しない．これはfresh-line関数を呼び出すのと同等である．

`~*`

引数を1つ飛ばす．

`~:*`

引数を1つ戻す．同じ引数を使い回したいときに使う．~*にコロン修飾子を付加した，特殊な形．

`~{` / `~}`

~{は，リストを1つ受け取り，~}に到達するまでの区間では，その要素が引数となる． ~}に到達すると，リストの次の要素が引数になる．要素がもうないときは，繰り返しから脱出する．

`~^`

次の要素がないときは，そこで繰り返しから脱出する．

パディング

いくつかの指示子では，数字を挟み込むとパディングができる．パディングはむずかしい．

(format t "[~16a] yen" 5000) ; left padding
(format t "[~16@a] yen" 5000) ; right padding
(format t "[~16,,,'*a] yen" 5000) ; left padding with asterisk

[5000            ] yen
[            5000] yen
[5000************] yen

例えば~aでは，~mincol,colinc,minpad,padcharaという引数の渡し方で細かくパディングを制御できる．

まず，minpadで指示した数だけのpadcharが無条件に挿入される．padcharは単一の文字であり，クオート'と文字の組合せで表現される．
次に，colincで指示した数ずつのpadcharが挿入される．mincolに到達するまで，このステップが繰り返される．
各引数は，だいたい省略できる．省略したときは適当なデフォルト値になるが，細かい挙動はやはり前掲のリンクを参照せよ．

; ワロタを印字し，
; 直ちにwを(padchar)3文字(minpad)挿入し，
; 10文字を超えるまで(mincol)3文字ずつ(colinc)wを挿入する
(format t "~10,3,3,'wa" "ワロタ")

ワロタwwwwwwwww

使い道は，よくわからない．Lispは人工知能界隈で使われていたという事情から考えると，こういう機能も必要だったのかもしれない．

パッケージ定義

asdファイルに使うファイルを記述する（面倒） defpackage ではパッケージ名はキーワードにする

Common Lispにsplitはないの？

文字列を指定の文字で分割するには， split-sequence:split-sequence を使う．

(quicklisp:quickload :split-sequence)
(split-sequence:split-sequence #\Space "this is sample CL program")

リストも分割できる．

(split-sequence:split-sequence 'a '(p a n a m a n o b a n a n a))

((P) (N) (M) (N O B) (N) (N) NIL)
14 ; split-sequenceは多値を返す

標準入力から行を読み込む

read-line で1行読み込むことができる．全ての行を読み込むには loop マクロなどを使う．

(loop for line = (read-line nil nil :eof)
      until (eq line :eof)
      do (print t "%s%~" line))

Octet streamを文字列に変換したい

flexi-streams:octets-to-string を使う．

http clientを使いたい

drakma:http-request を使う．

jsonを書きたい

jsown:to-json を使う．オブジェクトを生成するには (:obj key val) を使う． jsonをパースするには jsown:parse を使う．

(quicklisp:quickload :jsown)
(jsown:to-json '(:obj (hello . "world")))

{"HELLO":"world"}

(jsown:parse "[1, 2, 3]")

分割代入

記述力に勝る optima.extra:let-match か， destructuring-bind を使う．

destructuring-bind

スペルを覚えにくい． de-structur-ing である．

(destructuring-bind
  (first second) #| <= bound |# '(alpha omega)
  (format t "head is ~s, another is ~s~%" first second))

`match` / `let-match`

let-match は match の let 風の記法である．

(quicklisp:quickload :optima)

;; define object to match
(setq lis '(alpha beta gamma))
(format t "lis is ~s~%" lis)

;; pattern-matching
(optima:match lis
  ((list first second third)
   (format t "first is ~s, second is ~s, third is ~s.~%" first second third)))

;; code above is equivalent to below
(optima.extra:let-match (((list first second third) lis))
  (format t "first is ~s, second is ~s, third is ~s.~%" first second third))

To load "optima":
  Load 1 ASDF system:
    optima
; Loading "optima"

lis is (ALPHA BETA GAMMA)
first is ALPHA, second is BETA, third is GAMMA.
first is ALPHA, second is BETA, third is GAMMA.

繰り返し

loop マクロを使う．

(setq xs '(alpha beta gamma))
(loop for x in xs
      do (format t "value is ~s~%" x))

value is ALPHA
value is BETA
value is GAMMA

cf. http://smpl.seesaa.net/article/29800843.html

#pとは

パスオブジェクトのリテラル．

#sとは

構造体のリテラル．

doubleとして数値を読む

*read-default-float-format* を使う．

(format t "~s~%" *read-default-float-format*)
(setq *read-default-float-format* 'double-float)
(format t "~s~%" *read-default-float-format*)

SINGLE-FLOAT
DOUBLE-FLOAT

コマンドラインオプションを読み取る

unix-opts などのパッケージでコマンドラインオプションを読み取ることができる．

`unix-opts`

TBD

define-opts でオプションを定義し，

;;; opts.ros

(quicklisp:quickload :unix-opts)

;; defining CLI options
(define-opts :name some-option ; mandatory.
             :description "This is test option." ; optional but recommended.
             :short #\o ; can omit if you specify :long
             :long "option" ; can omit if you specify :short
             :meta-var hoge)