pulling out a candidate

adammartin · Mar 4, 2012 · 91ffe88 · 91ffe88
1 parent 05bb989
commit 91ffe88
Showing 1 changed file with 7 additions and 4 deletions.
diff --git a/src/primefactors/core.clj b/src/primefactors/core.clj
@@ -1,8 +1,11 @@
 (ns primefactors.core)
 
-(defn primefactors [n]
-	(cond (<= n 1) (list)
-		  (= 0 (rem n 2)) (conj (primefactors (/ n 2)) 2)
-		  :else (list n)
+(defn primefactors 
+	([n] (primefactors n 2))
+	([n candidate] 
+		(cond	(<= n 1) (list)
+		  		(= 0 (rem n 2)) (conj (primefactors (/ n 2)) 2)
+		  		:else (list n)
+		)
 	)
 )