问数独游戏逻辑

EN

let sudokuGame = Array2D.init 9 9 (fun i j -> createSquare i j)

type Square = { x : int; y : int; number : int; optionList : int list }

let getRow S = 
    let rec getR pos =
        match pos with 
        | 10 -> []
        | x -> (sudokuGame.[(x-1), ((S.y) - 1)]).number :: getR (x+1)
    in getR 1

let getCol S = 
    let rec getC pos =
        match pos with 
        | 10 -> []
        | y -> (sudokuGame.[(S.x - 1), (y - 1)]).number :: getC (y+1)
    in getC 1

let getIsland S = 

    let getX =
        match S.x with
        | x when x < 4 -> 0
        | x when x < 7 -> 3
        | x            -> 6

    let getY = 
        match S.y with
        | y when y < 4 -> 0
        | y when y < 7 -> 3
        | y            -> 6
        List.ofArray [| for x in 0 .. 2 do for y in 0 .. 2 -> sudokuGame.[getX+x,getY+y].number;  |]

//placeInX is a function which leaves the items in x not found in y
let updateOptionList L S = { x= S.x; y=S.y; number = S.number; optionList = (placeInX (S.optionList) L )}

let getUpdatedSquare S =
    if List.length (getSquareList S) <> 0
    then   
        updateOptionList (getRow S) S |> updateOptionList (getCol S) |> updateOptionList (getIsland S) |> createCompleteSquare
    else
        S  

let sodukoSolver (gameBoard : Square[,]) = 
    Array2D.map (getUpdatedSquare) (gameBoard)

let checkSudoku (gameBoard : Square[,]) (reference : Square[,]) =
    gameBoard = reference