aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
Task/Primality-by-trial-division/Clojure/primality-by-trial-division-1.clj Normal file
View file

@ -0,0 +1 @@
(defn divides? [k n] (zero? (mod k n)))

6
Task/Primality-by-trial-division/Clojure/primality-by-trial-division-2.clj Normal file
View file

@ -0,0 +1,6 @@
(defn prime? [x]
(or (= 2 x)
(and (< 1 x)
(odd? x)
(not-any? (partial divides? x)
(range 3 (inc (Math/sqrt x)) 2)))))

9
Task/Primality-by-trial-division/Clojure/primality-by-trial-division-3.clj Normal file
View file

@ -0,0 +1,9 @@
(declare prime?)
(def primes (filter prime? (range)))
(defn prime? [x]
(and (integer? x)
(< 1 x)
(not-any? (partial divides? x)
(take-while (partial >= (Math/sqrt x)) primes))))