Skip to content

Instantly share code, notes, and snippets.

@dstnbrkr

dstnbrkr/fermat.rkt

Created March 4, 2011 21:38
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 dstnbrkr/855741 to your computer and use it in GitHub Desktop.
Save dstnbrkr/855741 to your computer and use it in GitHub Desktop.
Download ZIP
fermat test for primality
Raw
fermat.rkt
(define (is-fermat-prime? n iterations)
(or (<= iterations 0)
(if (= (modulo (expt (+ (random (- n 1)) 1) (- n 1)) n) 1)
(is-fermat-prime? n (- iterations 1))
#f)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment