-let countCells (cells: Cell list) : int * int =
- cells |> List.fold (fun (total, infected) { cellClass = cellClass } ->
- match cellClass with
- | HealthyRBC -> (total + 1, infected)
- | InfectedRBC -> (total + 1, infected + 1)
- | Peculiar -> (total, infected)) (0, 0)
\ No newline at end of file
+let countCells (cells : Cell list) : int * int =
+ cells
+ |> List.fold (
+ fun (total, infected) { cellClass = cellClass } ->
+ match cellClass with
+ | HealthyRBC -> (total + 1, infected)
+ | InfectedRBC -> (total + 1, infected + 1)
+ | Peculiar -> (total, infected)
+ ) (0, 0)
\ No newline at end of file