nnabeyang · January 10, 2014 15:47
diff --git a/file1.txt b/file1.txt
 ghci> parse nat "123"
 [(123, ""), (12, "3"), (1, "23")]
diff --git a/file2.hs b/file2.hs
 Nothing `mplus` ys = ys
 xs      `mplus` _  = xs
diff --git a/MyParser.hs b/MyParser.hs
 eval :: String -> Int
 eval xs = case (parse expr xs) of
            Just (n, "")  -> n
        Just (_, out) -> error ("unused input " ++ out)
        failure       -> error "invalid input"
	eval :: String -> Int
	eval xs = case (parse expr xs) of
	Just (n, "") -> n
	Just (_, out) -> error ("unused input " ++ out)
	failure -> error "invalid input"
No results found