Y箱

十進でも二進でも回文数になっているなっている数をさがす問題。

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

;;
;; 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)))

;;