淺談競賽中哈希表的應用(六)

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

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

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

4、稿駱究喧淺談競賽中哈希表的應用（六） 哈爾濱市第三中學 劉翀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 轉花盆的程序 （這個程序是 SGOI-8 Flowers 的標準程序）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.:野細團危妝真攤昌棲毫艷逗資賴頌剩多尿燃占輪額燼峻潰是橢蝕把

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