中国DOS联盟

@echo off&setlocal enabledelayedexpansion

for /l %%i in (1 1 9) do call:lp %%i

pause&goto :eof

:lp

set/a var=!random!%%9+1

if defined .!var! (goto lp)else set/a n+=1&set str=!var! !str!&set .!var!=a

   if !n! lss 9 goto lp

   for /l %%i in (1 1 9) do set .%%i=

   set var=%str%&set n=1

:lp0

for %%a in (!var!) do (

if defined .%%a set var=!var:%%a=!&goto lp0

  for /l %%i in (1 1 %1) do if %%a equ !%%i%n%! set var=!var:%%a=!&goto lp0

     set %1!n!=%%a&set .%%a=ok

        if !n! lss 9 set/a n+=1&set var=!str:%%a=!&goto lp0

       )

        set str=&set n=

for /l %%i in (1 1 9) do set .%%i=

for /l %%i in (9 -1 1) do if "!%1%%i!"=="" set str=&set n=&goto lp

for /l %%i in (1 1 9) do set .%%i=&set/p=!%1%%i! <nul

echo.

@echo off

setlocal enabledelayedexpansion

set a=0

for %%a in (1 2 3 4 5 6 7) do (set n%%a=%%a)

set /a n0=1,n8=2,n9=3

:a

set /a a+=1,b=0

md TheTest\hang%a%

   :b

   set /a b+=1

   if not exist TheTest\Lie%b% (md TheTest\Lie%b%)

            :b-1

             set num=!n%random:~1,1%!

             if exist TheTest\Hang%a%\!num! (goto :b-1)

             if exist TheTest\Lie%b%\!num! (goto :b-1)

             md TheTest\Hang%a%\!num!

             md TheTest\Lie%b%\!num!

             set h%a%=!num! !h%a%!

    if %b% equ 7 (goto :b-end) else (goto :b)

:b-end

if %a% equ 7 (goto :end) else (goto :a)

:end

for /l %%a in (1,1,9) do echo,!h%%a!

pause>nul

1. @echo off
   
2. title 数字九宫格 Code By cn-dos moniuming
   
3. Setlocal Enabledelayedexpansion
   
4. for /l %%i in (1 1 9) do (set "bat=!bat! %%i")
   
5. :begin
   
6. echo.
   
7. for /l %%i in (1 1 9) do (set "str%%i=%bat%")
   
8. for /l %%a in (9 -1 1) do (call :loop1 %%a)
   
9. echo.&pause&goto :begin
   
10. :loop1
    
11. if "%n%"=="9" (
    
12. set "n=0"&echo %var%&set "var="
    
13. for /l %%c in (1 1 9) do (set "%%c="&set "string%%c=")
    
14. goto :eof
    
15. )
    
16. set /a "n+=1"
    
17. for /l %%f in (1 1 9) do (
    
18. if not defined string%%f (set "string%%f=!str%%f!")
    
19. )
    
20. :loop2
    
21. set /a "ttl+=1"
    
22. if "%ttl%"=="30" (
    
23. set "ttl=0"&set "var="&set "n=0"
    
24. for /l %%e in (1 1 9) do (set "%%e="&set "str%%e=!string%%e!")
    
25. goto :loop1
    
26. )
    
27. set /a "mdl=%random%%%%1+1"
    
28. for /f "tokens=%mdl%" %%d in ("!str%n%!") do (
    
29. if defined %%d goto :loop2
    
30. set "ttl=0"
    
31. set "var=!var! %%d"
    
32. set "%%d=dos"
    
33. set "str%n%=!str%n%:%%d=!"
    
34. )
    
35. goto :loop1
    

moniuming发表于： 2008-08-11 13:31

Originally posted by 523066680 at 2008-8-11 14:06:
哇 还是穷举的！强！

Originally posted by pusofalse at 2008-8-11 14:26:
穷举吧。。那个ttl=30
但依然精彩，学习了！

@echo off&setlocal enabledelayedexpansion

for /l %%i in (1 1 9) do call:lp %%i

pause&exit

:lp

for /l %%i in (1 1 9) do set .!random!!random!!random!=%%i

   for /f "tokens=1,2 delims==" %%i in ('set .') do set str=%%j !str!&set %%i=

      for /l %%i in (1 1 9) do set %1%%i=

      set var=%str%&set n=1

:lp0

for %%a in (!var!) do (

if defined .%%a set var=!var:%%a=!&goto lp0

  for /l %%i in (1 1 %1) do if %%a equ !%%i%n%! set var=!var:%%a=!&goto lp0

     set %1!n!=%%a&set .%%a=ok

        if !n! lss 9 set/a n+=1&set var=!str:%%a=!&goto lp0

       )

        set str=&set n=

        for /l %%i in (1 1 9) do set .%%i=

        if "!%19!"=="" goto lp

        for /l %%i in (1 1 9) do set .%%i=&set/p=!%1%%i! <nul

echo.

Originally posted by obsolete at 2008-8-10 08:23 PM:
先生成一个规则的矩阵，然后交替进行行列交换，应该可以达到随机效果

@echo off

setlocal enabledelayedexpansion

set h1=123456789

set h2=234567891

set h3=345678912

set h4=456789123

set h5=567891234

set h6=678912345

set h7=789123456

set h8=891234567

set h9=912345678

:a

set /a a=0,b=0

  :b

  set /a a+=1

     :b1

     set n=%random:~-1%

     if %n% equ 9 set n=8

     if not defined Ex%n% (

     for /l %%a in (1,1,9) do (call,set hang%%a=!hang%%a! %%h%%a:~!n!,1%%)

     ) else (goto :b1)

  set Ex%n%=ex

  if %a% lss 9 goto :b

  :c

    set /a b+=1

     :c1

     set n=%random:~-1%

     if %n% equ 0 set n=9

     if not defined Ex2%n% (echo !hang%n%!) else (goto :c1)

  set Ex2%n%=ex

  if %b% lss 9 goto :c

pause

for /l %%a in (0,1,9) do (

set Ex%%a=

set Ex2%%a=

set hang%%a=

)

goto :a