FizzBuzzとの3か月(8)

お世話になっております。
今日は昨日のコードを直しました。
条件分岐をifで記述したので、ネストが深くなっていました。
ifの代わりにcondを使用することで、ネストを浅くすることができました。

以下、コードです。

(dotimes (i 100)
  (print
   (cond ((and 
		  (= 0 (mod (+ i 1) 3))
		  (= 0 (mod (+ i 1) 5)))
		  "FizzBuzz")
		 ((= 0 (mod (+ i 1) 3))
		  "Fizz")
		 ((= 0 (mod (+ i 1) 5))
		  "Buzz")
		 ((+ i 1))
		 )))

次は変数を使い、もう少し読みやすくしたいと思います。

以上