gistfile1.txt

(ns test1.prob4)

(defn palindromic-number? [x]
  (let [arr (vec (.toString x)), size (count arr)]
    (loop [x 0]
      (if (not= (get arr x) (get arr (- size x 1)))
        false
      (if (> x (/ size 2))
        true
        (recur (inc x)))))))

(defn prob4 [start]
 (loop [x start, y start]
   (println (str x " " y))
   (def results [])
   (if (palindromic-number? (* x y))
     (conj results (* x y)))
   (if (and (= x 1) (= y 1))
     results
     (if (= x 1)
      (recur start (dec y))
      (recur (dec x) y)))))