20 lines
618 B
Haskell
20 lines
618 B
Haskell
|
|
||
|
|
-- parseInput :: String -> (Int, Int, Char)
|
||
|
|
-- parseInput st = (ord (head st), read (tail (take 3 st)), tail (take 5 st))
|
||
|
|
|
||
|
|
parseMinimum :: String -> String -> Int
|
||
|
|
parseMinimum st out
|
||
|
|
| h == '-' = read (reverse out)
|
||
|
|
| h `elem` ['0'..'9'] = parseMinimum (tail st) (h:out)
|
||
|
|
| otherwise = error "Unexpected input"
|
||
|
|
where h = head st
|
||
|
|
|
||
|
|
parseMax :: String -> String -> Int
|
||
|
|
parseMax st out
|
||
|
|
| h == ' ' = read (reverse out)
|
||
|
|
| h == '-' = parseMax (tail st) ""
|
||
|
|
| out == "!" = parseMax (tail st) "!"
|
||
|
|
| h `elem` ['0'..'9'] = parseMax (tail st) (h:out)
|
||
|
|
| otherwise = error "Unexpected input"
|
||
|
|
where h = head st
|