Contents

open Base

let (>|>) f g x = f (g x)

let acronym = 
  let acronymChar = function 
  | "" -> ""
  | s when String.(uppercase s = s) -> Char.to_string s.[0]
  | s -> Char.to_string (Char.uppercase s.[0]) ^ String.filter ~f:Char.is_uppercase (String.drop_prefix s 1) in
  String.concat ~sep:""
  >|> List.map ~f:acronymChar
  >|> String.split_on_chars ~on:[' ';'-']

Version data entries

68 entries across 68 versions & 1 rubygems

Version	Path
trackler-2.2.1.119	tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.118	tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.117	tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.116	tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.115	tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.114	tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.113	tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.111	tracks/ocaml/exercises/acronym/example.ml