Sha256: 35fe58698a41ce59ebe6baee3a351de8924523d207d5f73828a6a6ce985c7a25

Contents?: true

Size: 571 Bytes

Versions: 68

Compression:

Stored size: 571 Bytes

Contents

open Core_kernel

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

68 entries across 68 versions & 1 rubygems

Version Path
trackler-2.2.1.139 tracks/ocaml/exercises/word-count/example.ml
trackler-2.2.1.138 tracks/ocaml/exercises/word-count/example.ml
trackler-2.2.1.137 tracks/ocaml/exercises/word-count/example.ml
trackler-2.2.1.136 tracks/ocaml/exercises/word-count/example.ml
trackler-2.2.1.135 tracks/ocaml/exercises/word-count/example.ml
trackler-2.2.1.134 tracks/ocaml/exercises/word-count/example.ml
trackler-2.2.1.133 tracks/ocaml/exercises/word-count/example.ml
trackler-2.2.1.132 tracks/ocaml/exercises/word-count/example.ml
trackler-2.2.1.131 tracks/ocaml/exercises/word-count/example.ml
trackler-2.2.1.130 tracks/ocaml/exercises/word-count/example.ml
trackler-2.2.1.129 tracks/ocaml/exercises/word-count/example.ml
trackler-2.2.1.128 tracks/ocaml/exercises/word-count/example.ml
trackler-2.2.1.127 tracks/ocaml/exercises/word-count/example.ml
trackler-2.2.1.126 tracks/ocaml/exercises/word-count/example.ml
trackler-2.2.1.125 tracks/ocaml/exercises/word-count/example.ml
trackler-2.2.1.124 tracks/ocaml/exercises/word-count/example.ml
trackler-2.2.1.123 tracks/ocaml/exercises/word-count/example.ml
trackler-2.2.1.122 tracks/ocaml/exercises/word-count/example.ml
trackler-2.2.1.121 tracks/ocaml/exercises/word-count/example.ml
trackler-2.2.1.120 tracks/ocaml/exercises/word-count/example.ml