From aece5b5da49b9f217c7395a8993ad8679edf7c4c Mon Sep 17 00:00:00 2001
From: Valentin Gehrke <madmaurice@zom.bi>
Date: Thu, 4 Aug 2016 19:41:56 +0200
Subject: [PATCH] Prime factorization in clojure.

---
 primefactors.clj | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 primefactors.clj

diff --git a/primefactors.clj b/primefactors.clj
new file mode 100644
index 0000000..49c5f5c
--- /dev/null
+++ b/primefactors.clj
@@ -0,0 +1,13 @@
+(defn factors [x]
+	(if (== x 1)
+		'()
+		(let [f
+			(first
+				(filter (fn [e] (zero? (mod x e)))
+					(range 2 (+ x 1))
+				)
+			)]
+			(conj (factors (/ x f)) f)
+		)
+	)
+)
\ No newline at end of file