Create a gist now

Instantly share code, notes, and snippets.

Validar expandido
(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