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