fork(1) download
  1. import qualified Data.Map as Map
  2.  
  3. frequencies = Map.toList . foldr (flip (Map.insertWith (+)) 1) Map.empty
  4.  
  5. main = print $ frequencies "huipizdadjigurda"
  6.  
Success #stdin #stdout 0s 6244KB
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)]