Sha256: d2e8f1d47962db6bfee2595d29755b6ab5adb862ff8f20dc10b43fc903f482e1

Contents?: true

Size: 568 Bytes

Versions: 157

Compression:

Stored size: 568 Bytes

Contents

open Core.Std

module SMap = String.Map

let add_to_map wcs w =
  SMap.update wcs w ~f:(fun k -> Option.value_map k ~default:1 ~f:((+) 1))

let normalize = function
  | ch when Char.is_alphanum ch || ch = '\'' -> Char.lowercase ch
  | _ -> ' '

let word_count s =
  let s = String.substr_replace_all s ~pattern:" \'" ~with_:" " in
  let s = String.substr_replace_all s ~pattern:"\' " ~with_:" " in
  let s = String.map s ~f:normalize in
  let split = List.filter (String.split s ~on:' ') ~f:(Fn.non String.is_empty) in
  List.fold ~init:SMap.empty ~f:add_to_map split

Version data entries

157 entries across 157 versions & 1 rubygems

Version Path
trackler-2.0.6.41 tracks/ocaml/exercises/word-count/example.ml
trackler-2.0.6.40 tracks/ocaml/exercises/word-count/example.ml
trackler-2.0.6.39 tracks/ocaml/exercises/word-count/example.ml
trackler-2.0.6.38 tracks/ocaml/exercises/word-count/example.ml
trackler-2.0.6.37 tracks/ocaml/exercises/word-count/example.ml
trackler-2.0.6.36 tracks/ocaml/exercises/word-count/example.ml
trackler-2.0.6.35 tracks/ocaml/exercises/word-count/example.ml
trackler-2.0.6.34 tracks/ocaml/exercises/word-count/example.ml
trackler-2.0.6.33 tracks/ocaml/exercises/word-count/example.ml
trackler-2.0.6.32 tracks/ocaml/exercises/word-count/example.ml
trackler-2.0.6.31 tracks/ocaml/exercises/word-count/example.ml
trackler-2.0.6.30 tracks/ocaml/exercises/word-count/example.ml
trackler-2.0.6.29 tracks/ocaml/exercises/word-count/example.ml
trackler-2.0.6.28 tracks/ocaml/exercises/word-count/example.ml
trackler-2.0.6.27 tracks/ocaml/exercises/word-count/example.ml
trackler-2.0.6.26 tracks/ocaml/exercises/word-count/example.ml
trackler-2.0.6.25 tracks/ocaml/exercises/word-count/example.ml
trackler-2.0.6.24 tracks/ocaml/exercises/word-count/example.ml
trackler-2.0.6.23 tracks/ocaml/exercises/word-count/example.ml
trackler-2.0.6.22 tracks/ocaml/exercises/word-count/example.ml