集訓(xùn)隊(duì)作業(yè)the rotation game解題報(bào)告

1、TheionGame解問題描TheionGame解問題描8 1、2、3AH 8 個(gè)方格數(shù)字相同。 PKU2286。問題分 uk,pn,anspn,ansuk:long answer:long obj,top:long queue:array1.maxmof tt; step:array1.maxmoflong ; fa:array1.maxmof long ; sv:array1.maxmof char;data2,data:array1.24ofbyte; function pick(x:byte):byte; ;pick:=(xand3)or(xshr3) uk,pn,anspn,ansu

2、k:long answer:long obj,top:long queue:array1.maxmof tt; step:array1.maxmoflong ; fa:array1.maxmof long ; sv:array1.maxmof char;data2,data:array1.24ofbyte; function pick(x:byte):byte; ;pick:=(xand3)or(xshr3)and1) shl2)or(xshr5)and3)shlfunctionhash(x:tt):long or(x.bshl/or(x.cand3)or(x.c shr1and4)or(x.

3、cshr2and24)shl or(x.dand3)or(x.dshr1and4)or(x.dshr2and24)shl19); function(xshr6andor(x shr4 and or(xshr2and4) or (x and 8)or(xshl2andor(x shl4 and or(xshl6and64); function ro function/procedure /a:array0.6ofb:array0.6ofprocedure /a:array0.6ofb:array0.6oflong c:array0.6of long d:array0.6of long i:lon

4、g ; for i:=0 to 6 dox.a:=(data2aishli)orfor i:=0 to 6 do x.b:=(data2bi shl i) or x.b; for i:=0 to 6 do x.c:=(data2ci shl i) or x.c; for i:=0 to 6 do x.d:=(data2di shl i) or x.d; procedureshlf(varx:byte); x:=(xshl1)and$7F)or(xshr6)and1); /procedureshrt(var/x:=(xshr1)or(xand1)shlx:=(xshr1)or(xand1)shl

5、proceduresbit(varx:byte;i,y,j:byte); /ybitjxbit x:=(yshrj)and1)shli)or(xandnot(1shlfunctionwith x do casewofA:beginB:beginC:beginD:beginE:beginF:beginG:beginH:beginshrt(c);sbit(a,4,c,2);sbit(b,4,c,4);end; functionx,i:long ; ifx=0thenexit(false); fori:=2to24do proceduretried(p:long ); i:long ; fori:=1to24do if datai=pthendata2i:=1 else;/pproceduremain; hy:longproceduremain; hy:long ; forw:=AtoHdo if not visitedhy then begin iflong (y)=long (answertt) then exit;until(objtop)or(stepobj=anspn); /procedure i:long ; while i1 do/if(pnanspn)or(pn=anspn)and(comparebyte(pathuk,a