Commit a55fb859 authored by POTTIER Francois's avatar POTTIER Francois

A slightly faster speed test. Same outcome: table/code = 2.2.

parent 6135b696
......@@ -56,7 +56,11 @@ let wrap token =
(token, Lexing.dummy_pos, Lexing.dummy_pos)
let () =
let tks : token stream = produce 10000000 in
let seed = 61112962 in
Random.init seed
let () =
let tks : token stream = produce 5000000 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