inittab

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

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

inittab

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

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

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

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

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