Skip to content

Instantly share code, notes, and snippets.

@onlyshk

onlyshk/NumInStr.hs

Created May 25, 2012 17:23
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 onlyshk/2789308 to your computer and use it in GitHub Desktop.
Save onlyshk/2789308 to your computer and use it in GitHub Desktop.
Download ZIP
Is string number
Raw
NumInStr.hs
isInteger :: String -> Bool
isInteger s = case reads s :: [(Integer, String)] of
[(_, "")] -> True
_ -> False
--
-- >> isInteger "3"
-- True
--
-- >> isInteger "30s"
-- False
--
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment