groupByKey in Haskell - Wie gruppiert man Einträge in einer Liste nach einer Funktion?

Question

Angesichts einer Liste [v] und eine Keying-Funktion f :: v -> k, möchte ich eine Karte Map k [v] generieren. Gibt es so etwas in Haskell?

import Data.Map 

groupByKey :: (v -> k) -> [v] -> Map k [v] 

Answer 1

Sie können fromListWith verwenden, etwa so:

import Data.Map 
groupByKey :: (Ord k) => (v -> k) -> [v] -> Map k [v] 
groupByKey getkey 
    = fromListWith (++) . fmap (\val -> (getkey val, [val])) 

so dass:

> groupByKey length $ words "hello there my good friend" 
fromList [(2,["my"]),(4,["good"]),(5,["there","hello"]),(6,["friend"])] 
>