(defn palindrome? [x] (= (reverse (str x)) (reverse (reverse (str x))))) (defn search [] (filter palindrome? (take 10000 (for [x (reverse (range 100 1000)) y (reverse (range 100 1000))] (* x y)))))
(defn palindrome? [x] (= (reverse (str x)) (reverse (reverse (str x))))) (defn search [] (filter palindrome? (take 10000 (for [x (reverse (range 100 1000)) y (reverse (range 100 1000))] (* x y)))))