Add some GUI elements :

[master-thesis.git] / Parasitemia / ParasitemiaUI / Utils.fs

diff --git a/Parasitemia/ParasitemiaUI/Utils.fs b/Parasitemia/ParasitemiaUI/Utils.fs
new file mode 100644 (file)
index 0000000..324e5f0
--- /dev/null
+++ b/Parasitemia/ParasitemiaUI/Utils.fs
@@ -0,0 +1,12 @@
+module ParasitemiaUI.Utils
+
+let listAsStr (s: 'a seq) =
+    s |> Seq.fold (fun acc obj -> acc + (if acc = "" then "" else ", ") + obj.ToString()) ""
+
+let percentText (nbTotal: int, nb: int) : string =
+    if nbTotal = 0
+    then
+        ""
+    else
+        let percent = 100. * (float nb) / (float nbTotal)
+        sprintf "%.1f %% (%d / %d)" percent nb nbTotal
\ No newline at end of file