Sha256: ac0d36f99c2167ccdcceb6a862d3116a6f0f912b702db10ed6bc854c09adab1f

Contents?: true

Size: 364 Bytes

Versions: 68

Compression:

Stored size: 364 Bytes

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.180 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.179 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.178 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.177 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.176 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.175 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.174 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.173 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.172 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.171 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.170 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.169 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.167 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.166 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.165 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.164 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.163 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.162 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.161 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.160 tracks/ocaml/exercises/acronym/example.ml