Skip to content

Instantly share code, notes, and snippets.

@tetsu-miyagawa

tetsu-miyagawa/SICP Execise 1.22 start-prime-test.scm

Created July 2, 2015 23:04
Show Gist options
  • Save tetsu-miyagawa/f930cc26ea042f359dcd to your computer and use it in GitHub Desktop.
Save tetsu-miyagawa/f930cc26ea042f359dcd to your computer and use it in GitHub Desktop.
Download ZIP
SICP Execise 1.22 start-prime-test
Raw
SICP Execise 1.22 start-prime-test.scm
(define (start-prime-test n start-time)
(if (prime? n)
(report-prime (- (runtime) start-time))
#f))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment