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.159 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.158 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.157 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.156 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.155 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.154 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.153 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.152 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.151 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.150 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.149 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.148 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.147 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.146 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.145 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.144 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.143 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.142 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.141 tracks/ocaml/exercises/acronym/example.ml
trackler-2.2.1.140 tracks/ocaml/exercises/acronym/example.ml