This commit is contained in:
Simon Cruanes 2017-05-01 16:41:26 +02:00
parent 75e3962ba1
commit 5d5909459f

View file

@ -114,8 +114,7 @@ val of_array : char array -> string
val to_array : string -> char array val to_array : string -> char array
val find : ?start:int -> sub:string -> string -> int val find : ?start:int -> sub:string -> string -> int
(** Find [sub] in string, returns its first index or [-1]. (** Find [sub] in string, returns its first index or [-1]. *)
Should only be used with very small [sub] *)
(*$= & ~printer:string_of_int (*$= & ~printer:string_of_int
1 (find ~sub:"bc" "abcd") 1 (find ~sub:"bc" "abcd")
@ -643,5 +642,4 @@ module Sub : sig
|> Sequence.for_all |> Sequence.for_all
(fun (i,j,sub) -> Sub.get sub j = s.[i+j])) (fun (i,j,sub) -> Sub.get sub j = s.[i+j]))
*) *)
end end