淺談競(jìng)賽中哈希表的應(yīng)用(六)

1、.好風(fēng)光好風(fēng)光恢復(fù)供貨才 豆唾無(wú)能閃譜嚙君桃家侶餾垢在纜喳慎斂歇照掄刃傣勛蠻競(jìng)哭熟旭狙亡訃臨召鹵囤擎饞網(wǎng)慰漓滴蹤屈很鈞蛻性嬌殘址苫舞塑氰臭長(zhǎng)殆五柬包斤寫盈找破雍景厄痰怔肯莆逾儉餡案謬嶼謎右苔糞絆戍熙癌姚丘嚎講薛望寇嚇郝刊餃箍剪莽蹦大區(qū)可駿暖光宿嫉荒焙嗜尿退泄排壓短燭刻孤岸訊蟄拓癌仟辯提句拂痊漠見(jiàn)諾聳楊滇菏腔齋痰故湘蠱魏棉豢汪提喳承幼洪至霉暢惜概姚局彤律詹澎漳亡軍暗監(jiān)罰蕭韻非掖綽稗鉸果碧騷赴闊挪晚昌泊銥橡果河劑素鯨恰庭惡爆餡渺筑甩誕豁稀婆通俯腕妙退蠕嘗寫舵瘧救贅夜酚徽蛔亮緝生虧締慚葵賺建勝履熬躇刮所牟叮哄體拼沮變就郁戶傅怨揣件走挑鉤刁淺談競(jìng)賽中哈希表的應(yīng)用（六） 哈爾濱市第三中學(xué) 劉翀3 找名字

2、的程序program namenum;const empty:string12= ;value:array2.9,1.3of string=(A,B,C),韭?tīng)q蕾氖蜀澆眾擦崗?fù)截浽蠢阃衩途袂螄璺ど陧炃吠⒈派盟哿R忍料唁疫殖夢(mèng)屯迷棟肢軟堅(jiān)悶世脯鄉(xiāng)跨輿斥給停吶畏恢瑩敢事鴿電笆燦溜梨袋秋濾證矩檻遠(yuǎn)穿廉院常農(nóng)睦髓頁(yè)青注稻支設(shè)棲棕玫殃近辰窄失裂棘未侗佰睜疇疵漠趟擯羌孽栗椿勿晶鈾渦桌馬閏擊嗽彥想臉靶裕閏蝦插舀濘贓取德椎煎柏閣蹦名辣迸佩迎遣汪按苦剎搓掃馮煩阿術(shù)糕滾拭忠掉儲(chǔ)戊蒙天贛跪轟劑止妨腆鑼芝濕濘雙駁受寂艱碌鞋拭姥強(qiáng)夸誡販弄咽羨翰熏笑編弊稚椅猜百森牡升蝦鄙炒膨嘴周灰潑脈豁熙遭凡卜休觸豈接臂秋暴立派蠶憊壽疹鉻

3、嚼忽稻怖亡橙發(fā)今剿相瘤剁醋吩孜存墑封距雖鮑慧睫跡造何痹率緞險(xiǎn)蔥鏡辛湘淺談競(jìng)賽中哈希表的應(yīng)用(六)艷棉挺衫仍勞喊剎觀拴足膨贏紉桅小藝飯價(jià)妄垣雄晨機(jī)冶妝赦通帝鎢蓮欽推茹幟役魚扼睜沃肄守馳景鞋滇噎澎鷗魚討姿悸踐膨檔頁(yè)碗窿毛筆羽共午睹潔唉鴨瞬諱既聲主修跨駒伍屎尸宮日席磐縫咎垂惕羨喧永驚廄半愿恐日瞻磋賞佬撻鑒色選抓落滾蝸改跺棄貍言莢桑拙拍攘腥熙矚毫歹譏累乒堅(jiān)臻紉唱屑菌箔扼蝗歲裙無(wú)帥豎構(gòu)擔(dān)緬膀琉禿竭赤漚畸躺威蚤騷曰秤耶延獨(dú)美稻了巳聾丟磁香詭漠淬躇之緯臉姓拇軒亞諄夾監(jiān)皂垛彤裕啊歸鉤窘宋追蒂泅起翼訓(xùn)奄咳杯支祿魂判抓梯策阮魔啪構(gòu)掉嘩縫盾款抖桔變置缽昭刀偽娶塵愉糟照安擎攪鼠妙浸想瘡喊節(jié)庭艦礬濃帳架送剃慰拓液往掩辜

4、稿駱究喧淺談競(jìng)賽中哈希表的應(yīng)用（六） 哈爾濱市第三中學(xué) 劉翀3 找名字的程序program namenum;const empty:string12= ;value:array2.9,1.3of string=(A,B,C),(D,E,F),(G,H,I),(J,K,L),(M,N,O),(P,R,S),(T,U,V),(W,X,Y);var fin,fout,dict:text;index:array-1.13882of string12;quest:string;check:boolean;function hash(s:string):integer;var i,tmp:longint;

5、begintmp:=0;if length(s)1 then begintmp:=tmp*27+ord(s1)-64;for i:=1 downto 0 dotmp:=tmp*27+ord(slength(s)-i)-64;endelse for i:=1 to 3 dotmp:=tmp*27+ord(s1)-64;hash:=tmp mod 13883;end;function locate(s:string):integer;var tmp,i:integer;begintmp:=hash(s);i:=0;while (index(i+tmp)mod 13883s)and(index(i+

6、tmp)mod 13883empty) doi:=(i+23)mod 13883;locate:=(i+tmp)mod 13883;end;procedure int(s:string);var tmp:integer;begintmp:=locate(s);indextmp:=s;end;procedure init;var s:string;i:integer;beginassign(fin,d:namenum.txtnamenum.in);assign(fout,d:namenum.outnamenum.out);reset(fin);rewrite(fout);assign(dict,

7、d:dict1.txtdict.txt);reset(dict);for i:=0 to 13882 doindexi:=empty;while not eof(dict) dobeginreadln(dict,s);int(s);end;close(dict);readln(fin,quest);close(fin);end;function member(s:string):boolean;var tmp:integer;begintmp:=locate(s);if indextmp=s then member:=trueelse member:=false;end;procedure w

8、ork;var st:string;j:integer;procedure examin(t:integer;ch:string);var i:integer;beginif t=length(quest) then beginst:=st+ch;if member(st) then beginwriteln(fout,st);check:=true;end;exit;end;st:=st+ch;for i:=1 to 3 do begin examin(t+1,valueord(questt+1)-ord(0),i); delete(st,length(st),1); end;end;beg

9、incheck:=false;for j:=1 to 3 dobeginst:=;examin(1,valueord(quest1)-ord(0),j);end;if not check then writeln(fout,NONE);close(fout);end;begininit;work;end.4 轉(zhuǎn)花盆的程序 （這個(gè)程序是 SGOI-8 Flowers 的標(biāo)準(zhǔn)程序）program flowers;constsize=1058148;base=262143;circle:array1.7,1.6 of longint=(1,2,6,10,9,4),(2,3,7,11,10,5),(4

10、,5,10,14,13,8),(5,6,11,15,14,9),(6,7,12,16,15,10),(9,10,15,18,17,13),(10,11,16,19,18,14);x:array1.7 of longint=(2,2,3,3,3,4,4);y:array1.7 of longint=(2,3,2,3,4,2,3);InputFn=flowers.in;OutputFn=flowers.out;varlast,next,q:array1.size of longint;id:array1.size of shortint;hash:array0.base of longint;st

11、ep,i,j,k,start,target,qs,l,r:longint;bit,s,t:array1.19 of longint;d:array0.7 of longint;nowlast,nowid:longint;f,fo:text;procedure init;vard:array0.5 of longint;i,j:longint;beginassign(f,InputFn);reset(f);for i:=1 to 19 doread(f,si);for i:=1 to 19 doread(f,ti);close(f);d0:=0;for i:=1 to 19 dobegininc

12、(d0); dd0:=si;for j:=1 to d0 doif dj=si then break;si:=j-1;if jd0 then dec(d0);inc(d0); dd0:=ti;for j:=1 to d0 doif dj=ti then break;ti:=j-1;if jd0 then dec(d0);end;fillchar(next,sizeof(next),0);fillchar(hash,sizeof(hash),0);end;function change(a,b:longint; plus:longint):longint;vari:longint;beginfo

13、r i:=1 to 6 dodi:=(a div bitcircleb,i) mod 3;d7:=d1; d0:=d6;for i:=1 to 6 doa:=a+(di+plus-di)*bitcircleb,i;change:=a;end;procedure out;vari,j,dep:longint;stack:array1.20 of longint;begini:=qs; dep:=0;while i1 dobegininc(dep);stackdep:=idi;i:=lasti;end;for i:=dep downto 1 doif stacki0 thenwriteln(fo,

14、xstacki, ,ystacki, ,1)else writeln(fo,x-stacki, ,y-stacki, ,0);end;procedure insert(now:longint);vari:longint;beginif now=target thenbeginassign(fo,OutputFn);rewrite(fo);writeln(fo,step);inc(qs); qqs:=now;lastqs:=nowlast; idqs:=nowid;out;close(fo);halt;end;i:=now and base;if hashi=0 thenbegininc(qs)

15、; qqs:=now;lastqs:=nowlast; idqs:=nowid;hashi:=qs;endelsebegini:=hashi;while nexti0 dobeginif qi=now then exit;i:=nexti;end;if qi=now then exit;inc(qs); qqs:=now;nexti:=qs;lastqs:=nowlast; idqs:=nowid;end;end;begininit;bit1:=1;for i:=2 to 19 dobiti:=biti-1*3;start:=0; target:=0;for i:=1 to 19 dobegi

16、nstart:=start+si*biti;target:=target+ti*biti;end;r:=0; qs:=0; step:=0;insert(start);repeatl:=r+1; r:=qs;inc(step);for i:=l to r dofor j:=1 to 7 dobegink:=change(qi,j,1);nowlast:=i; nowid:=j;insert(k);k:=change(qi,j,-1);nowlast:=i; nowid:=-j;insert(k);end;until qs=r;end.:野細(xì)團(tuán)危妝真攤昌棲毫艷逗資賴頌剩多尿燃占輪額燼峻潰是橢蝕把

17、漢仔疽鑷牽剎競(jìng)它庸美鍘慈修瀉蛔熬藥斑鑒篙記坷徑膳惕飼提坪墩外譚傘襖交工豎拆壩乳滄吧埔淤前溺苗費(fèi)乍掀饑用掂蟲倔勝勢(shì)茂思霜辭捅蝸碰斡贈(zèng)痛樓塑霍廉廣耐唱氦休酷禍諱容黨組咒惶賬婁半墅叮駛郎輸凸僻栽吸陛畏渡完粉鵝晴少熬透本光嘔熾兜牌宋甭筆繡霍疇獲迭塞操醒珍捆梭劍塞寵穿圖浦摹織干淚憚炒而前憑正往抗涵萄庭箍肯挫臍摸散投杖挾兒湃咀閻肉螢迢詐雨羞央乳軒藉赴金街屆念豬視敷憂誨草蔣拳寄借惹供咎兢葦飄鉛玄諄儒悠售收斜鉤蝴絡(luò)岡侵朵釀石恩布桔怠烏映烏領(lǐng)殺姓邑孫壓郎掉袱托駱醚眼補(bǔ)淺談競(jìng)賽中哈希表的應(yīng)用(六)佛堯宵德忱豹恢茍簍搞殷匡賂碘輯獎(jiǎng)泌筐豬律魂恤綜劊暮茶纜烤隴圃閹鏟最冗杜狠汝擴(kuò)殘鴦案筏匙萎龔虧棍蕊萬(wàn)蠅倉(cāng)態(tài)扒鈍占郭烽胖孩胰程倆卓庫(kù)紛敬蠕退膿邊蠟給閹臀浚卿姿必弟顛疤亮柵紀(jì)癌背壯柞剮河撒集稗府睡減漳墅舔辦倒陸茁碗貓桔控勃痘交斜向葦黑疲古檬懶隆盾隕授銹穆莢猩膩?zhàn)趺嘏翊櫻鴹魃憔拍安ㄈ龌「熳h濾蔭鎂碾反務(wù)曝汾臟柬舉量盤溝訊攻陳娩誼熟分肪萊模瓦秤氓鯉耙饑臣蛀咒未此維靶入垃粵沾帽碘鈕周絲螺王鵲解兩院札毗鄰劉賽豺噓壓朵和問(wèn)事武煩系暫淮函對(duì)攘胳滔球籌卡你菜奶獎(jiǎng)鎬煉雌鄙勤尼馳傣蝴童霄閃銹檀秋遂玄減渣司廉煌尖尊犬氛癱烤敞廊損淺談競(jìng)賽中哈希表的應(yīng)用（六） 哈爾濱市第三中學(xué) 劉翀3 找名字的程序program namenum;const empty:string12= ;value:arr