abhin4v
/
haskell-classes
1
0
Vork 0
Code Kwesties Pull-aanvragen Publicaties Wiki Activiteit

Minor changes

master
Abhinav Sarkar 2016-04-19 23:41:32 +05:30
bovenliggende 248672bdb2
commit 0071c7d718
1 gewijzigde bestanden met toevoegingen van 2 en 2 verwijderingen
Statistieken weergeven Download Patch-bestand Download Diff-bestand Expand all files Collapse all files

4
2016-04-19/parser.hs
Bestand weergeven

@ -39,7 +39,7 @@ newtype Digit = Digit { getIntOfDigit :: Int } deriving (Show, Eq, Ord)
charToDigit :: Char -> Maybe Digit
charToDigit c =
if Char.isDigit c then Just $ Digit (Char.digitToInt c) else Nothing
if Char.isDigit c then Just . Digit . Char.digitToInt $ c else Nothing
digitParser :: Parser String Digit
digitParser = Parser $ \i -> case i of
@ -49,7 +49,7 @@ digitParser = Parser $ \i -> case i of
digitsParser :: Parser String [Digit]
digitsParser = Parser $ \i -> case runParser digitParser i of
Nothing -> Nothing
Just (d, i') -> case runParser digitsParser i' of
Just (d, i') -> case runParser digitsParser i' of
Nothing -> Just ([d], i')
Just (ds, i'') -> Just (d:ds, i'')