gistfile1.clj

(defn palindrome? [x]
  (let [s (.toString x)
        l (.length s)]
    (if (or (= l 0) (= l 1))
      true
      (if (= (.charAt s 0) (.charAt s (- l 1)))
        (palindrome? (.substring s 1 (- l 1)))
        false))))

(defn products []
  (map #(* (% 0) (% 1)) (for [i (range 100 1000) j (range 100 1000)] [i j])))

(defn euler4 []
  (apply max (filter palindrome? (products))))