2014-02-04

http://anond.hatelabo.jp/20140204162936

100未満のフィボナッチ数列

(defn fib
  ([] (fib 0 1))
  ([x y] (lazy-seq (cons x (fib y (+ x y))))))

(take-while #(> 100 %) (fib))

ありゃpreなのに記号出ねーな。

記事への反応 -

記事への反応(ブックマークコメント)

ログイン ユーザー登録
ようこそ ゲスト さん