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