Euler : Problem 36

Posted by TAKAIY On 2011年5月22日日曜日 0 コメント
十進でも二進でも回文数になっているなっている数をさがす問題。

そのまま解いちゃってるけど、一応、奇数じゃないと二進で回文にならないからそこだけ考慮してる。

;;
;; Problem 36 : 2011/5/19
;; "Elapsed time: 4715.235037 msecs"

(defn palindromic? [str]
(= str (ccstr/join "" (reverse str))))

(reduce + (filter #(and (palindromic? (str %))
(palindromic? (Integer/toBinaryString %)))
(range 1 1000000 2)))

;;

0 コメント:

コメントを投稿