Contents

module WordCount (wordCount) where
import Data.Char (toLower, isAlphaNum)
import Data.Map.Strict (Map, fromListWith)
import Data.List.Split (wordsBy)

wordCount :: String -> Map String Int
wordCount = fromListWith (+) . map pair . wordsBy (not . isAlphaNum)
  where pair word = (map toLower word, 1)

Version data entries

9 entries across 9 versions & 1 rubygems

Version	Path
trackler-1.0.4.0	tracks/haskell/exercises/word-count/src/Example.hs
trackler-1.0.3.0	tracks/haskell/exercises/word-count/src/Example.hs
trackler-1.0.2.1	tracks/haskell/exercises/word-count/src/Example.hs
trackler-1.0.2.0	tracks/haskell/exercises/word-count/src/Example.hs
trackler-1.0.1.2	tracks/haskell/exercises/word-count/src/Example.hs
trackler-1.0.1.1	tracks/haskell/exercises/word-count/src/Example.hs
trackler-1.0.1.0	tracks/haskell/exercises/word-count/src/Example.hs
trackler-1.0.0.1	tracks/haskell/exercises/word-count/src/Example.hs
trackler-1.0.0	tracks/haskell/exercises/word-count/src/Example.hs