Skip to content

Instantly share code, notes, and snippets.

@lnds

lnds/validar.erl

Created January 11, 2016 20:50
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/b7e46cf41ea6ee2eb7be to your computer and use it in GitHub Desktop.
Save lnds/b7e46cf41ea6ee2eb7be to your computer and use it in GitHub Desktop.
Download ZIP
Validando en Erlang
Raw
validar.erl
Digitos = lists:all(fun (X) -> is_digit(X) end, Entrada),
if Digitos =:= true -> unicos(to_num(Entrada), Tam, Len) ;
Digitos =:= false -> [] end.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment