523066680

擦啊……都这么精简
粗也上了

@echo off
setlocal enabledelayedexpansion
set /a mi=0
:main
for /l %%a in (0,1,9) do (set arr[%%a]=%%a)
set /a i=0,num=%random% %% 9+1
set /a arr[%num%]=arr[9]
   :next
     set /a i+=1,rnd=%random% %% (10-i),last=9-i
     set /a rand=!arr[%rnd%]!,num=num*10+rand,arr[%rnd%]=arr[%last%]
   if %i% lss 3 goto :next
   if defined number[%num%] (goto :main) else (
       set /a number[%num%]=1,mi+=1
       echo %num%
   )
if %mi% lss 4 goto :main
pause
复制代码

[ 本帖最后由 523066680 于 2010-9-28 15:08 编辑 ]

523066680

刚刚想了一下 ， inittab 的剔除重复数字的应该是比较全面稳妥的做法
本顿的测试导出100个，偶尔是会出现重复的，
如果数字更大一些，重复的会多一些。

回忆到以前学概率的时候哎，0-9组成 4位数，每一位不重复，第一位不能为0
9*9*8*7=4536 种不同结果

[ 本帖最后由 523066680 于 2010-9-27 22:40 编辑 ]

523066680

我测了一下总数
15楼的代码找到漏洞：
筛选重复数字的部分：

for /l %%j in (0,1,9) do (
set ss=!#%%i:%%j=!
if !ss! lss 100 (set "#%%i=")
)

这里，比如数字是1023 ， 剔除1=023
而023<100 所以会被清理。 所以15楼的代码永远不会出现10开头的4位数