Count the blobs in a grid

Blob.fsx

module Blob

type Cell = 
    | Black 
    | White

type Grid = Cell [,]

Array2D.init 4 4 (fun x y -> x + y) |> Array2D.mapi (fun x y _ -> (x,y))

//let countBlobs grid = 
//    let gridCoords =
//        grid
//        |> Array2D.mapi (fun x y c -> (x,y,c))
//        |> Array2D
//
//    let rec loop count =
//        match
    
//    let rec walk count (x,y) =
//        match grid.[x,y] with
//        | Black -> 
//            walk (count + 1) (x,y) // todo
//        | White ->
//            Array2D.mapi