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.139 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.138 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.137 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.136 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.135 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.134 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.133 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.132 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.131 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.130 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.129 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.128 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.127 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.126 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.125 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.124 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.123 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.122 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.121 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.120 tracks/ocaml/exercises/acronym/example.ml