Parasitemia/ParasitemiaUI/Utils.fs

   1 module ParasitemiaUI.Utils
   2
   3 let listAsStr (s: 'a seq) =
   4     s |> Seq.fold (fun acc obj -> acc + (if acc = "" then "" else ", ") + obj.ToString()) ""
   5
   6 let percentText (nbTotal: int, nb: int) : string =
   7     if nbTotal = 0
   8     then
   9         ""
  10     else
  11         let percent = 100. * (float nb) / (float nbTotal)
  12         sprintf "%.1f %% (%d / %d)" percent nb nbTotal