[已结]从随机数字串中找出有多少对一样的数子。 - DOS批处理 & 脚本技术（批处理室） - 中国DOS联盟论坛

< << [1] [2] >>

作者:

标题: [已结]从随机数字串中找出有多少对一样的数子。

上一主题 | 下一主题

terse
银牌会员

积分 2404
发帖 946
注册 2005-9-8
状态离线

『第 16 楼』:

凑个热闹

@echo off
for %%a in (%random% %random% %random%) do (
    set str=%%a
    setlocal enabledelayedexpansion
    for /l %%i in (0 1 4) do if not "!str:~%%i,1!"==""  set/a _!str:~%%i,1!+=1
    for /f "tokens=1,2 delims=_=" %%i in ('set _') do (
    if %%j gtr 1 set/a n+=1&if defined var (set var=!var!和%%i)else set var=%%i
   )
    if defined n (echo %%a 有 !n! 对（!var!）)else echo %%a 有 0 对
    endlocal
  )
pause

此帖被 +4 点积分

点击查看详情

简单!简单!再简单!

2009-1-9 03:16

查看资料发送邮件发短消息网志

linee
初级用户

积分 94
发帖 49
注册 2008-12-14
状态离线

『第 17 楼』:

Originally posted by clian76 at 2009-1-8 23:17: 有什么办法把变量： !_str! !j! !strout:~0,-1! 拿到endlocal之后，就是这里的PAUSE之后让程序正常显示变量。我试了把endlocal拿到代码最后，这样程序就 ...

这样呢？

@echo off
FOR /F %%a IN ('echo %random%^&echo %random%^&echo %random%') do (
set j1=&set s1=
call :rndd %%a j1 s1
if defined j1 (call echo %%a	有%%j1%%对（%%s1%%）) else echo %%a	有0对
)
pause&goto:EOF
:rndd
setlocal enabledelayedexpansion
set str=%1
set j=
for /l %%x in (1,1,5) do (
    if "!str!" neq "" (
	set i=!str:~0,1!
	if not defined str!i! (set str!i!=1) else set/a str!i!+=1,j=0
	set str=!str:~1!
)   )
if defined j (
    for /f "tokens=1,2delims==" %%i in ('set str')do if %%j gtr 1 set str=%%i&set "strout=!strout!!str:~3,1!和"&set/a j+=%%j/2
)
endlocal&if "%strout%" neq "" set %2=%j%&set %3=%strout:~0,-1%

[ Last edited by linee on 2009-1-9 at 15:57 ]

2009-1-9 11:37

查看资料发短消息网志

linee
初级用户

积分 94
发帖 49
注册 2008-12-14
状态离线

『第 18 楼』:

16楼更精简，不过对子数要处理下，比如：1111 仍显示有1对（1）正确应该显示有2对 (1)

2009-1-9 12:06

查看资料发短消息网志

terse
银牌会员

积分 2404
发帖 946
注册 2005-9-8
状态离线

『第 19 楼』:

Originally posted by linee at 2009-1-9 12:06: 16楼更精简，不过对子数要处理下，比如：1111 仍显示有1对（1）正确应该显示有2对 (1)

1111如要显示2对那就set/a n+=%%j/2

简单!简单!再简单!

2009-1-9 19:54

查看资料发送邮件发短消息网志

< << [1] [2] >>