Data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · cb5bb5e222
commit cb5bb5e222
parent 7387c8f97b
199093 changed files with 3378972 additions and 0 deletions
--- a/Task/Semiprime/Clojure/semiprime.clj
+++ b/Task/Semiprime/Clojure/semiprime.clj
@ -0,0 +1,14 @@
+(ns example
+  (:gen-class))
+
+(defn semi-prime? [n]
+  (loop [a 2
+         b 0
+         c n]
+    (cond
+      (> b 2) false
+      (<= c 1) (= b 2)
+      (= 0 (rem c a)) (recur a (inc b) (int (/ c a)))
+      :else (recur (inc a) b c))))
+
+(println (filter semi-prime? (range 1 100)))