Board logo

标题: [数值计算] 批处理计算有规律的数独 [打印本页]

作者: 523066680    时间: 2009-7-27 21:54     标题: 批处理计算有规律的数独

有规律的数独,不过符合数独要求……
  1. @echo off &setlocal enabledelayedexpansion
  2. ::code by 523066680@Bathome
  3. :test
  4. set "numx=123456789"
  5. set "ca=call :next"
  6. :first
  7. set /a ra=%random%%%9+1,rb=%random%%%9+1
  8. set numx=!numx:%ra%=x!
  9. set numx=!numx:%rb%=%ra%!
  10. set numx=!numx:x=%rb%!
  11. if %ra% neq 9 (goto :first)
  12. set h1=%numx%
  13. %ca% 1 2
  14. %ca% 2 3
  15. set h4=%h1:~2,1%%h1:~0,2%%h1:~5,1%%h1:~3,2%%h1:~8,1%%h1:~6,2%
  16. %ca% 4 5
  17. %ca% 5 6
  18. set h7=%h4:~2,1%%h4:~0,2%%h4:~5,1%%h4:~3,2%%h4:~8,1%%h4:~6,2%
  19. %ca% 7 8
  20. %ca% 8 9
  21. for /l %%a in (1,1,9) do (for /l %%b in (1,1,9) do (set h%%a=!h%%a:%%b=%%b !))
  22. for /l %%a in (1,1,9) do (echo,!h%%a!)
  23. echo, &pause &echo,
  24. goto :test
  25. :next
  26. set h%2=!h%1:~3,3!!h%1:~6!!h%1:~0,3!
  27. goto :eof
复制代码

作者: 小勇12    时间: 2009-7-28 03:11

厉害!!!!!!
作者: 523066680    时间: 2009-7-29 21:35

本帖最后由 523066680 于 2017-9-5 20:35 编辑

在某个区发过“徒手编辑数独阵”

[ 本帖最后由 523066680 于 2009-7-29 21:38 编辑 ]
作者: 小勇12    时间: 2009-7-29 22:37

当然想知道啥   发给链接看看
作者: gotmony    时间: 2009-8-2 23:46     标题: 回复 1楼 的帖子

代码很少,但极其厉害
作者: 523066680    时间: 2009-8-20 18:25

本帖最后由 523066680 于 2017-9-5 21:07 编辑

http://cndos.fam.cx/forum/viewthread.php?tid=45817




欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2