中国DOS联盟

五个0-9的数字,可能出现任意相同数字,分别放入A,B,C,D,E变量中

每次最少选取三个变量将变量中的数字+1

目标是让五个变量中的数字全部不相同

给点思路也可以,vbs/bat不限

谢谢各位

你的目的是让5个数不同。你生成的时候就和前面去比较有没有，没有就保存……


你那种取3加1什么的根本不能保证得到你要的结果。

在批处理版块讨论这种纯算法的问题是不是有点...

这个能显示五个不同的数字

@echo off

setlocal enabledelayedexpansion

:begin

set ac=0

:again

type nul>"%temp%\temp1.txt"

type nul>"%temp%\temp2.txt"

set aa=0

set/a ac+=1

:aaa

set/a ab=%random%%%10

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

set/a aa+=1

>>"%temp%\temp1.txt" echo %%a

if !aa!==5 goto aab

goto aaa

)

:aab

for /f "delims=" %%i in ('type "%temp%\temp1.txt"') do (

if not !%%i!==!ac! (

>>"%temp%\temp2.txt" echo %%i

set %%i=!ac!

)

)

for /f "delims=:" %%b in ('type "%temp%\temp2.txt"^|findstr /n .*') do set ad=%%b

if not !ad!==5 goto again

for /f "delims=" %%d in ('type "%temp%\temp2.txt"') do (

echo %%d

)

pause&cls

goto begin

我很菜，只提供思路，按这个思路应该也可以搞定

@echo off

:begin

cls

::生成五个不同随机数

set/a n1=%random%%%10

:nn2

set/a n2=%random%%%10

if %n2%==%n1% goto :nn2

:nn3

set/a n3=%random%%%10

if %n3%==%n2% goto :nn3

if %n3%==%n1% goto :nn3

:nn4

set/a n4=%random%%%10

if %n4%==%n3% goto :nn4

if %n4%==%n2% goto :nn4

if %n4%==%n1% goto :nn4

:nn5

set/a n5=%random%%%10

if %n5%==%n4% goto :nn5

if %n5%==%n3% goto :nn5

if %n5%==%n2% goto :nn5

if %n5%==%n1% goto :nn5

set nn=%n1%%n2%%n3%%n4%%n5%



echo %nn%

pause

goto begin

@echo off
set str=0123456789
for %%i in (A B C D E) do call :loop %%i
echo 取得的结果是%a% %b% %c% %d% %e%
pause
:loop
set/a s=%random%%%9
if defined %s% goto loop
call set %1=%%str:~%s%,1%%&set %s%=A

在这了讨论纯算法有什么问题吗？
难道4楼的兄弟认为批处理就没有算法的应用吗？

只是以前已经讨论过的问题又开始讨论
而且又回到了初始讨论的阶段
似乎很多人都不喜欢搜索和拿来


获取互不相同的随机数
通常有两类算法

一类是循环探测算法
就像6楼和7楼提到的
随机取一个数
检查以前是否取过
是则再次随机取
否则赋给变量
这类算法最大的弊病在于
如果取值个数接近取值范围
则命中率将明显降低
比如在0~100中取100个互不相同的数
此类算法的效率将相当低

现在比较成熟且高效的算法应该是随机交换算法
也就是先生成一个顺序数列
然后依次对数列中的数进行随机交换
用多少个数就交换多少次
交换完成后
直接依次取数列前端的数即可

5楼的代码
可能是不熟悉批处理中的数列操作
而选用了echo+findstr的方式处理数列
看上去不太舒服
所以没有细究其中的算法

6楼的代码重复性较大
应该是对批处理中的循环应用还不是熟练

7楼的代码
set/a s=%random%%%9
似乎应该是
set/a s=%random%%%10

Last edited by qzwqzw on 2008-3-18 at 02:17 PM ]

显示5个不重复的随机数，确实是讨论过的。关键是要避开重复。

方法一、
:

@echo off

set var=0 1 2 3 4 5 6 7 8 9

if "%~1"=="" (

  for /f "tokens=1,2 delims= " %%i in ('"%~0" n^|sort') do call set w=%%w%% %%j

) else (

  for %%a in (%var%) do call echo %%random%% %%a

  goto :eof

)

for /f "tokens=1-5" %%a in ("%w%") do echo %%a %%b %%c %%d %%e

pause

方法二、
:

@echo off

set var=0 1 2 3 4 5 6 7 8 9

for /l %%a in (10 -1 6) do call :lis %%a

echo %str%

pause&exit

:lis

  set /a w=%random%%%%~1+1

  for /f "tokens=%w%" %%i in ("%var%") do (

    call set var=%%var:%%i=%%

    call set str=%%str%% %%i

)

goto :eof

问题是非自已生成随机数,是从外部获取的

获取五个数字后再最少选三+1进行错开

@echo off

set /a a=%random%%%10

echo %a% >a.txt

:set1

set /a b=%random%%%10

find "%b%" a.txt >nul

if errorlevel 1 goto set2

goto set1

:set2

echo %b% >>a.txt

set /a c=%random%%%10

find "%c%" a.txt >nul

if errorlevel 1 goto set3

goto set2

:set3

echo %c% >>a.txt

set /a d=%random%%%10

find "%d%" a.txt >nul

if errorlevel 1 goto set4

goto set3

:set4

echo %d% >>a.txt

set /a e=%random%%%10

find "%e%" a.txt >nul

if errorlevel 1 goto show

goto set4

:show

del a.txt

echo %a%%b%%c%%d%%e%

现在的题目就比较有意思了

11楼的代码仍然不合题意

初步编写了一段代码
根据代码的执行结果
证明限定每个数只加一次1
则必然有些组合无法完成差异化
比如 1 1 2 2 3

:: 将获取的5个数选择其中的一些（至少选取3个，至多选取4个）加1，使他们互不相等

:: qzwqzw@cn-dos.net : 2008-03-19 

@echo off & setlocal EnableDelayedExpansion

for /l %%i in (1 1 5) do (

    set /a n=!random! %% 10

    set =!n!

)



set /p=生成随机数列：<nul

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

echo.

echo.

pause>nul



for /l %%i in (1 1 5) do (

    for /l %%j in (%%i 1 5) do (

        if not %%i==%%j (

            set /a a=, b=

            if !a! gtr !b! (

                set =!b!

                set =!a!

            ) 

        )

    )

)



set /p=数列排序后为：<nul

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

echo.

echo.

pause>nul



for /l %%i in (1 1 5) do (

    if defined prev (

        set /a a=

        set /a b=

        if !a! geq !b! (

            set /a =a+1

            set /a iAdd=a+1-b

            set /a nAdd+=1

            echo 第!nAdd!次:!b!+!iAdd!

        )

    )

    set prev=%%i

)



set /p=数列差异化后：<nul

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

echo.

echo.

pause>nul