    (cond
      (= 1 number) factors
      (factor? number (first ps)) (prime-factors (/ number (first ps))
-                               (conj factors (first ps)) ps)
+                                                (conj factors (first ps)) ps)
      :else (prime-factors number factors (rest ps)))))
 
 (defn count-divisors

(ns euler.helper)

;; shortcuts for point-free notation
(def & "function composition" comp)
(def p "partial application" partial)

;; == factorisation ===========================================================


(defn digits
  "**digits :: Int -> [Int]**
  Converts a number n into a list of its digits."
  [n] (map #(Character/getNumericValue %) (str n)))

(defn narcissistic?
  "**narcissistic? :: Int, Int -> Bool**
