sid.ml
nats-client
1 2 3 4 5 6 7 8 type t = string let alphabet = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789" let create length = let limit = String.length alphabet in String.init length (fun _ -> String.get alphabet (Random.int limit))
1 2 3 4 5 6 7 8
type t = string let alphabet = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789" let create length = let limit = String.length alphabet in String.init length (fun _ -> String.get alphabet (Random.int limit))