diff options
Diffstat (limited to 'prime/prime.scm')
-rwxr-xr-x | prime/prime.scm | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/prime/prime.scm b/prime/prime.scm deleted file mode 100755 index 89915a1..0000000 --- a/prime/prime.scm +++ /dev/null @@ -1,17 +0,0 @@ -(define-module (prime)) - - -(define-public (prime? n) - "Returns #t if N is prime, else #f." - (if (< n 2) - #f - (prime-helper n (quotient n 2)))) - -(define (prime-helper n d) - "Recursively checks if N is a prime number -by attempting division by number D,D-1,D-2..." - (if (< d 2) - #t - (if (equal? (remainder n d) 0) - #f - (prime-helper n (1- d))))) |