[已解决]VBA小圆圈中各填入一个整数

香川群子

n=9可能也没有结果。

n=10也许有结果。【排列计算耗时太大了。】

香川群子

代码中使用了递归组合、递归排列、偏移求和检查。

vbyou127

香川群子 发表于 2016-3-31 14:42
n=9可能也没有结果。

n=10也许有结果。【排列计算耗时太大了。】

消耗好大吗，

香川群子

vbyou127 发表于 2016-3-31 16:04
消耗好大吗，

n=9算了几分钟 算完了。

一共有8组镜像解：
1        4        7        6        3        28        2        8        14
1        14        8        2        28        3        6        7        4
1        11        8        6        4        3        2        22        16
1        16        22        2        3        4        6        8        11
1        6        4        24        13        3        2        12        8
1        8        12        2        3        13        24        4        6
1        2        4        8        16        5        18        9        10
1        10        9        18        5        16        8        4        2

vbyou127

香川群子 发表于 2016-3-31 14:50
代码中使用了递归组合、递归排列、偏移求和检查。

可能还有其他方法

香川群子

程序优化，速度又快了点。

香川群子

组合算法和排列算法，各人有各人的招法。

但圆圈相邻数的偏移检查算法，可能很多人就想不到这么做。呵呵。