gistfile1.clj

(use '[clojure.contrib.combinatorics :only (cartesian-product )])

;;●◆■▲★×4＝★▲■◆●
(let [coll-to-num
      (fn [coll]
        (reduce #(+ (* %1 10) %2) 0 coll))]
  (for [nums (apply cartesian-product (repeat 5 (range 0 10)))
        :when (= (* 4 (coll-to-num nums))
                 (coll-to-num (reverse nums)))]
    nums))