Submission #4208

---

Source Code Expand

import Data.Map
import qualified Data.List as L

type T = Map Char Int
start = fromList [('1',0),('2',0),('3',0),('4',0)]

main = do 
            getLine
            l <- getLine
            ans <- return $ L.sort $ elems $ foldl (\m k->insert k (m!k + 1) m) start l
            putStrLn $ (show$ last ans) ++ " " ++ (show $ head ans) 

Submission Info

Compile Error

Linking a.out ...

Judge Result