palindrom.clj

(defn middle [s]
  (int (/ (count s) 2)))
           		
(defn left [s]
  (take (middle s) s))

(defn right [s]
  (if (even? (count s))
    	(drop (middle s) s)
    	(drop (+ 1 (middle s)) s)))
  
(defn palindrom? [number]
  (let [numbers (seq (str number))
        left (left numbers)
        right (right numbers)]
    (and (= left (reverse right))
         (> (count numbers) 1))))

(defn cross [s1 s2]
  (for [e1 s1
        e2 s2]
    (* e1 e2)))

(first (sort > (filter palindrom? (cross (range 1000) (range 1000)))))