stingh711 · September 4, 2012 08:32
diff --git a/euler4.clj b/euler4.clj
 (defn reverse-str
  [s]
  (apply str (reverse s)))

 (defn palindromic?
  [n]
  (let [s (str n)]
    (= (reverse-str s) s)))

 (apply max (filter palindromic? (for [x (range 100 1000) y (range 100 1000)] (* x y))))
	(defn reverse-str
	[s]
	(apply str (reverse s)))

	(defn palindromic?
	[n]
	(let [s (str n)]
	(= (reverse-str s) s)))

	(apply max (filter palindromic? (for [x (range 100 1000) y (range 100 1000)] (* x y))))
No results found