Submission #1126922

---

Source Code Expand

import Data.Char

convert :: String -> [Int]
convert [] = []
convert s = cons (case break (== ' ') s of
              (l,s') -> (f l,case s' of
                         [] -> []
                         _:s'' -> convert s''))
  where cons ~(x,y) = x : y
        f = convert'.strToInt

strToInt :: String -> [Int]
strToInt [] = []
strToInt (x:xs) 
  | x == ' '  = strToInt xs
  | otherwise = (ord x - ord '0' :: Int) : strToInt xs

convert' :: (Integral t) => [t] -> t
convert' []  = 0
convert' [x] = x
convert' xs  = convert'' 0 xs
  where convert'' x [y]    = x + y
        convert'' x (y:ys) = convert'' (10 * (x + y)) ys

main :: IO ()
main = do
  hoge0 <- getLine
  hoge1 <- getLine
  print $ (sum.convert) hoge0 - (sum.convert) hoge1

Submission Info

Judge Result