summaryrefslogtreecommitdiff
path: root/prime/prime.scm
diff options
context:
space:
mode:
Diffstat (limited to 'prime/prime.scm')
-rwxr-xr-xprime/prime.scm17
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)))))