批处理产生四个四位不重复的随机数

youxi01

要求：
1、随机数的位数为4位（首位不能为0）,且随机数由四个不重复的数字组成；
2、随机数之间不能重复

zhangxiaopeng

管理员也不公布一下答案呀。。。。

随风

1. @echo off
   
2. set ci=4
   
3. :start
   
4. set /a w=%random%%%9+1,y=9
   
5. set "var=0 1 2 3 4 5 6 7 8 9"
   
6. call set "var=%%var:%w%=%%"
   
7. for /l %%a in (1 1 3) do call :loop
   
8. if not defined _%w% (
   
9.    set _%w%=a
   
10.    echo %w%
    
11.    set /a ci-=1
    
12. )
    
13. if %ci% neq 0 goto start
    
14. echo\&pause&exit
    
15. :loop
    
16. set /a n=%random%%%%y%+1
    
17. for /f "tokens=%n%" %%a in ("%var%") do set "m=%%a"
    
18. set /a "y-=1"
    
19. set "w=%w%%m%"
    
20. call set "var=%%var:%m%=%%"
    
21. goto :eof

复制代码

zhangxiaopeng

哇！昨天刚回复完，今天就有了，真不错。。不像一般的论坛。里面产生随机数那一行，w=%random%%%9+1,y=9 后面三个%能解释是什么意思么？

youxi01

这个代码他自己解释是最清楚的，呵呵，旁人还是不说了/

youxi01

兄的代码是不是人为的复杂化了？

随风

你觉得是人为的复杂了？
我似乎精简不出来了。代码最主要的是想考虑效率问题，避免反复 goto

回 4 楼
set /a w=%random%%%9+1,y=9
可以看成
set /a w=%random%%%9+1
set /a y=9
set /a w=%random%%%9+1  %rqndom% 是个随机数 %% 代表取余操作。9+1 代表取的数底数为 1 范围是 9

小竹

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. set var=123456789
   
4. set /a h1=%random%%%9+1
   
5. set var=!var:%h1%=0!
   
6. for /l %%i in (9,-1,7) do (
   
7.         set /a temp=!random!%%%%i
   
8.         call set h%%i=%%var:~!temp!,1%%
   
9.         call set var=%%var:!h%%i!=%%
   
10. )
    
11. echo %h1%%h9%%h8%%h7%
    
12. pause
    

复制代码

随风

思路很巧啊

youxi01

似乎只产生一个随机数
对于多个随机数，没有进行重复性判断（尽管这种几率很小）

youxi01

来一段“无赖”代码，通过for中循环值调整随机度。

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. set /a str=123456789
   
4. for /l %%i in (1 1 10) do (
   
5.      set /a num=!random! %% 9+1
   
6.      call set str=%%str:!num!=%%!num!
   
7. )
   
8. echo !str:~2,4!
   
9. pause

复制代码

小竹

首位不能为0，但其它位可以为0。

梦想种子

来个思路一般的：

1. @echo off
   
2. :loop
   
3. setlocal enabledelayedexpansion
   
4. :num
   
5. set /a t=!random!%%10
   
6. if defined %t% goto num
   
7. set %t%=ok
   
8. set n=%n%%t%
   
9. if "%n:~3%" == "" goto num
   
10. if %n% lss 1000 (endlocal&goto loop)
    
11. echo %n%
    
12. pause

复制代码

再来个效率超低的：

1. @echo off
   
2. :loop
   
3. setlocal enabledelayedexpansion
   
4. for /l %%i in (0,1,9) do set +!random!=%%i
   
5. for /f "skip=6 delims=" %%j in ('set +^|sort') do (
   
6. set t=%%j
   
7. set a=!a!!t:~-1!
   
8. )
   
9. if !a! lss 1000 (endlocal&goto loop)
   
10. echo !a!
    
11. pause

复制代码

sjzong

请问楼主：是产生一个四位数都不重复的数，还是产生四个四位数都不重复的数？？
思路：随机取出该数的千、百、十、个位的数字，然后判断该数是否跟前面取的数重复；还要判断是否已经取满四个数

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. set str=0123456789
   
4. :main
   
5. cls
   
6. set var=
   
7. :a
   
8. set s1=!str:0=!
   
9. set/a num=%random%%%9
   
10. set num1=!s1:~%num%,1!
    
11. set s2=!str:%num1%=!
    
12. set/a num=%random%%%9
    
13. set num2=!s2:~%num%,1!
    
14. set s3=!s2:%num2%=!
    
15. set/a num=%random%%%8
    
16. set num3=!s3:~%num%,1!
    
17. set s4=!s3:%num3%=!
    
18. set/a num=%random%%%7
    
19. set num4=!s4:~%num%,1!
    
20. set num=!num1!!num2!!num3!!num4!
    
21. set/a n=0
    
22. for %%a in (!var!) do (
    
23. set/a n+=1
    
24. if %%a equ !num! goto :a
    
25. )
    
26. if !n!==4 (echo !var!&pause>nul&goto main) else (set var=!var! !num!&goto :a)

复制代码

[ 本帖最后由 sjzong 于 2009-4-25 15:55 编辑 ]

inittab

我也来一个吧。能生成一批四位不重复的随机数：

1. @echo off&setlocal enabledelayedexpansion
   
2. ::生成四位的随机数100个
   
3. for /l %%i in (1,1,100) do (set/a #%%i=!random!%%9000+1000)
   
4. ::过滤掉有重复数字的随机数
   
5. for /l %%i in (0,1,100) do (
   
6. for /l %%j in (0,1,9) do (
   
7. set ss=!#%%i:%%j=!
   
8. if !ss! lss 100 (set "#%%i=")
   
9. )
   
10. )
    
11. for /f "tokens=2 delims=#=" %%i in ('set #') do echo %%i
    
12. 
    
13. pause

复制代码