X-Git-Url: http://git.euphorik.ch/?p=master-thesis.git;a=blobdiff_plain;f=Parasitemia%2FParasitemiaUI%2FUtils.fs;fp=Parasitemia%2FParasitemiaUI%2FUtils.fs;h=324e5f048c81758f8189efad5d0fcec66e2dbbce;hp=0000000000000000000000000000000000000000;hb=c4a76a01f62568c6353396ff85551a3151fc5236;hpb=94fbffc758bf0299b077e344ebcbecca408ae564

diff --git a/Parasitemia/ParasitemiaUI/Utils.fs b/Parasitemia/ParasitemiaUI/Utils.fs
new file mode 100644
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