Sha256: e01a901d15998294c2f5f482866adbc6d5cfb169c65c9a36284eb1dbdead466c

Contents?: true

Size: 362 Bytes

Versions: 151

Compression:

Stored size: 362 Bytes

Contents

open Core

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

151 entries across 151 versions & 1 rubygems

Version Path
trackler-2.2.1.110 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.109 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.108 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.107 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.106 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.105 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.104 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.103 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.102 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.101 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.100 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.99 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.98 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.97 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.96 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.95 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.94 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.93 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.92 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.91 tracks/ocaml/exercises/acronym/example.ml