loop と do に続いて、dolist を使ってみる。Lisp $B%W%m%0%i%_%s%0#1(Bによれば、dolist は foreach 文に相当するようだ。 サンプルを書いてみる。 >(setq lst '(1 2 3 4 5 6 7 8 9)) (1 2 3 4 5 6 7 8 9) >(setq result 1) 1 >(dolist (i lst result) (s…