summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Syntactic.hs17
1 files changed, 2 insertions, 15 deletions
diff --git a/Syntactic.hs b/Syntactic.hs
index 168aa4e..45eedda 100644
--- a/Syntactic.hs
+++ b/Syntactic.hs
@@ -1,6 +1,7 @@
import Control.Monad( liftM )
import System( getArgs )
import Text.Printf
+import qualified Data.Char as Char
getLines :: FilePath -> IO [String]
@@ -19,21 +20,7 @@ isNumber :: String -> Bool
isNumber ('0':[]) = True
isNumber ('-':ns)
| (ns /= [] && head ns /= '0') = isNumber ns
-isNumber n = all (isDigit) n
-
-
-isDigit :: Char -> Bool
-isDigit '0' = True
-isDigit '1' = True
-isDigit '2' = True
-isDigit '3' = True
-isDigit '4' = True
-isDigit '5' = True
-isDigit '6' = True
-isDigit '7' = True
-isDigit '8' = True
-isDigit '9' = True
-isDigit _ = False
+isNumber n = all (Char.isNumber) n
isName :: String -> Bool