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