Skip to content

Instantly share code, notes, and snippets.

@djtrack16

djtrack16/gist:d8a24164f702e9f04142

Created January 13, 2015 02:17
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 djtrack16/d8a24164f702e9f04142 to your computer and use it in GitHub Desktop.
Save djtrack16/d8a24164f702e9f04142 to your computer and use it in GitHub Desktop.
Download ZIP
all prime factors of n
Raw
gistfile1.clj
(fn primeFactors
([n] (primeFactors n 2))
([n div]
(cond
(< n div) '()
(zero? (mod n div)) (cons div (lazy-seq (primeFactors (/ n div) div)))
:else (recur n (inc div)))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment