fork download
  1. import Data.List
  2. import Control.Arrow
  3.  
  4. frequencies = map (head &&& length) . group . sort
  5.  
  6. main = print $ frequencies "huipizdadjigurda"
  7.  
Success #stdin #stdout 0s 6280KB
stdin
Standard input is empty
stdout
[('a',2),('d',3),('g',1),('h',1),('i',3),('j',1),('p',1),('r',1),('u',2),('z',1)]