RosettaCodeData/Task/Vigen-re-cipher-Cryptanalysis/Haskell/vigen-re-cipher-cryptanalysis-2.hs

import Data.Map (fromListWith, toList)

main =
  mapM_ print (toList (fromListWith (+) (flip (,) 1 <$> filter (' ' /=) crypt)))