Sudoku: Difference between revisions

[for s in squares do s, [| for u in unitList do if u |> Array.contains s then u |] ] |> Map.ofSeq

 

let peers =

[for s in squares do units[s] |> Array.concat |> Array.distinct |> Array.except [s] |> tuple2 s] |> Map.ofSeq