From 3324327b80a50e94843dedbb704683ee9b3a9955 Mon Sep 17 00:00:00 2001
From: bd <bdunahu@operationnull.com>
Date: Sun, 4 Aug 2024 21:01:32 -0600
Subject: Cleanup prime?

---
 prime/prime.scm | 17 -----------------
 1 file changed, 17 deletions(-)
 delete mode 100755 prime/prime.scm

(limited to 'prime/prime.scm')

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)))))
-- 
cgit v1.2.3