屑俺日記

☆ dolist

(doinst (初期値 リスト 返り値) 式1 式2 ...)
適当に。

(setq first 0)
(setq result 1)
(dolist (first '(1 5) result)
 (setq result (* result first))
 (setq	result (+ result first)))
15

最初に 4行目を評価すると、result に 1 が、 そして初期値が 0 だった first に1 が代入されて、result = 1 * 1 で result は 1。
最初に5行目を評価すると、result = 1 + 1 で result は 2 。
次に4行目を評価すると、result = 2 * 5 で result は 10 。
次に5行目を評価すると、result = 10 + 5 で result は 15。