DEV Community

DEV Community is a community of 550,319 amazing developers

We're a place where coders share, stay up-to-date and grow their careers.

Create new account Log in
loading...

Discussion on: Credit card number check

View post Full discussion
Collapse
marconicolodi profile image
Marco Nicolodi •

Ported to clojure

(defn valid-cc? [cc]
  (-> cc
      str
      (clojure.string/split #"")
      reverse
      (->> (map (fn [s] (Integer/parseInt s))))
      (->> (map-indexed (fn [i n] 
                          (if (not= 0 (mod i 2))
                              (if (>= (* 2 n) 10)
                                  (- (* 2 n) 9)
                                  (* 2 n))
                              n)))
           (reduce +))
      (mod 10)
      (= 0)))