Luhn Kata

luhn.clj

(ns luhn.core)

(defn sum-digits [n]
  (->> n
       str
       (mapv (comp #(- % 48) int))
       (reduce +)))

(defn luhn-checksum [n]
  (->> n
       str
       reverse
       (mapv (comp #(- % 48) int))
       (map-indexed #(if (odd? %1)
                       (let [v (* 2 %2)]
                         (if (> v 9) (sum-digits v) v))
                       %2))
       (reduce +)
       (#(= (mod % 10) 0))))