Project Euler Problem 25

problem_25.clj

(ns projecteuler.problem-25
  (:require [clojure.string :as str]
            [clojure.math.numeric-tower :as math])
  (:use clojure.test))

(defn fib-gen
  "フィボナッチ数を generate する関数。初期値[1 1]から iterate する前提。"
  [[a b]] [b (+' a b)])

(def fib-seq
  "フィボナッチ数とその項を返す。"
  (->> (iterate fib-gen [1 1])
       (map first)
       (map-indexed (fn [idx itm] [(inc idx) itm]))))

(defn find-min-fibs
  "lower 以上で最小のフィボナッチ数とそのindexを返す。"
  [lower]
  (first (drop-while #(<= (second %) lower) fib-seq)))

(defn problem-25
  "Project Euler Problem 25"
  ([] (problem-25 (math/expt 10 999)))
  ([lower] (first (find-min-fibs lower))))

;;(time (problem-25))
;;=> "Elapsed time: 5.387 msecs"

;; test
(is (= (find-min-fibs 100) [12 144]))

(is (= (problem-25 100) 12))

ypsilon-takai さん

• コメントありがとうございます。fib-seq の件、確かにその通りかもしれません。名前fib-seq と中身が一致してないから余計に違和感を増している感じですね。plaster さんのコメントにある fibs が fib-seq にふさわしいかも。
• google の lisp コーディング規約からの引用、ありがとうございます。日本語訳 は現在翻訳進行中ですが一応リンク貼っておきます( ソース )。

plaster さん

• コメントありがとうございます。
• 解法、目からうろこです。すっきりしていいですね。ありがとうございます。

@ponkore さん

日本語訳やってるんですね。しかもメンバーをやってらっしゃる。 githubでやってるんですねぇ。 おもしろそうだなぁ。 まだ訳されてないのがありますねぇ。 やってみようかなぁ。

@plaster さん

僕もインデックスなくせないかなぁと思ったんですが、出ませんでした。 思考が硬直してる証拠ですね。 おみごとです。

いや、ほんのちょびっとしか翻訳していないんです...偉そうにリンク出してしまったのですが、なんだか申し訳ない(暇できたらまたやります!!)。