gistfile1.clj

(defn is-palindrome [x]
  (= x (Integer/parseInt (apply str (reverse (str x)))))
  )

(defn problem4 []
					;Find the largest palindrome made from the product of two 3-digit numbers.
  (def max-palindrome 0)
  (doseq [i (range 999)]
    (doseq [j (range i)]
      (do	
       	(def tmp (* i j))
       	(if (and (is-palindrome tmp) (> tmp max-palindrome)) (def max-palindrome tmp)))))
  max-palindrome
)