15 lines
390 B
Plaintext
15 lines
390 B
Plaintext
let split_char sep str =
|
|
let string_index_from i =
|
|
try Some (String.index_from str i sep)
|
|
with Not_found -> None
|
|
in
|
|
let rec aux i acc = match string_index_from i with
|
|
| Some i' ->
|
|
let w = String.sub str i (i' - i) in
|
|
aux (succ i') (w::acc)
|
|
| None ->
|
|
let w = String.sub str i (String.length str - i) in
|
|
List.rev (w::acc)
|
|
in
|
|
aux 0 []
|