集訓(xùn)隊(duì)作業(yè)猜數(shù)

1、猜和一起參加了在綿陽(yáng)舉行的信息學(xué)冬令營(yíng)。今天是休息的日子，和閑著無(wú)聊，決定一起玩經(jīng)典的猜數(shù)字。a1a2a3a4a1a2a3a4（表示四個(gè)a1 b1可為0。猜完后，馬上將b1b2b3b4與a1a2a3a4作比較，并以整數(shù)P 和整數(shù) 第一次，猜 1980，回答 P=0, Q=1第二次， 猜 0731， 回答 P=1, Q=3第三次， 6703， P=4,于是，結(jié)束，只猜了三次就猜出了所默想的數(shù)幾個(gè)小時(shí)在網(wǎng)上的緊張搜索，終于找到了在 y 年前所編寫的猜數(shù)程序。正當(dāng)?shù)哪弥绦驕?zhǔn)備再和玩猜數(shù)時(shí)，笑嘻嘻的對(duì) 的程序沒(méi)有起到任何作用，結(jié)果是花了十次猜了想的一個(gè)長(zhǎng)度 L為TNumber Len、 tryNum

2、ber 和 Next, 它們的說(shuō)明和使用方法如下：TNumber：一個(gè)最多含有 10 個(gè)字節(jié)的數(shù)組類型，用于函數(shù) tryNumber 的參數(shù) tryNumber P,Q Len 時(shí)，才算猜完)，需要調(diào)用 NextNext時(shí)，庫(kù)會(huì)自動(dòng)退TNumber=array0.9oftypedefcharfunctionLen:intTNumber;varP,Q:void tryNumber(const N,int&P,intprocedurevoid Uses#include你可以在你的 下建立一個(gè)名為 guess.in 的文件，文件的第一行包含兩個(gè)n Ln L 0 至 9 的互異的整數(shù)，用空格分隔，第

3、i+1 行表示的是第 i 個(gè)要猜的數(shù)的每一位。n L，分別表示待猜數(shù)的個(gè)數(shù)和長(zhǎng)度的相反在 guess.log 中。一般包含這些信息：Gamestarted.：開(kāi)始Thenumberis：當(dāng)前要猜的數(shù)為 為調(diào)用的。 Error:Numberisinvalid.：tryNumberError:InvalidcallofNext.Next函 Error:Inputfileerror.1 46 7 0 GameThenumberis 說(shuō)明：為書寫簡(jiǎn)便，用123456789234567891 本題的時(shí)間限制長(zhǎng)達(dá)20 秒，可以說(shuō)是比較寬松了。因此，應(yīng)當(dāng)盡量減一個(gè)函數(shù)來(lái)評(píng)價(jià)用一個(gè)數(shù)來(lái)猜的好壞程度。我選擇的函

4、數(shù)是 ，其中 123456789另外，由于篩法耗時(shí)相當(dāng)長(zhǎng)，使得20秒的時(shí)限變得捉襟見(jiàn)肘。加了優(yōu)化之program guess; const limit=2000;/當(dāng)表中的數(shù)不多于 limit 時(shí)，使用type point=re;re=record/結(jié)點(diǎn)類var n,tot,i,j,k,best,sums,sumt,tem:longint; t:array0.10,0.10oflongint;/ti,j記錄返回(i,j)的可能數(shù) f:array 0.9 of boolean;/fi記錄數(shù)字 i 是否用過(guò) if v=n with tail do foru:=0to9do if not fu th

5、en beginprocedurecal(varx,u:Tnumber);/執(zhí)行篩法，x ithenflag:=true;while pnil dofor i:=0 to n-1 do then beginifup.ci=itheninc(sums) then elsefori:=1tondotot:=tot*(11-whiletotlimit/當(dāng)表中的數(shù)多于 limit 時(shí)，隨機(jī)選擇詢問(wèn)的fori:=1tokdop:=p.next; fori:=0 to 9dofori:=0ton-1doup.ci:=i; whiletot1/當(dāng)表中的數(shù)在 2limit 之間時(shí)，找一個(gè)使得目標(biāo)/ fori:=0to9dofori:=0ton-1doup.ci:=i; for i:=1 to tot do for j:=0 to n-1 dothen beginifuq.cj=jtheninc(sums) f