Wrong Answer
[1 of 1] Compiling Main ( /in/foo.hs, /tmp/Main.o ) Linking /out/foo ...
代码
module Main where
import Data.Char
main = print . count . show . calc . words =<< getLine
where
calc :: [String] -> Int
calc [a, b] = (read a) ^ (read b)
count :: String -> Int
count = sum . map orz
orz :: Char -> Int
orz ch = ord ch - 48
