Y箱

問題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))))

;;

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