10 lines
197 B
OCaml
10 lines
197 B
OCaml
|
open Camlp4Profiler;
|
||
|
|
|
||
|
|
value profile = load stdin;
|
||
|
|
|
||
|
|
value profile = List.sort (fun (_, v1) (_, v2) -> compare v1 v2) profile;
|
||
|
|
|
||
|
|
List.iter
|
||
|
|
(fun (k, v) -> Format.printf "%-75s: %d@." k v)
|
||
|
|
profile;
|