Skip to content

Instantly share code, notes, and snippets.

@velveteer

velveteer/CE3.clj

Last active November 20, 2015 20:53
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 velveteer/5f749bcd55669fce9215 to your computer and use it in GitHub Desktop.
Save velveteer/5f749bcd55669fce9215 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
CE3.clj
(ns primepalindromes)
(defn reverse-number [number reversed]
(if (= number 0)
reversed
(reverse-number (quot number 10)
(+ (rem number 10) (* reversed 10)))))
(defn prime? [n]
(.isProbablePrime (BigInteger/valueOf n) 5))
(println (dec (last (take-while #(not (and (prime? %) (= (reverse-number % 0) %))) (iterate dec 1000)))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment