Commit e0707f3e authored by POTTIER Francois's avatar POTTIER Francois

Twice larger speed test.

parent 967b9397
......@@ -60,7 +60,7 @@ let () =
Random.init seed
let () =
let tks : token stream = produce 5000000 in
let tks : token stream = produce 10000000 in
let tks = fresh (map wrap tks) in
if !dry_run then begin
let _ = find (fun _ -> false) tks in
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment