let config = images |> List.pick (fun (id', config', _) -> if id' = id then Some config' else None)
let total, infected = countCells cells
fprintf resultFile "File: %s %d %d %.2f (diameter: %A)\n" id total infected (100. * (float infected) / (float total)) config.RBCRadius))
let config = images |> List.pick (fun (id', config', _) -> if id' = id then Some config' else None)
let total, infected = countCells cells
fprintf resultFile "File: %s %d %d %.2f (diameter: %A)\n" id total infected (100. * (float infected) / (float total)) config.RBCRadius))