2009/11/14

Clojure de FizzBuzz

ちょっとだけお勉強。覚えること多いし、それ以上に考え方変えてかなきゃいけないから大変だなぁ。

#!/usr/bin/env clj

; FizzBuzz

(println (map (fn [x]
                (cond
                  (= (rem x 15) 0) 'FizzBuzz
                  (= (rem x 5) 0) 'Buzz
                  (= (rem x 3) 0) 'Fizz
                  :else x))
           (range 1 101)))

Lisp のインデントわからない…フォーマッタあるよね多分。

完全に手続き脳だからいちいち (println x) したくなるけど、そんなの後でやればいい、と。

0 コメント: