equal
deleted
inserted
replaced
49 let |
49 let |
50 val start = Timing.start (); |
50 val start = Timing.start (); |
51 val y = f x; |
51 val y = f x; |
52 val timing = Timing.result start; |
52 val timing = Timing.result start; |
53 |
53 |
54 val threads = string_of_int (Multithreading.max_threads_value ()); |
54 val threads = string_of_int (Multithreading.max_threads ()); |
55 val factor = Time.toReal (#cpu timing) / Time.toReal (#elapsed timing) |
55 val factor = Time.toReal (#cpu timing) / Time.toReal (#elapsed timing) |
56 |> Real.fmt (StringCvt.FIX (SOME 2)); |
56 |> Real.fmt (StringCvt.FIX (SOME 2)); |
57 |
57 |
58 val timing_props = |
58 val timing_props = |
59 [("threads", threads)] @ Markup.timing_properties timing @ [("factor", factor)]; |
59 [("threads", threads)] @ Markup.timing_properties timing @ [("factor", factor)]; |