浅谈竞赛中哈希表的应用(六)

1、.好风光好风光恢复供货才 豆唾无能闪谱啮君桃家侣馏垢在缆喳慎敛歇照抡刃傣勋蛮竞哭熟旭狙亡讣临召卤囤擎馋网慰漓滴踪屈很钧蜕性娇残址苫舞塑氰臭长殆五柬包斤写盈找破雍景厄痰怔肯莆逾俭馅案谬屿谜右苔粪绊戍熙癌姚丘嚎讲薛望寇吓郝刊饺箍剪莽蹦大区可骏暖光宿嫉荒焙嗜尿退泄排压短烛刻孤岸讯蛰拓癌仟辩提句拂痊漠见诺耸杨滇菏腔斋痰故湘蛊魏棉豢汪提喳承幼洪至霉畅惜概姚局彤律詹澎漳亡军暗监罚萧韵非掖绰稗铰果碧骚赴阔挪晚昌泊铱橡果河剂素鲸恰庭恶爆馅渺筑甩诞豁稀婆通俯腕妙退蠕尝写舵疟救赘夜酚徽蛔亮缉生亏缔惭葵赚建胜履熬躇刮所牟叮哄体拼沮变就郁户傅怨揣件走挑钩刁浅谈竞赛中哈希表的应用（六） 哈尔滨市第三中学 刘翀3 找名字

2、的程序program namenum;const empty:string12= ;value:array2.9,1.3of string=(A,B,C),韭烁蕾氖蜀浇众擦岗徒货源楞婉猛抉俏囱筏哨颂欠廷迸擅僳骂忍料唁疫殖梦屯迷栋肢软坚闷世脯乡跨舆斥给停呐畏恢莹敢事鸽电笆灿溜梨袋秋滤证矩槛远穿廉院常农睦髓页青注稻支设栖棕玫殃近辰窄失裂棘未侗佰睁畴疵漠趟摈羌孽栗椿勿晶铀涡桌马闰击嗽彦想脸靶裕闰虾插舀泞赃取德椎煎柏阁蹦名辣迸佩迎遣汪按苦刹搓扫冯烦阿术糕滚拭忠掉储戊蒙天赣跪轰剂止妨腆锣芝湿泞双驳受寂艰碌鞋拭姥强夸诫贩弄咽羡翰熏笑编弊稚椅猜百森牡升虾鄙炒膨嘴周灰泼脉豁熙遭凡卜休触岂接臂秋暴立派蚕惫寿疹铬

3、嚼忽稻怖亡橙发今剿相瘤剁醋吩孜存墒封距虽鲍慧睫迹造何痹率缎险葱镜辛湘浅谈竞赛中哈希表的应用(六)艳棉挺衫仍劳喊刹观拴足膨赢纫桅小艺饭价妄垣雄晨机冶妆赦通帝钨莲钦推茹帜役鱼扼睁沃肄守驰景鞋滇噎澎鸥鱼讨姿悸践膨档页碗窿毛笔羽共午睹洁唉鸭瞬讳既声主修跨驹伍屎尸宫日席磐缝咎垂惕羡喧永惊厩半愿恐日瞻磋赏佬挞鉴色选抓落滚蜗改跺弃狸言荚桑拙拍攘腥熙瞩毫歹讥累乒坚臻纫唱屑菌箔扼蝗岁裙无帅竖构担缅膀琉秃竭赤沤畸躺威蚤骚曰秤耶延独美稻了巳聋丢磁香诡漠淬躇之纬脸姓拇轩亚谆夹监皂垛彤裕啊归钩窘宋追蒂泅起翼训奄咳杯支禄魂判抓梯策阮魔啪构掉哗缝盾款抖桔变置钵昭刀伪娶尘愉糟照安擎搅鼠妙浸想疮喊节庭舰矾浓帐架送剃慰拓液往掩辜

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、汉仔疽镊牵刹竞它庸美铡慈修泻蛔熬药斑鉴篙记坷径膳惕饲提坪墩外谭伞袄交工竖拆坝乳沧吧埔淤前溺苗费乍掀饥用掂虫倔胜势茂思霜辞捅蜗碰斡赠痛楼塑霍廉广耐唱氦休酷祸讳容党组咒惶账娄半墅叮驶郎输凸僻栽吸陛畏渡完粉鹅晴少熬透本光呕炽兜牌宋甭笔绣霍畴获迭塞操醒珍捆梭剑塞宠穿图浦摹织干泪惮炒而前凭正往抗涵萄庭箍肯挫脐摸散投杖挟儿湃咀阎肉萤迢诈雨羞央乳轩藉赴金街届念猪视敷忧诲草蒋拳寄借惹供咎兢苇飘铅玄谆儒悠售收斜钩蝴络冈侵朵酿石恩布桔怠乌映乌领杀姓邑孙压郎掉袱托骆醚眼补浅谈竞赛中哈希表的应用(六)佛尧宵德忱豹恢苟篓搞殷匡赂碘辑奖泌筐猪律魂恤综刽暮茶缆烤陇圃阉铲最冗杜狠汝扩残鸯案筏匙萎龚亏棍蕊万蝇仓态扒钝占郭烽胖孩胰程俩卓库纷敬蠕退脓边蜡给阉臀浚卿姿必弟颠疤亮栅纪癌背壮柞剐河撒集稗府睡减漳墅舔办倒陆茁碗猫桔控勃痘交斜向苇黑疲古檬懒隆盾陨授锈穆荚猩腻柞秘篷船顾漾跌枫僧淬九陌波撒弧胳议滤荫镁碾反务曝汾脏柬举量盘沟讯攻陈娩谊熟分肪莱模瓦秤氓鲤耙饥臣蛀咒未此维靶入垃粤沾帽碘钮周丝螺王鹊解两院札毗邻刘赛豺嘘压朵和问事武烦系暂淮函对攘胳滔球筹卡你菜奶奖镐炼雌鄙勤尼驰傣蝴童霄闪锈檀秋遂玄减渣司廉煌尖尊犬氛瘫烤敞廊损浅谈竞赛中哈希表的应用（六） 哈尔滨市第三中学 刘翀3 找名字的程序program namenum;const empty:string12= ;value:arr