Skip to content

Instantly share code, notes, and snippets.

@dLobatog

dLobatog/gist:3074492

Created July 9, 2012 06:13
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save dLobatog/3074492 to your computer and use it in GitHub Desktop.
Save dLobatog/3074492 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.clj
(defn is-palindrome ([number]
(if (= (str number) (clojure.string/reverse (str number))) number)))
(reduce max (filter number?
(map is-palindrome
(for [x (range 100 1000) y (range 999 99 -1)]
(* x y)))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment