Habe mal eben schnell (auf Druck einer Person die gerade neben mir sitzt) das Coding Kata der Primfaktorzerlegung in Clojure implementiert. Hier die Lösung:
(defn prime [x]
(loop [counter 2
number x
result '()]
(if (= 0 (mod number counter))
(recur counter (/ number counter) (conj result counter))
(if (= 1 number)
result
(recur (inc counter) number result)))))
Keine Kommentare:
Kommentar veröffentlichen