Contents

module WordCount (wordCount) where

import Control.Arrow   ((&&&))
import Data.Char       (toLower, isAlphaNum)
import Data.List       (group, sort)
import Data.List.Split (wordsBy)

wordCount :: String -> [(String, Int)]
wordCount = map (head &&& length)
          . group
          . sort
          . map (stripQuote . map toLower)
          . wordsBy (\c -> not (isAlphaNum c) && c /= '\'')

stripQuote :: String -> String
stripQuote ('\'':t) = init t
stripQuote s = s

Version data entries

382 entries across 382 versions & 1 rubygems

Version	Path
trackler-2.2.1.180	tracks/haskell/exercises/word-count/examples/success-simple/src/WordCount.hs
trackler-2.2.1.179	tracks/haskell/exercises/word-count/examples/success-simple/src/WordCount.hs
trackler-2.2.1.178	tracks/haskell/exercises/word-count/examples/success-simple/src/WordCount.hs
trackler-2.2.1.177	tracks/haskell/exercises/word-count/examples/success-simple/src/WordCount.hs
trackler-2.2.1.176	tracks/haskell/exercises/word-count/examples/success-simple/src/WordCount.hs
trackler-2.2.1.175	tracks/haskell/exercises/word-count/examples/success-simple/src/WordCount.hs
trackler-2.2.1.174	tracks/haskell/exercises/word-count/examples/success-simple/src/WordCount.hs
trackler-2.2.1.173	tracks/haskell/exercises/word-count/examples/success-simple/src/WordCount.hs
trackler-2.2.1.172	tracks/haskell/exercises/word-count/examples/success-simple/src/WordCount.hs
trackler-2.2.1.171	tracks/haskell/exercises/word-count/examples/success-simple/src/WordCount.hs
trackler-2.2.1.170	tracks/haskell/exercises/word-count/examples/success-simple/src/WordCount.hs
trackler-2.2.1.169	tracks/haskell/exercises/word-count/examples/success-simple/src/WordCount.hs
trackler-2.2.1.167	tracks/haskell/exercises/word-count/examples/success-simple/src/WordCount.hs
trackler-2.2.1.166	tracks/haskell/exercises/word-count/examples/success-simple/src/WordCount.hs
trackler-2.2.1.165	tracks/haskell/exercises/word-count/examples/success-simple/src/WordCount.hs
trackler-2.2.1.164	tracks/haskell/exercises/word-count/examples/success-simple/src/WordCount.hs
trackler-2.2.1.163	tracks/haskell/exercises/word-count/examples/success-simple/src/WordCount.hs
trackler-2.2.1.162	tracks/haskell/exercises/word-count/examples/success-simple/src/WordCount.hs
trackler-2.2.1.161	tracks/haskell/exercises/word-count/examples/success-simple/src/WordCount.hs
trackler-2.2.1.160	tracks/haskell/exercises/word-count/examples/success-simple/src/WordCount.hs