Submission #169668

---

Source Code Expand

import qualified Data.List as L

main = getContents >>= f where
    f :: String -> IO ()
    f s = do
        let
            s' = lines s
            n = tail s'
        print $ snd $ head $ L.sortBy (\x y -> compare (fst y) (fst x)) $ g s'
    
    g :: [String] -> [(Int, String)]
    g [] = []
    g (name:names) =
        let
            a = 1 + (length $ filter (== name) names)
        in (a, name) : g (filter (/= name) names)

Submission Info

Judge Result