実践Common Lispを読んでみる3

作者: Peter Seibel,佐野匡俊,水丸淳,園城雅之,金子祐介
出版社/メーカー: オーム社
発売日: 2008/07/26
メディア: 単行本（ソフトカバー）
購入: 8人クリック: 192回
この商品を含むブログ (69件) を見る

(defun plot (fn min max step)
  (loop for i from min to max by step do
       (format t "~a:" i)
       (loop repeat (funcall fn i) do (format t "*"))
       (format t "~%")))

60ページのソース。４章はまるまる飛ばした。
これを下記の用に実行すると、

CL-USER> (plot #'exp 0 4 1/2)
0:*
1/2:**
1:***
3/2:*****
2:********
5/2:*************
3:*********************
7/2:**********************************
4:*******************************************************
NIL
CL-USER>

↑
http://dl.getdropbox.com/u/228440/veleno-samples/lisp-samples/sample.lisp