Contents

open Core

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

151 entries across 151 versions & 1 rubygems

Version	Path
trackler-2.2.1.70	tracks/ocaml/exercises/word-count/example.ml
trackler-2.2.1.69	tracks/ocaml/exercises/word-count/example.ml
trackler-2.2.1.68	tracks/ocaml/exercises/word-count/example.ml
trackler-2.2.1.67	tracks/ocaml/exercises/word-count/example.ml
trackler-2.2.1.66	tracks/ocaml/exercises/word-count/example.ml
trackler-2.2.1.65	tracks/ocaml/exercises/word-count/example.ml
trackler-2.2.1.64	tracks/ocaml/exercises/word-count/example.ml
trackler-2.2.1.63	tracks/ocaml/exercises/word-count/example.ml
trackler-2.2.1.62	tracks/ocaml/exercises/word-count/example.ml
trackler-2.2.1.61	tracks/ocaml/exercises/word-count/example.ml
trackler-2.2.1.60	tracks/ocaml/exercises/word-count/example.ml
trackler-2.2.1.59	tracks/ocaml/exercises/word-count/example.ml
trackler-2.2.1.58	tracks/ocaml/exercises/word-count/example.ml
trackler-2.2.1.57	tracks/ocaml/exercises/word-count/example.ml
trackler-2.2.1.56	tracks/ocaml/exercises/word-count/example.ml
trackler-2.2.1.55	tracks/ocaml/exercises/word-count/example.ml
trackler-2.2.1.54	tracks/ocaml/exercises/word-count/example.ml
trackler-2.2.1.53	tracks/ocaml/exercises/word-count/example.ml
trackler-2.2.1.52	tracks/ocaml/exercises/word-count/example.ml
trackler-2.2.1.51	tracks/ocaml/exercises/word-count/example.ml