中国DOS联盟

写个猜数字的游戏，不知有没有人玩过，家里电话有这游戏，玩了好多次了
我自己也在写，7788，没完善好，想看下大家有没更好的思路。
在论坛里感觉没挑战的高手都可以出来讨论下了，谢谢啊``

规则：

1. 游戏开始会随机获取四位不重复的0-9的数字(第一位可以为0)

2. 玩家首先进行猜测，输入四位不重复的0-9的数字

3. 将游戏一开始获取的数字跟玩家输入的数字进行对比:

假如有一位的数字和位置完全匹配的话，设置标志 A1

假如有一位的数字匹配，但是位置不匹配的话，设置标志B1

假如数字和位置均不匹配的话，设置标志B0

数字和位置完全匹配只设置标志A，跟B无关

例如: 答案是 4690 若我猜 0679 则 提示为 A1B2

若提示 A0B0 则表示所猜的数字在答案中完全没出现过

若提示 A0B4 则表示所猜的数字完全匹配，但是位置全错了

A4B0 就是正确答案了。

4. 只有10机会

大概思路：

* 必须验证随机答案

验证随机获取的数字是否四位，每一位是否有重复

* 必须验证玩家的输入规范

验证玩家输入的是否是纯数字，是否有重复，是否是4位，否则给出相应提示然后跳回重新输入

* 记录历史记录

第一次用户输入了什么，得到的提示是什么，必须在第二次猜测的时候显示出来供参考

* 记录使用次数

猜了多少次，剩下多少次，跟历史记录一起显示

* 必须有重玩的机会

玩家使用完10次之后还没猜出来必须要有重玩机会，或者一次就猜出来了，也要有重玩机会

-------------------------------------------------------------------------------------------
最终答案见 7楼、9楼、11楼、16楼
结帖！

[ Last edited by dosmania on 2007-9-26 at 09:32 PM ]

我狂汗啊``怎么没人研究啊``

这个挺有意思的;
只是这段时间比较忙没时间;

十一放假;一定写出来贴上来;

很早就有人写了个猜数字的游戏，在那个上面稍微修改下就可以的

我以前写了个C语言版的
有时间把它转成批处理

re bjsh:
期待版主的思路吖````

re vkill:

是有人写过，但截然不同，差很多呢，那游戏够假
我说的这个可是真实存在我家固定电话里的游戏。
我提到的一些必要的验证也是和你说的那个区别开来。

re HAT:

把代码贴上来

楼主说的是这个游戏吧
http://www.cn-dos.net/forum/viewthread.php?tid=32554

re qzwqzw:

拜读了一下你的贴子``反猜解太慢了，等了N 久``
其实现实存在的那个猜数字游戏是猜10次，而不是8次。
我测试了你的release 1 版，出现的问题也贴到你贴子里了`自己去看``
感觉你的代码N 多```

@echo off

setlocal enabledelayedexpansion

:::::::::::::::::::::::::::     猜数字游戏   :::::::::::::::::::::::::::

:::::::::::::::::::::::::::{s11ss  2007-9-25}:::::::::::::::::::::::::::

:Begin

set/a counter=1

:GetStr

echo 请输入一个四位数:

set/p str=

if "%str%"=="" goto :GetStr

call set one=%%str:~3,1%%

if "%one%" equ "" (echo 位数一定为四！& goto :GetStr)

call set one=%%str:~4,1%%

if not "%one%" equ "" (echo 位数一定为四！& goto :GetStr)

set/a len=0

:IsAllNum

call set word=%%str:~%len%,1%%

if not "%word%"=="" (

	set isnum=False

	for /l %%a in (0,1,9) do (

		if "%word%"=="%%a" (

			set/a len+=1 

			set isnum=True		

			goto :IsAllNum

		)

	)

)

if "%isnum%"=="False" (echo 怎么会有非数字出现呢? & goto :GetStr)

set state=chkinput

call :CheckSameNum n %str%

if not !counter! equ 1 goto :CheckAnswer

goto :CreateRandom

:CheckSameNum

set s=%2

for /l %%a in (0,1,3) do call set %1%%a=%%s:~%%a,1%%

set/a i=0

:ci

set/a j=!i!+1

:cj

if !%1%j%! equ !%1%i%! (

	if !state! equ chkinput ( 

	echo 各位数字要各不相同！& goto :GetStr

	) else (goto :CreateRandom)

)

set/a j+=1

if not !j! gtr 3 goto :cj

set/a i+=1

if not !i! gtr 2 goto :ci

goto :eof

:CreateRandom

set/a answer=%random%

call set one=%%answer:~3,1%%

if "%one%" equ "" (goto :CreateRandom)

call set one=%%answer:~4,1%%

if not "%one%" equ "" (goto :CreateRandom)

set state=chkrandom

call :CheckSameNum y %answer%

::下一句可以显示出答案：

::echo %answer%

:CheckAnswer

set/a aa=0,bb=0

if not !counter! equ 11 (

	for /l %%a in (0,1,3) do (

		for /l %%i in (0,1,3) do (

			if !n%%i! equ !y%%a! (

				if %%i equ %%a (

					set/a aa+=1

				) else (set/a bb+=1)

			)		

		)

	)

	set r%counter%=A!aa!B!bb!

	set str%counter%=!str!

	for /l %%a in (1,1,!counter!) do echo 第%%a次猜测：!str%%a!，结果：!r%%a!

	set/a remain=10-!counter!

	echo 共猜了!counter!次，还剩!remain!次。

	set/a counter+=1

	if not !aa! equ 4 (

		goto :GetStr

	) else (

		echo 答对了，答案就是!str%counter%!，中秋节快乐！

		goto :Replay	

		)

)

echo 已经猜了10次！

:Replay

set/p q=要重玩么？(y/n)

if not "%q%" equ "y" (

	if not "%q%" equ "Y" (

		echo 按任意键退出...

		pause>nul

		goto :eof

	)

)

goto :Begin

[ Last edited by s11ss on 2007-9-25 at 02:44 PM ]

dosmania：
我承认那个猜解算法确实有些蹩脚
毕竟只是一个闲暇之余的R1而已

可惜当时没人对此感兴趣
没有形成讨论的气氛
后来我也失去了这方面的兴趣

你若有新的算法那就贴出来
也许会重新激发我的兴趣也不一定
------------------------------------------------------
至于猜8次还是猜10次问题
我认为那不是问题
最初我就设定了10次
后来因为显示版面和日志的原因改成了8次

真要说起来
我接触的此类游戏中
游戏机和电视机的是不限次数的
录像机是限制了8次，并且不使用数字9和0
电脑的就很多样了

一个优秀的猜解算法
穷举算法应该就是次数最少的算法
但不是效率最高的
平均猜解次数应该是小于6次吧
设定8次也算中级难度吧

------------------------------------------------------

“感觉你的代码N 多``` ”
不明白，可以解释一下吗

[ Last edited by qzwqzw on 2007-9-25 at 03:05 PM ]

批处理我是写不出来了，发一个ＶＢＳ的吧

dim a,b,cs,s

msgbox "游戏方法：" _

& vbcrlf & "    电脑随机产生一个四位十进制数字（开头的可以为0），猜10次。" _

& vbcrlf & "    每次返回AaBb" _

& vbcrlf & "    A表示数字正确并且位置正确" _

& vbcrlf & "    B表示数字正确但位置不正确" _

& vbcrlf & "    如：假设要猜的数字是1234" _

& vbcrlf & "    如果游戏者猜0134即返回A2B1（3、4为A，1为B）",4096+32,"猜数游戏"

do

    a=0:b=0:cs=0:sm=""

    while not pd(s)

    randomize

        s1=Int(10 * Rnd)

        s2=Int(10 * Rnd)

        s3=Int(10 * Rnd)

        s4=Int(10 * Rnd)

        s=s1 & s2 & s3 & s4

    wend 

    'msgbox s

    do until cs=10

        do

            n=inputbox(sm & "请输入猜测数:（还有" & 10-cs & "次机会）","猜数游戏")

            if n=false then wscript.quit

            if len(n)<>4 then

                msgbox "位数不正确，请重新输入！",16+4096,"错误"

            elseif pdsz(n)=false then

                msgbox "输入的不是数字，请重新输入！",16+4096,"错误"

            elseif not pd(n) then

                msgbox "不能有重复的数字，请重新输入！",16+4096,"错误"

            else

                cs=cs+1:exit do

            end if

        loop

        call jg(n)

        if cs=10 and n<>s then msgbox "电脑随机数为：" & s & vbcrlf & "很遗憾,没有猜对,继续努力!",4096,"结果"

        if n=s then msgbox "电脑随机数为：" & s & vbcrlf & "第" & cs & "次猜测：" & n & vbcrlf & "结果：" & "A" & a & "B" & b,4096+48,"恭喜你，猜对了！":exit do

        sm=sm & "第" & cs & "次猜测：" & n & vbcrlf & "结果：" & "A" & a & "B" & b & vbcrlf & vbcrlf

    loop

    s=""

loop until msgbox("是否再来一遍？",vbyesno,"游戏结束")=vbno

function pd(a)

     my1=mid(a,1,1)

     my2=mid(a,2,1)

     my3=mid(a,3,1)

     my4=mid(a,4,1)

     pd=my1<>my2 and my1<>my3 and my1<>my4 and my2<>my3 and my2<>my4 and my3<>my4

end function



sub jg(r)

     a=0:b=0

     for i=1 to 4

         m=mid(r,i,1)

         h=mid(s,i,1)

         if m=h then 

             a=a+1

         else

             if instr(s,m)<>0 then b=b+1

         end if

     next

end sub

 

function pdsz(a)

    l=len(a)

    for i=1 to l

        if isNumeric(mid(a,i,1)) then

            pdsz=true

        else

            pdsz=false:exit function

        end if

    next

end function

[ Last edited by jmz573515 on 2007-9-25 at 04:09 PM ]

呵呵``jmz573515 厉害，VBS互动性N 好
if len(n)<>4 靠``根本不能比嘛```VBS这个就搞定了位数``
不知jmz573515 对s1 s2 s3 s4 的重复可能性进行考虑没有```？

re s11ss:
你的代码也完全符合要求```不知你对随机数重复的验证是哪些``

dosmania:
if len(n)<>4 靠``根本不能比嘛```VBS这个就搞定了位数``
不知你说的是不能比是什么意思,我认为可以限定在4位啊??

不知jmz573515 对s1 s2 s3 s4 的重复可能性进行考虑没有```？

重复的可能性不知道你指的是什么?(你是说可能性有多大?还是说有可能重复?)
这里我只考虑了有可能重复所以做了判断,如果重复的话重新生成随机数,并没有考虑他的可能性有多大,也许效率不高...)

Originally posted by dosmania at 2007-9-26 02:53 PM:
re s11ss:
你的代码也完全符合要求```不知你对随机数重复的验证是哪些``

随机数重复?
不明白你的具体意思.

反正我的代码是让随机数的4位数字不重复,至于随机数与随机数之间是否重复我并未控制,不过题目里好象也没有要求啊