4 lines
114 B
Haskell
4 lines
114 B
Haskell
import Data.List (group, sort)
|
|
|
|
main :: IO ()
|
|
main = interact (show . fmap ((,) . head <*> length) . group . sort
|