Mittwoch, 6. Juni 2012

Primfaktorzerlegung in Clojure

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))))) 
Ggf. folgenden noch weitere Lösungen ;-)

Keine Kommentare:

Kommentar veröffentlichen