FizzBuzzとの3か月(7)

FizzBuzz lisp

お世話になっております。

今日も引き続きFizzBuzz問題です。
今日はlispで書いてみました。
最近は並列プログラミングがはやっているらしく、lispやHaskellも気になる言語です。

以下、コードです。

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

lispも良いですね。普段Javaなどを使っていると、括弧の多さに目が回ってしまいますけど。

以上