[問題] 猜數字(電腦猜人)
猜數字因該算是老梗問題了=..=
我人猜電腦的可以寫出來 (用C#視窗去寫)
但是電腦猜人想了一整天腦快爆了= ="
我看有什麼窮舉法(ptt猜數字的code)和消去法
我試著在ptt上面打..希望有人可以幫我解決問題..
我用C_Sharp寫(有參考網路上)可是還是有問題QQ
/* textbox1是顯示電腦產生的數字
textbox2是印出You win! You Cheat!
textbox3是輸入幾A,textbox4是輸入幾B
button1是輸入好幾A幾B的按鈕
*/
//目前是說索引在陣列的界限之外...而且textBox1.text一開始印不出東西= =
using System;
using System.Collections.Generic;
using System.ComponentModel;
............
namespace PcguessmyNum
{
public partial class Form1:Form
{
int[,] ADB=new int[5040,4]; //C10取1*C9取1*C8取1*C7取1,存放4個數字
bool isOver;//判斷遊戲是否結束
int a,b;//a=抓textbox1的幾A,b=抓textbox2的幾B
int randNum;//從ADB這個答案庫裡抓答案
public Form()
{
InitializeComponent();
}
private void Form_Load(object sender, EventArgs e)
{
while(1==1)
{
prepare();
while(!isOver)
{
ask();
answer();
if(isOver)
{
break;
}
think();
}
}
}
void prepare()
{
int i,tmp,unit1,unit10,unit100,unit1000;
remain=5040;
tmp=0;
isOver=false;
for(i=0;i<10000;i++)
{
unit=(i/1)%10;
unit10=(i/10)%10;
unit1000=(i/10)%10;
unit1000=(i/10)%10;
if(unit1!=unit10&&unit1!=unit100&&unit1!=unit1000
&&unit10!=unit100&unit10!=unit1000&&unit100!=unit1000)
{
ADB[tmp,0]=unit1000;
ADB[tmp,1]=unit100;
ADB[tmp,2]=unit10;
ADB[tmp,3]=unit1;
tmp++;
}
}
void ask()
{
int i;
Random a=new Random();
while(1==1)
{
randNum=0;
for(i=0;i<4;i++)
{
randNum *=10;
randNum +=a.Next()%10;
}
if(randNum<remain) break;
}
for(i=0;i<4;i++)
{
textBox1.Text=ADB[randNum,i].ToString();
}
}
void answer()
{
if(a+b>4)
{
textBox2.Text="Error";
}
if(a==4)
{
textBox2.Text="You win!";
isOver=true;
}
else if (remain==1)
{
textBox2.Text="You Cheat!";
isOver=true;
}
}
void think()
{
int i,j,k,aa,bb;
int[] refer=new int[4];
for(i=0;i<4;i++)
{
refer[i]=ADB[randNum,i];
}
for(i=0;i<remain;i++)
{
aa=bb=0;
for(j=0;j<4;j++)
{
for(k=0;k<4;k++)
{
if(ADB[i,j]==refer[k])
{
if(j==k) a++;
else bb++;
}
}
}
}
if(!((aa==a)&&(bb==b)))
{
for(j=i;j<remain;j++)
{
for(k=0;k<4;k++)
{
ADB[j,k]=ADB[j+1,k]
}
}
remain--;
i--;
}
}
if(remain==0)
{
textBox2.Text="You Cheat!";
isOver=true;
}
}
private void button_Click(object sender, EventArgs e)
{
string c,d;
c=textBox3.Text;
d=textBOx3.Text;
a=int.Parse(c);
b=int.Parse(d);
}
}
}
--
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 114.44.213.108
※ 編輯: Hotpenis5566 來自: 114.44.213.108 (12/07 02:37)
※ 編輯: Hotpenis5566 來自: 114.37.242.72 (12/07 02:51)
※ Hotpenis5566:轉錄至看板 C_Sharp 12/07 02:54