Skip to content

Instantly share code, notes, and snippets.

@lnds

lnds/validar.hs

Created January 11, 2016 20:08
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/af0a3425a0fa912f513b to your computer and use it in GitHub Desktop.
Save lnds/af0a3425a0fa912f513b to your computer and use it in GitHub Desktop.
Download ZIP
selección en Haskell
Raw
validar.hs
validar n xs
| length num /= n = []
| otherwise = num
where num = if not (all isDigit xs) then [] else remover_dups xs
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment