Project Euler #36 - Clojure

gistfile1.clj

(defn palindrome? [x]
  (= x (apply str (reverse x))))

(defn palindromic-2-10? [x]
  (let [dec (Integer/toString x)
        bin (Integer/toString x 2)]
    (and (palindrome? dec) (palindrome? bin))))

(with-test
  (defn prob-36 []
    (apply + (filter 
               palindromic-2-10? 
               (range 1 1000000))))
  (is (= (prob-36) 872187)))