Skip to content

Instantly share code, notes, and snippets.

@lnds

lnds/validar2.clj

Created January 11, 2016 20:34
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save lnds/f47e8a136053f7b542cd to your computer and use it in GitHub Desktop.
Save lnds/f47e8a136053f7b542cd to your computer and use it in GitHub Desktop.
Download ZIP
Validar expandido
Raw
validar2.clj
(defn validar [tam num]
(if (and (every? #(Character/isDigit %) num))
(let [cuenta-unicos (count (distinct num))]
(and
(= tam cuenta-unicos)
(= (count num) cuenta-unicos)))))
(map #(Character/digit % 10) (seq num))
nil))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment