Skip to content

Instantly share code, notes, and snippets.

@mabako

mabako/gist:6923490

Created October 10, 2013 18:51
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 mabako/6923490 to your computer and use it in GitHub Desktop.
Save mabako/6923490 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.scm
(define (primHelp num count)
(cond
((zero? (modulo num count)) #f)
((< count (sqrt num)) (primHelp num (+ count 1)))
(else #t)
)
)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment