递归学习之--数独解法

lsdongjh

无聊之际，用类模块、栈、递归、回溯，写一个数独

1. '***************************************************************
   
2. '                  VBA 数独类模块
   
3. '                   (clsSukodu)
   
4. '             Ver:1.0        Author:lsdongjh
   
5. '***************************************************************
   
6. '提供使用的过程和函数
   
7. '
   
8. '根据难度系数intDifficulty，创建不同的数独题目
   
9. '1) CreateSukodu(Optional intDifficulty As Integer = 0)
   
10. 
    
11. '自动解答，前题是 需要有题目，题目可以自动生成，也可以根据格式导入
    
12. '2) AutoAnSwer() As Boolean
    
13. 
    
14. '导入题目，支持三种类型：二维数组、一维数组、字符串
    
15. '3) InitSukoduByValue(varValue As Variant, affType As afferentType) As Boolean
    
16. 
    
17. '导出题目，支持三种类型：二维数组、一维数组、字符串
    
18. '4) OutPutValue(OutType As afferentType) As Variant
    
19. 
    
20. '根据行列号，返回 当前格子可用的 数字，为一维数组形式
    
21. '5) GetNums(RowID As Integer, ColID As Integer) As Integer()
    
22. 
    
23. '在指定行列号的某个位置填入某个数字
    
24. '6) PutNum(RowID As Integer, ColID As Integer, intValue As Integer) As Boolean
    
25. 
    
26. '删除指定行列号的某个位置上的某个数字
    
27. '7) DelNum(RowID As Integer, ColID As Integer, intValue As Integer) As Boolean
    
28. 
    
29. '判断题目是否创建成功
    
30. '8) HasCreate() As Boolean
    
31. 
    
32. '获取当前某个行列号上的数字
    
33. '9)Nums(RowID, ColID) As Integer
    
34. 
    
35. '判断题目是否完成
    
36. '10)Finsh() As Boolean

复制代码

只是把工作表当做显示界面，所有核心逻辑均在类模块中解决

给大家参考吧： sudoku.rar (82.22 KB, 下载次数: 244)

2020-2-17 14:53 上传

点击文件名下载附件

huanghai22

你的算法解题时间太长了，我的算法不用1秒就能解出来的数独你的要解好久

microyip

huanghai22 发表于 2020-2-17 16:18
你的算法解题时间太长了，我的算法不用1秒就能解出来的数独你的要解好久

算法没有绝对的，只是贴主用的是递归，他的关键词是“递归”，不是“算法效率”

lsdongjh

huanghai22 发表于 2020-2-17 16:18
你的算法解题时间太长了，我的算法不用1秒就能解出来的数独你的要解好久

算法没做优化，重点是 类化、模块化，仿栈操作

zopey

microyip 发表于 2020-2-17 16:36
算法没有绝对的，只是贴主用的是递归，他的关键词是“递归”，不是“算法效率”

递归等于循环遍历，递归剪枝才是种算法。

microyip

zopey 发表于 2020-2-17 16:41
递归等于循环遍历，递归剪枝才是种算法。

这个只是贴主在技术处理上的不娴熟问题，可以改进嘛

lsdongjh

如果 优化算法，其实非常简单的，只是暂时没想好如何整合。在所有空位中，优先选择唯一解的，如果没有唯一，按数量升序选择。本次只是尝试模块化，所以没考虑好如何整合。

micch

能递归出来就很厉害，之前搜过数独，好像有个帖子里香川老师发过数独的算法代码，可惜论坛搜索不好使找不到了

SCL5801

学习学习了

cui26896

查了香川老师的所有主题，好象没有。要么是在回帖中给出的。刘永富老师给出过一个工具，是exe文件。