2011-07-01から1ヶ月間の記事一覧
1000以下の回文素数で最大のものを示せ 示してみる。 (use '[clojure.contrib.lazy-seqs :only (primes)]) (defn palindromic-number? [n] (let [v (vec (str n))] (= v (reverse v)))) (defn last-palindromic-prime-number [limit] (->> primes (take-whil…
1000以下の回文素数で最大のものを示せ 示してみる。 (use '[clojure.contrib.lazy-seqs :only (primes)]) (defn palindromic-number? [n] (let [v (vec (str n))] (= v (reverse v)))) (defn last-palindromic-prime-number [limit] (->> primes (take-whil…