add CCTrie to benchmarks

This commit is contained in:
Simon Cruanes 2015-09-16 14:03:53 +02:00
parent e9a3cbdc62
commit eee7b2318a

View file

@ -311,6 +311,15 @@ module Tbl = struct
end in end in
(module U : INT_MUT) (module U : INT_MUT)
let trie : (module MUT with type key = string) =
let module T = struct
let name = "trie(string)"
include CCTrie.String
let find = find_exn
end in
let module U = MUT_OF_IMMUT(T) in
(module U)
let hashtrie : type a. a key_type -> (module MUT with type key = a) let hashtrie : type a. a key_type -> (module MUT with type key = a)
= fun k -> = fun k ->
let (module K), name = arg_make k in let (module K), name = arg_make k in
@ -351,6 +360,7 @@ module Tbl = struct
; wbt Str ; wbt Str
; hashtrie Str ; hashtrie Str
; hamt Str ; hamt Str
; trie
] ]
let bench_add n = let bench_add n =