X-Git-Url: http://git.euphorik.ch/?a=blobdiff_plain;f=Parasitemia%2FParasitemia%2FUtils.fs;fp=Parasitemia%2FParasitemia%2FUtils.fs;h=de166647bcc389add7c347196e66a453ce0b1f4b;hb=ba64921fb9a0c36cd8cf802cbf1b2c0f79bc25f6;hp=0000000000000000000000000000000000000000;hpb=0ff8fb82457bd5a858b2218ab07f69c81323537e;p=master-thesis.git

diff --git a/Parasitemia/Parasitemia/Utils.fs b/Parasitemia/Parasitemia/Utils.fs
new file mode 100644
index 0000000..de16664
--- /dev/null
+++ b/Parasitemia/Parasitemia/Utils.fs
@@ -0,0 +1,19 @@
+module Utils
+
+open System.Diagnostics
+
+let roundInt = int << round
+
+let inline dprintfn fmt =
+    Printf.ksprintf System.Diagnostics.Debug.WriteLine fmt
+
+let mutable log : (string -> unit) =
+    fun m -> ()
+
+let logTime (m: string) (f: unit -> 'a) : 'a =
+    let sw = Stopwatch()
+    sw.Start()
+    let res = f ()
+    sw.Stop()
+    log <| sprintf "%A (time: %A ms)" m sw.ElapsedMilliseconds
+    res 
\ No newline at end of file