|
ToDo:
|
解けました。フィボナッチ数列って気付くのに随分時間がかかりました。
Clojureでフィボナッチ数列の解法って有名?なロジックがあるのでそれですっきり。
(def cnt (int (read *in*)))
(def cnt
(if (even? cnt) (quot cnt 2)
(+ 1 (quot cnt 2))))
(printf "%d"
(biginteger
(dec (nth
(map second
(iterate (fn[[x y]]
[(+ x y) (+ x y y)]) [1N 1N])) cnt))))