Contents

module WordCount exposing (..)

import String
import Dict exposing (Dict)
import Regex


wordCount : String -> Dict String Int
wordCount sentence =
    sentence
        |> String.toLower
        |> depunctuate
        |> String.words
        |> List.foldl (\w d -> Dict.update w incrMaybe d) Dict.empty


depunctuate : String -> String
depunctuate =
    Regex.replace Regex.All (Regex.regex "[^a-z0-9 ]") (\_ -> "")


incrMaybe : Maybe Int -> Maybe Int
incrMaybe maybe =
    (Maybe.withDefault 0 maybe) + 1 |> Just

Version data entries

322 entries across 322 versions & 1 rubygems

Version	Path
trackler-2.2.1.104	tracks/elm/exercises/word-count/WordCount.example.elm
trackler-2.2.1.103	tracks/elm/exercises/word-count/WordCount.example.elm
trackler-2.2.1.102	tracks/elm/exercises/word-count/WordCount.example.elm
trackler-2.2.1.101	tracks/elm/exercises/word-count/WordCount.example.elm
trackler-2.2.1.100	tracks/elm/exercises/word-count/WordCount.example.elm
trackler-2.2.1.99	tracks/elm/exercises/word-count/WordCount.example.elm
trackler-2.2.1.98	tracks/elm/exercises/word-count/WordCount.example.elm
trackler-2.2.1.97	tracks/elm/exercises/word-count/WordCount.example.elm
trackler-2.2.1.96	tracks/elm/exercises/word-count/WordCount.example.elm
trackler-2.2.1.95	tracks/elm/exercises/word-count/WordCount.example.elm
trackler-2.2.1.94	tracks/elm/exercises/word-count/WordCount.example.elm
trackler-2.2.1.93	tracks/elm/exercises/word-count/WordCount.example.elm
trackler-2.2.1.92	tracks/elm/exercises/word-count/WordCount.example.elm
trackler-2.2.1.91	tracks/elm/exercises/word-count/WordCount.example.elm
trackler-2.2.1.90	tracks/elm/exercises/word-count/WordCount.example.elm
trackler-2.2.1.89	tracks/elm/exercises/word-count/WordCount.example.elm
trackler-2.2.1.88	tracks/elm/exercises/word-count/WordCount.example.elm
trackler-2.2.1.87	tracks/elm/exercises/word-count/WordCount.example.elm
trackler-2.2.1.86	tracks/elm/exercises/word-count/WordCount.example.elm
trackler-2.2.1.85	tracks/elm/exercises/word-count/WordCount.example.elm