de166647bcc389add7c347196e66a453ce0b1f4b
3 open System.Diagnostics
5 let roundInt = int << round
7 let inline dprintfn fmt
=
8 Printf.ksprintf
System.Diagnostics.Debug.WriteLine fmt
10 let mutable log : (string -> unit) =
13 let logTime (m
: string) (f
: unit -> 'a) : 'a
=
18 log <| sprintf "%A (time: %A ms)" m
sw.ElapsedMilliseconds