simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-06 11:15:31 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

more tweaks and benchmarks for CCString.{prefix,suffix}

Browse source
This commit is contained in:
Simon Cruanes 2017-09-12 10:55:24 +02:00
parent ff469211af
commit 7405c1c346
2 changed files with 27 additions and 24 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
benchs/run_benchs.ml
View file

@ -1178,7 +1178,7 @@ module Str = struct
let bench_rfind = bench_find_ ~dir:`Reverse
module Pre = struct
let prefix_pure ~pre s =
let prefix_rec ~pre s =
let rec same s1 s2 i =
if i = String.length s1 then true
else (
@ -1200,7 +1200,7 @@ module Str = struct
exception Exit_false
let prefix_loop ~pre s =
let prefix_for_exn ~pre s =
String.length pre <= String.length s &&
try
for i=0 to String.length pre-1 do
@ -1249,7 +1249,7 @@ module Str = struct
in
let output =
Array.map
(fun (pre, str) -> prefix_pure ~pre str)
(fun (pre, str) -> prefix_rec ~pre str)
input
in
let test f () =
@ -1263,8 +1263,8 @@ module Str = struct
[
"containers", test CCString.prefix, ();
"while_unsafe", test prefix_while, ();
"loop_unsafe", test prefix_pure, ();
"for_unsafe", test prefix_loop, ();
"rec_unsafe", test prefix_rec, ();
"for_exn_unsafe", test prefix_for_exn, ();
"sub_eq", test prefix_sub, ();
"bat_prefix", test bat_prefix, ();
]
@ -1301,6 +1301,7 @@ module Str = struct
"prefix" @>>>
[ "max_len:1000,max_pre_len:15" @>> app_ints (Pre.make ~max_len:1000 ~max_len_prefix:15) [100; 1_000];
"max_len:1000,max_pre_len:100" @>> app_ints (Pre.make ~max_len:1000 ~max_len_prefix:100) [100; 1_000];
"max_len:1000,max_pre_len:300" @>> app_ints (Pre.make ~max_len:1000 ~max_len_prefix:300) [100; 1_000];
]
])

40
src/core/CCString.cppo.ml
View file

@ -490,28 +490,30 @@ let repeat s n =
assert(len > 0);
init (len * n) (fun i -> s.[i mod len])
exception Exit_false
let prefix ~pre s =
String.length pre <= String.length s &&
try
for i=0 to String.length pre-1 do
if String.unsafe_get s i != String.unsafe_get pre i
then raise Exit_false
done;
true
with Exit_false -> false
let len = String.length pre in
if len > String.length s then false
else (
let rec check i =
if i=len then true
else if String.unsafe_get s i != String.unsafe_get pre i then false
else check (i+1)
in
check 0
)
let suffix ~suf s =
String.length suf <= String.length s &&
try
let off = String.length s - String.length suf in
for i=0 to String.length suf-1 do
if String.unsafe_get s (off+i) != String.unsafe_get suf i
then raise Exit_false
done;
true
with Exit_false -> false
let len = String.length suf in
if len > String.length s then false
else (
let off = String.length s - len in
let rec check i =
if i=len then true
else if String.unsafe_get s (off+i) != String.unsafe_get suf i then false
else check (i+1)
in
check 0
)
let take n s =
if n < String.length s