五个0-9的数字,可能出现任意相同数字,分别放入A,B,C,D,E变量中
每次最少选取三个变量将变量中的数字+1
目标是让五个变量中的数字全部不相同
每次最少选取三个变量将变量中的数字+1
目标是让五个变量中的数字全部不相同
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 难题..将可能出现任意相同五个数字按要求错开
楼 主
难题..将可能出现任意相同五个数字按要求错开
发表于 2008-03-15 18:39 · 中国 浙江 温州 电信
第 2 楼
发表于 2008-03-15 18:41 · 中国 浙江 温州 电信
给点思路也可以,vbs/bat不限
谢谢各位
谢谢各位
第 3 楼
发表于 2008-03-15 18:54 · 中国 陕西 西安 电信
你的目的是让5个数不同。你生成的时候就和前面去比较有没有，没有就保存……
你那种取3加1什么的根本不能保证得到你要的结果。
你那种取3加1什么的根本不能保证得到你要的结果。
第 4 楼
发表于 2008-03-16 02:01 · 中国 上海 联通
在批处理版块讨论这种纯算法的问题是不是有点...
第 5 楼
发表于 2008-03-17 17:02 · 中国 北京 华为云
这个能显示五个不同的数字
@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
第 6 楼
这不跟我的猜数字中生成4个不同随机数很像
发表于 2008-03-17 20:20 · 中国 福建 三明 电信
我很菜，只提供思路，按这个思路应该也可以搞定
@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
┌───────┐
├→学习→实践→┤
└───────┘
├→学习→实践→┤
└───────┘
第 7 楼
发表于 2008-03-18 02:32 · 中国 江苏 常州 溧阳市 电信
@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
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
简单!简单!再简单!
第 8 楼
发表于 2008-03-18 14:06 · 中国 山西 运城 联通
在这了讨论纯算法有什么问题吗？
难道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 ]
难道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 ]
第 9 楼
发表于 2008-03-18 18:53 · 中国 湖南 娄底 电信
显示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
致精致简！
第 10 楼
发表于 2008-03-18 19:11 · 中国 浙江 温州 电信
问题是非自已生成随机数,是从外部获取的
获取五个数字后再最少选三+1进行错开
获取五个数字后再最少选三+1进行错开
第 11 楼
这个可以轻松搞定的：
发表于 2008-03-18 19:52 · 中国 湖南 株洲 电信
@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%
第 12 楼
发表于 2008-03-19 18:38 · 中国 山西 运城 联通
现在的题目就比较有意思了
11楼的代码仍然不合题意
初步编写了一段代码
根据代码的执行结果
证明限定每个数只加一次1
则必然有些组合无法完成差异化
比如 1 1 2 2 3
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
论坛跳转: