3 lines
121 B
Haskell
3 lines
121 B
Haskell
import Data.List (group,sort)
|
|
import Control.Arrow ((&&&))
|
|
main = interact (show . map (head &&& length) . group . sort)
|