随风

功力不错啊，学什么的。
赞！

defanive

15L的代码强。。。

不过能保证100个数以内肯定能生成么。。。

sjzong

15楼的思路的确很有新意！
但是我有两个疑问：
1、如果题目假设成求出全部四位不重复的四位数时，那循环次数是非常多了，速度就慢多了，因为1000~9999就有9000个，然后每一个再来删除重复字符（0~9共10），那就要运行9000*10次数！
       换成另一种思路：先取千位（千位为10个数字扣除0，共9个），再取百位（百位为10个数字扣除千位的数字，共9个），再取十位（十位为10个数字扣除千位、百位两个，共8个），最后取个位（个位为10个数字扣除千位、百位、十位三个，共7个），利用排列组合，列出所有的数需要运行9*9*8*7=4536次。
       那两种思路的效率高呢？？？ 希望楼主按你的思路写出可以列出四位不重复的四位数代码，然后跟下面代码对比一下，看看速度怎么样？

@echo off
setlocal enabledelayedexpansion
set str=0 1 2 3 4 5 6 7 8 9
set s1=!str:0=!
for %%a in (!s1!) do (
set s2=!str:%%a=!
for %%b in (!s2!) do (
set s3=!s2:%%b=!
for %%c in (!s3!) do (
set s4=!s3:%%c=!
for %%d in (!s4!) do (
set/a num+=1
echo %%a%%b%%c%%d
))))
echo !num!
pauseCOPY

2、题目所提出的数字要求是随机数，按照15楼的方法时就难免会出现重复的数，就是第一次取随机数1234，有可能也取1234，虽然这种概率很小的！但毕竟存在。

inittab

如果按顺序排列。这个题目基本上没有难度了。(问题变成了：找出10000以内没有重复数字的四位数)

题目要求是, 生成四个随机的，没有重复数字的四位随机数

15的代码还存在相同数字的可能性。

有更好的改进代码，请跟进

[ 本帖最后由 inittab 于 2009-4-26 17:26 编辑 ]

wangqi0077

@echo off
:start
set /a a=%random%%%10
set /a b=%random%%%10
set /a c=%random%%%10
set /a d=%random%%%10
echo %a%
echo %b%
echo %c%
echo %d%
if %a% neq 0 (
if %a% neq %b% (
   if %a% neq %b% (
      if %a% neq %c% (
         if %a% neq %d% (
            if %b% neq %c% (
               if %b% neq %d% (
                 if %c% neq %d% (echo %a%%b%%c%%d%) else goto start
                              ) else goto start
                           ) else goto start
                        ) else goto start
                     ) else goto start
                   ) else goto start
                ) else goto start
             ) else goto start
pause
goto start
pauseCOPY

水平有限..全用IF来弄的.
能问问高手.除中间的goto start 外,其他除了最后一个.中间的可以不要吗???自己都弄晕了.

[ 本帖最后由 wangqi0077 于 2010-9-10 14:53 编辑 ]

wc726842270

@echo off
%random%
set a=%random%
if %a% gtr 999 goto 2
:2
if %a% lss 10000 (echo %a% >>a.txt) else goto 3
:3
call a.batCOPY

wc726842270

我将BAT文件保存为a.bat 了.忘说了

lvsehuaxue

@echo off
set /a m+=1
:loop
set /a n+=1
set /a v%n%=%random%%%9000+1000
call set m%n%=%%v%n%%%
if %n% lss 4 goto loop
if %m1% neq %m2% (if %m2% neq %m3% (if %m3% neq %m4% echo %m1% %m2% %m3% %m4%))
pauseCOPY

lvsehuaxue

有的代码写出之后，我可以自己想办法验证。23楼的代码写出之后，我没法验证是对还是错（我找不出验证的办法），所以，请高手判断一下对错。再次感谢！

lvsehuaxue

@echo off
:loop
set /a n+=1
set /a v%n%=%random%%%9000+1000
call set m%n%=%%v%n%%%
if %n% lss 4 goto loop
if %m1% neq %m2% (if %m2% neq %m3% (if %m3% neq %m4% echo %m1% %m2% %m3% %m4%))
pauseCOPY

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
pauseCOPY

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

netbenton

炒冷饭呀~~~
我也来个，一次搞得一百个。
不够么！！自己把100改大点。。。

@echo off&setlocal enabledelayedexpansion
for /l %%i in (0,1,9) do set ms=!ms!%%i
 
:lp
for /l %%i in (1,1,100) do (
  set ns=!ms!
  set n=9
  set/a v=!random!%%9+1
  for %%b in (!v!) do set s=!ns:~%%b,1!
 
  for /l %%a in (1,1,3) do (
    for %%b in ("!s:~-1!") do set ns=!ns:%%~b=!
    set /a v=!random!%%n,n-=1
    for %%b in (!v!) do set s=!s!!ns:~%%b,1!
  )
echo !s!
)
pause
goto :lpCOPY

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位数

netbenton

27楼回贴只看到第一个条件，

再来个满足两个条件的：（随机列出所有四位数，并满足一楼的两个条件要求）

@echo off&setlocal enabledelayedexpansion
for /l %%i in (0,1,9) do set ms=!ms! %%i
 
set as=!ms: 0=!
(
for %%a in (!as!) do (
  set bs=!ms: %%a=!
  for %%b in (!bs!) do (
    set cs=!bs: %%b=!
    for %%c in (!cs!) do (
      set ds=!cs: %%c=!
      for %%d in (!ds!) do (
        echo;!random! %%a%%b%%c%%d
) ) ) )
 
)>nums.tmp
for /f "tokens=2" %%a in ('sort nums.tmp') do (echo;%%a)
pauseCOPY