codeforces - 37 - A (hs)

A.hs

{-# OPTIONS_GHC -O2 -XNoMonomorphismRestriction #-}
{-# LANGUAGE BangPatterns #-}
{-(c) gorlum0 [at] gmail.com-}
import Text.Printf
import Data.List (group, sort, maximumBy)
import Data.Ord (comparing)

towers bs = (h, t)
    where
    bs' = group . sort $ bs
    h = length $ maximumBy (comparing length) bs'
    t = length bs'

body [] = []
body (n:xs) = towers bs : body xs'
    where
    n' = read n
    (bs, xs') = splitAt n' xs

fmt :: (Int, Int) -> String
fmt (h, t) = printf "%d %d" h t

main = do
    ws <- words `fmap` getContents
    mapM_ (putStrLn . fmt) (body ws)