Euler : Problem 2

Posted by TAKAIY On 2011年4月9日土曜日 0 コメント
問題2です。

フィボナッチ数列の問題なんですけど、これ、自力じゃない。
この間、どこかのサイトでみつけたやりかたなんだよね。

;;
;; Problem 2 2011/4/4
(defn my-fibo
([]
(concat [1 2] (my-fibo 1 2)))
([x y]
(let [next-num (+ x y)]
(lazy-seq
(cons next-num (my-fibo y next-num))))))

(reduce + (filter even? (take-while #(< % 4000000) (my-fibo))))

;;
この数列の構築のしかた、なるほどなぁ。だな。

0 コメント:

コメントを投稿