Definir la función
frecuencias :: Ord a => [a] -> Map a Int |
tal que (frecuencias xs)
es el diccionario formado por los elementos de xs
junto con el número de veces que aparecen en xs
. Por ejemplo,
λ> frecuencias "sosos" fromList [('o',2),('s',3)] λ> frecuencias (show (10^100)) fromList [('0',100),('1',1)] λ> frecuencias (take (10^6) (cycle "abc")) fromList [('a',333334),('b',333333),('c',333333)] λ> size (frecuencias (take (10^6) (cycle [1..10^6]))) 1000000 |