摘要: Sub 回溯算法_N皇后() n = 8 ReDim ar(n) cnt = nqueen(n, 0, ar, 0) Debug.Print (cnt) End Sub Public Function nqueen(n, row, res, count) If row = n Then count 阅读全文
posted @ 2022-12-05 14:52 依云科技 阅读(24) 评论(0) 推荐(0)
摘要: Private Function solveSudokuHelper(board) As Boolean For i = 0 To 8 For j = 0 To 8 If (board(i, j) = ".") Then For k = 1 To 9 If isValidSudoku(i, j, k 阅读全文
posted @ 2022-12-05 10:40 依云科技 阅读(34) 评论(0) 推荐(0)
摘要: Private Function solveSudokuHelper(board) As Boolean For i = 1 To 9 For j = 1 To 9 If (board(i, j) = ".") Then For k = 1 To 9 If isValidSudoku(i, j, k 阅读全文
posted @ 2022-12-05 10:39 依云科技 阅读(19) 评论(0) 推荐(0)