[or ] [or ]

Transcription

1 On characteristic of difficult degree to solve Nurikabe-puzzles Kingo SATO BASIC

2 [or ] [or ]

3 [or ] [or ][or ] [or ] [or ] [or ][or ] [or ] [or ]

4

5 [ ] [ ]

6

7 rem ** NuriKabe ** -- hairetu_sengen -- def fnd(x,i)=((x+i-) mod )+ dim K(,),FB(,),CFB(,),SIMA(,),FB(,) dim HK(,),HFB(,),HFB(,),HSIMA(,),KHL(,), HBL(,),HFTB() dim BL(,),MBL(,),TYL(,),TZL(,),KANO(,),NOBI(,),MNOBI(,) dim KBLT(,),SLIST(,),ZRL(,),MZRL(,),PL(,), LSU(),TJC(,) dim ZT(),ZY(),HT(),HY(),RD(),NAT(),NAY(),KRL(),KT(),KY(),DJ(),RDJ() dim R(),RN(),N(),HA(),JY(),SP(),KKRL(,),DAN(,),MOMEL(,) dim D(),MKSL(,),SRL(,),SRL(,),NHL(,) dim TEMAZOKA(,),SRMAX() -- data_yomi -- gosub *DATAYOMI -- syoki_settei -- for I= to GN+: K(I,)=-:K(I,RN+)=-:K(I,RN+)=-: next I for J= to RN: K(,J)=-:K(GN+,J)=-:K(GN+,J)=-: next J for I= to GN:for J= to RN: FB(I,J)=: next J,I for I= to : read ZT(I),ZY(I): next I data -,,,,,,,- for I= to : read HT(I),HY(I): next I data -,,,,,-, -,- for I= to : read RD(I): next I data,,, for I= to : read SP(I): next I data -,,,- for I= to : DJ(I)=I: next I for I= to : RDJ(I)=-I: next I for I= to :for J= to : read TEMAZOKA(I,J): next J,I data,,,,,,,,,,,,,,, for I= to : read SRMAX(I): next I data,,,, -- SIMA_sakusei & KABESU_keisan -- gosub *SIMASAKUSEI

8 gosub *KABEN -- first_clue -- gosub *FIRSTCLUE: KBLTN= -- FB_settei -- gosub *FBSETEI -- start -- LEVEL= FBN=: FMUSY=: HIRITUMX= TOJISY=: tokusyu_syori *KAISTART LEVELUP=: FMU= while LEVELUP= LEVELUP=: GIHOSYORI= while GIHOSYORI= GIHOSYORI=: ZOKA= - kihon_syori - while ZOKA= ZOKA= kihonteki_syuhou gosub *SIKIRI if FBN> then gosub *SIKIRI gosub *ENTYO if FMU= then *MUSYORI if ZOKA= then gosub *SKCROSS if ZOKA= then gosub *SIMAHASEI wend level_ if LEVEL>= then if ZOKA= then gosub *NANAMEHUTA if ZOKA= then gosub *KABETUNAGI if ZOKA= then gosub *SIMAHASEI if ZOKA= then SRSUMAX=:gosub *SIMANOBI if ZOKA= then KABEZKTY=:SRSUMAX=:gosub *KABENOBI if (ZOKA=)and(TOJISY=)and(FMUSY=) then SPMAX=:gosub *TOJISIMA level_ if LEVEL>= then if ZOKA= then gosub *NANAMEHUTA if ZOKA= then gosub *NANAMENOBI if ZOKA= then gosub *NOTKABEX if ZOKA= then gosub *SUMISYORI if ZOKA= then gosub *HENSYORI if ZOKA= then gosub *TIDORI if ZOKA= then SRSUMAX=:gosub *SIMANOBI if ZOKA= then KABEZKTY=:SRSUMAX=:gosub *KABENOBI if (ZOKA=)and(FBN>) then FBSYTY=:gosub *FBSYORI if (ZOKA=)and(TOJISY=)and(FMUSY=) then SPMAX=:gosub *TOJISIMA

9 level_ if LEVEL>= then if ZOKA= then SRSUMAX=:gosub *SIMANOBI if ZOKA= then KABEZKTY=:SRSUMAX=:gosub *KABENOBI if ZOKA= then gosub *HANARESIMA if ZOKA= then gosub *HANAREKABE if ZOKA= then gosub *AKITOJI if (ZOKA=)and(FBN>) then FBSYTY=:gosub *FBSYORI if (ZOKA=)and(TOJISY=)and(FMUSY=) then SPMAX=:gosub *TOJISIMA level_ if LEVEL= then if ZOKA= then SRSUMAX=:gosub *SIMANOBI if ZOKA= then gosub *HEIKONOBI if ZOKA= then gosub *SYOZOKUSIMA syori_tudukeru? if ZOKA= then GIHOSYORI= wend kansei_hantei gosub *KANSEICH if ((FMU=)and(ZEROSU=))or((FMUSY=)and(FMU=)) then *KANSEI musyo_hantei if FMUSY= then gosub *KOHOLIST MUSYOHIRITU=KHN/(GN*RN)* max-hiritu_keisan if HIRITUMX<MUSYOHIRITU then HIRITUMX=MUSYOHIRITU mujyun_syori *MUSYORI if (FMUSY=)and(FMU=) then *KANSEI gosub *MUJYUNSYORI if FMSTOP= then goto *KAISTART else FMSTOP= sokusyu_syori if TOJISY= then TOJISY=:FMU=: goto *TJMODOSI level_up *LEVELUP if LEVEL< then LEVEL=LEVEL+: LEVELUP= wend *KANSEI level_keisan if GN= then OKISA= if GN= then OKISA=

10 if GN= then OKISA= if GN= then OKISA= N()=: for I= to : N(I)=*I+*(LEVEL-): next I for K= to if HIRITUMX<N(K) then TEMAZOKA=TEMAZOKA(OKISA,K): exit for next K LEVEL=LEVEL+TEMAZOKA: if LEVEL> then LEVEL= hyoji if GN< then LX= else LX= locate LX, if FZERO= then print "KANSEI!!!";" LEVEL=";LEVEL else print "TOKENAI!!!" end : : Sub Rutin : *DATAYOMI FILE$="a:nkprob.dat" open FILE$ for input as # input #,GN,RN for T= to GN: for Y= to RN input #,K(T,Y) *SIMASAKUSEI SIMASU= for T= to GN:for Y= to RN if K(T,Y)> then SIMASU=SIMASU+:SIMA(SIMASU,)=K(T,Y) sort for I= to SIMASU-:for J=I+ to SIMASU if SIMA(I,)<SIMA(J,) then swap SIMA(I,),SIMA(J,) next J,I *KABEN HIKU= for T= to GN:for Y= to RN HIKU=HIKU+K(T,Y) KBN=GN*RN-HIKU *FIRSTCLUE _mawari for T= to GN:for Y= to RN if K(T,Y)= then for D= to

11 NT=T+ZT(D):NY=Y+ZY(D) if K(NT,NY)= then K(NT,NY)=- next D for T= to GN:for Y= to RN if K(T,Y)> then hasu for DD= to if K(T+HT(DD),Y+HY(DD))> then for D=DD to DD+: K(T+ZT(D),Y+ZY(D))=-: next D next DD _tobi_yoko for D= to NT=T+ZT(D):NY=Y+ZY(D) if K(NT+ZT(D),NY+ZY(D))> then K(NT,NY)=- next D *FBSETEI for T= to GN: for Y= to RN if K(T,Y)= then FB(T,Y)=- if (K(T,Y)>)or(K(T,Y)=-) then FB(T,Y)= *SIKIRI for Q= to KBLTN SKT=KBLT(Q,):SKY=KBLT(Q,):SKSU=KBLT(Q,) for D= to PT=SKT+ZT(D):PY=SKY+ZY(D) if K(PT,PY)= then gosub *FSH henka if (SKSU<)and((FSH=)or(FSH=)or(FSH=)) then gosub *SIKIHEN if ((SKSU<)and((FSH=)or(FSH=)or(FSH=)))or((SKSU=)and ((FSH=)or(FSH=)or(FSH=))) then if SKSU< then SSU=SKSU else SSU=GSU IT=PT:IY=PY:gosub *BLOCK if BN>SSU then K(PT,PY)=-:FB(PT,PY)=: ZOKA= next D next Q

12 KBLTN= *SIKIRI for TB= to FBN T=FB(TB,):Y=FB(TB,) if (FB(T,Y)=)and(K(T,Y)=) then SKSU=FB(TB,):TBMT=FB(TB,):TBMY=FB(TB,) for D= to PT=T+ZT(D):PY=Y+ZY(D) if K(PT,PY)= then SKT=T:SKY=Y:gosub *FSH henka if (FSH=)or(FSH=)or(FSH=) then SKT=TBMT:SKY=TBMY:gosub *SIKIHEN next D next TB *FSH -- PAR. SKT,SKY -- TRYSU=K(SKT+HT(D),SKY+HY(D)):gosub *SUHAN FSH=SUHAN:if FSH= then GSU=TRYSU:GT=SKT+HT(D):GY=SKY+HY(D) TRYSU=K(SKT+HT(fnD(D,)),SKY+HY(fnD(D,))):gosub *SUHAN FSH=SUHAN:if FSH= then GSU=TRYSU:GT=SKT+HT(fnD(D,)):GY=SKY+HY(fnD(D,)) TRYSU=K(PT+ZT(D),PY+ZY(D)):gosub *SUHAN FSH=SUHAN:if FSH= then GSU=TRYSU:GT=PT+ZT(D):GY=PY+ZY(D) *SUHAN -- par. TRYSU -- if TRYSU<= then SUHAN=: if TRYSU< then SUHAN= else SUHAN= *SIKIHEN -- par. SKT,SKY,SKSU -- if SKSU<>GSU then K(PT,PY)=-:FB(PT,PY)=: ZOKA= else IT=SKT:IY=SKY:SSU=SKSU:gosub *BLOCK FHUKU= for W= to BN if (GT=BL(W,))and(GY=BL(W,)) then FHUKU=: exit for next W if FHUKU= then K(PT,PY)=-:FB(PT,PY)=: ZOKA=

13 *ENTYO for T= to GN: for Y= to RN if FB(T,Y)= then SU=K(T,Y) IT=T:IY=Y:SSU=SU:MAINTY=:gosub *BLOCK gosub *BORDER if SU< then HANSU=KBN else HANSU=SU if BN>HANSU then FMU=: if BN=HANSU then if SU> then FB(T,Y)=- for Q= to SRSU K(TYL(Q,),TYL(Q,))=-:FB(TYL(Q,),TYL(Q,))=:ZOKA= next Q for W= to SIMASU if (SIMA(W,)=)and(SIMA(W,)=SU) then SIMA(W,)=: exit for next W else if SRSU= then NWT=TYL(,):NWY=TYL(,) K(NWT,NWY)=SU:FB(NWT,NWY)=-: ZOKA= if SU> then ST=NWT:SY=NWY:FBTI=:gosub *SUSET *SUSET -- par. ST,SY,SU, (FBTI,TB) -- sesyoku MT=ST:MY=SY:gosub *MAWARISU if (YSU>)or(P>) then if (YSU>)or((SU<)and(P>)) then case_a if SU< then SSU=SU else SSU=YTI

14 IT=ST:IY=SY:gosub *BLOCK else IT=ST:IY=SY:SSU=:gosub *BLOCK FB_case if FBTI= then FBSY= else gosub *TBMOTOME if FBSY= then KTB=TB:MOKUT=ST:MOKUY=SY:gosub *FBKAE: SETSU=SSU:gosub *CHGESU FB(ST,SY)= else sikiri_kabe( koritu!! ) if FBTI= then KBLTN=:KBLT(,)=ST:KBLT(,)=SY:KBLT(,)=SU *TBMOTOME FBSY= for W= to P if FB(PL(W,),PL(W,))= then FBSY= TBT=PL(W,):TBY=PL(W,):gosub *TBSU exit for next W *TBSU -- par. TBT,TBY -- for TB= to FBN if (TBT=FB(TB,))and(TBY=FB(TB,)) then next TB *FBKAE -- par. KTB, MOKUT,MOKUY (FB= case) -- hikae_toru HBN=BN: for W= to BN:for W= to : HBL(W,W)=BL(W,W): next W,W for W= to HBN BT=HBL(W,):BY=HBL(W,) duble_check FDBL= for W= to FBN

15 if (BT=FB(W,))and(BY=FB(W,)) then FDBL= next W if FDBL= then FB(BT,BY)=: FBN=FBN+ FB(FBN,)=FB(KTB,):FB(FBN,)=BT:FB(FBN,)=BY for II= to : FB(FBN,II)=FB(KTB,II): next II FB(#,)=_case if FB(KTB,)= then IT=FB(KTB,):IY=FB(KTB,):SSU=FB(KTB,):gosub *BLOCK gosub *BORDER nobisyori MBN=BN: for W= to BN:for W= to : MBL(W,W)=BL(W,W): next W,W for Q= to SRSU NOBI(Q,)=TYL(Q,):NOBI(Q,)=TYL(Q,):NOBI(Q,)=MBN+ next Q karioki SYT=FB(FBN,):SYY=FB(FBN,) HFBN= for I= to FBN if (SYT=FB(I,))and(SYY=FB(I,)) then HFBN=HFBN+:HFTB(HFBN)=I next I for I= to HFBN: K(FB(HFTB(I),),FB(HFTB(I),))= :next I NOSU=SRSU:SU=FB(KTB,): NOBITY=:gosub *NOBISYORI modosi for I= to HFBN: K(FB(HFTB(I),),FB(HFTB(I),))= :next I FB(KTB,)=KYORI next W *CHGESU -- par. SETSU -- for W= to BN BT=BL(W,):BY=BL(W,) K(BT,BY)=SETSU:FB(BT,BY)=-: ZOKA= KBLT(W,)=BT:KBLT(W,)=BY:KBLT(W,)=SETSU next W KBLTN=BN *SKCROSS for T= to GN:for Y= to RN if K(T,Y)= then MT=T:MY=Y:gosub *MAWARISU case_a if NSU= then K(T,Y)=- :FB(T,Y)=-: ZOKA=

16 case_b if PWSU= then K(T,Y)=:FB(T,Y)=: ZOKA= ST=T:SY=Y:SU=:FBTI=:gosub *SUSET *MAWARISU -- par. MT,MY -- YSU=:PSU=:ZSU=:NSU=:P=:PWSU=:KBSU= for D= to NMT=MT+ZT(D):NMY=MY+ZY(D):KNMS=K(NMT,NMY) if (<KNMS)and(KNMS<) then YSU=YSU+:YTI=KNMS: YRT=NMT:YRY=NMY if KNMS> then PSU=PSU+ if KNMS= then ZSU=ZSU+: ZRT=NMT:ZRY=NMY:ZRL(ZSU,)=NMT:ZRL(ZSU,)=NMY if KNMS=- then KBSU=KBSU+ if KNMS< then NSU=NSU+ if KNMS= then P=P+:PT=NMT:PY=NMY:PL(P,)=NMT:PL(P,)=NMY if (KNMS>)or(KNMS=-) then PWSU=PWSU+ next D *SIMAHASEI for T= to GN-:for Y= to RN- NSU=:ZSU= for I= to :for J= to MT=T+I:MY=Y+J if K(MT,MY)=- then NSU=NSU+ if K(MT,MY)= then ZSU=ZSU+:ZSUT=MT:ZSUY=MY next J,I _hassei if (NSU=)and(ZSU=) then K(ZSUT,ZSUY)=:FB(ZSUT,ZSUY)=: ZOKA= ST=ZSUT:SY=ZSUY:SU=:FBTI=: gosub *SUSET *BLOCK -- par. IT,IY,SSU, MAINTY -- TUNATY=:MXMS=: gosub *SUTUNAGI *BLOCK

17 -- par. IT,IY,SSU, MAINTY -- TUNATY=:MXMS=: gosub *SUTUNAGI *SUTUNAGI - par. IT,IY,SSU,TUNATY,MAINTY,MXMS - BN=:BL(,)=IT:BL(,)=IY R= : FSU= while (R<=BN)and(BN<=MXMS) BT=BL(R,):BY=BL(R,) for B= to NT=BT+ZT(B):NY=BY+ZY(B): KSU=K(NT,NY) if (NT<>IT)or(NY<>IY) then type_hantei select case TUNATY case if KSU=SSU then FGO= else FGO= case if (KSU=SSU)or(KSU=) then FGO= else FGO= case if (KSU=SSU)or(KSU=) then FGO= else FGO= case if (KSU=SSU)or(KSU=)or(KSU=) then FGO= else FGO= case if (<KSU)and(KSU<)and((KSU<>SSU)or((KSU=SSU)and(FB(NT,NY)=))) then FSU=:goto *TUNAGIEND if (KSU=SSU)or(KSU=)or(KSU=) then FGO= else FGO= end select tuzukeru? if FGO= then zoka_check FBZ= for B= to BN if (NT=BL(B,))and(NY=BL(B,)) then FBZ=: exit for next B if FBZ= then BN=BN+:BL(BN,)=NT:BL(BN,)=NY if MAINTY= then FB(NT,NY)=- next B R=R+ wend *TUNAGIEND MAINTY=

18 *BORDER -- par. BN, BL -- SRSU= for W= to BN BORT=BL(W,):BORY=BL(W,) for I= to NT=BORT+ZT(I):NY=BORY+ZY(I) if K(NT,NY)= then double_check FDB= for DCH= to SRSU if (NT=TYL(DCH,))and(NY=TYL(DCH,)) then FDB=: exit for next DCH tuika & kiroku if FDB= then SRSU=SRSU+: TYL(SRSU,)=NT:TYL(SRSU,)=NY next I next W *NANAMEHUTA for T= to GN: for Y= to RN if (FB(T,Y)=)and(<K(T,Y)) then SU=K(T,Y) gosub *BLTYLKIROKU if MSRSU= then T=TZL(,):Y=TZL(,): T=TZL(,):Y=TZL(,) gosub *NANAMEITI if FAME= then VSU=K(VT,VY) case_a( huta_set ) if VSU= then FHUTA= if (SU<)and(MBN=SU-) then FHUTA= else gosub *NNHUTAHAN huta_set if FHUTA= then K(VT,VY)=-:FB(VT,VY)=: ZOKA= VSU>_case if ((VSU=)and(SU<))or((<VSU)and(VSU<)and(SU=)) then

19 gosub *VSUPLS if ZOKA= then *BLTYLKIROKU IT=T:IY=Y:SSU=SU:gosub *BLOCK gosub *BORDER for W= to BN: for W= to : MBL(W,W)=BL(W,W): next W,W for Q= to SRSU:for Q= to : TZL(Q,Q)=TYL(Q,Q): next Q,Q MBN=BN:MSRSU=SRSU *VSUPLS if SU< then HANSU=SU else HANSU=VSU case_b for DV= to WVT=VT+ZT(DV):WVY=VY+ZY(DV) if ((T<>WVT)or(Y<>WVY))and((T<>WVT)or(Y<>WVY))and(K(WVT,WVY)=) then IT=WVT:IY=WVY:SSU=VSU:gosub *BLOCK if (MBN+BN+)>HANSU then K(WVT,WVY)=-:FB(WVT,WVY)=: ZOKA= next DV case_c( kabe_sakusei ) IT=VT:IY=VY:SSU=VSU:gosub *BLOCK if (MBN+BN+)=HANSU then gosub *BORDER case_ for W= to SRSU BT=TYL(W,):BY=TYL(W,) if ((BT<>T)or(BY<>Y))and((BT<>T)or(BY<>Y)) then if K(BT,BY)= then K(BT,BY)=-:FB(BT,BY)=: ZOKA= next W case_ if MSRSU> then for Q= to MSRSU if (Q<>I)and(Q<>J) then K(TZL(Q,),TZL(Q,))=-:FB(TZL(Q,),TZL(Q,))=:ZOKA= next Q

20 *NANAMEITI gosub *NANAME if FAME= then for I= to NAT=NAT(I):NAY=NAY(I) FITI= for W= to MBN if (NAT=MBL(W,))and(NAY=MBL(W,)) then FITI=:exit for next W if FITI= then VT=NAT(I):VY=NAY(I): next I FAME= *NANAME -- par. T,Y, T,Y -- FAME= if (abs(t-t)=)and(abs(y-y)=) then FAME= NAT()=T:NAY()=Y: NAT()=T:NAY()=Y *NNHUTAHAN -- par. FHUTA,SU, VT,VY,MBN -- MT=VT:MY=VY:gosub *MAWARISU if (SU<)and(YSU>) then FHUTA=: if P> then IT=VT:IY=VY:SSU=:gosub *BLOCK GBN=BN gosub *TBMOTOME if FBSY= then GTT=FB(TB,):GTY=FB(TB,) if SU< then case_ if ((FBSY=)and(GTT<>T)and(GTY<>Y))or((GBN+MBN+)>SU) then FHUTA= else case_ if FBSY= then SSU=FB(TB,) if FB(TB,)> then IT=GTT:IY=GTY:gosub *BLOCK NRETU=BN+GBN+MBN+ else # = NRETU=FB(TB,)+MBN+

21 if NRETU>SSU then FHUTA= else P= if YSU> then SU= IT=VT:IY=VY:SSU=YTI:gosub *BLOCK if (BN+MBN+)>YTI then FHUTA= *NNHUTAHAN -- par. FHUTA,SU, VT,VY,MBN,NRETU, GTB -- MT=VT:MY=VY:gosub *MAWARISU if YSU> then if YTI<>SU then FHUTA=: FHUKU= for I= to MBN if (YRT=MBL(I,))and(YRY=MBL(I,)) then FHUKU=: exit for next I if FHUKU= then FHUTA= else YSU= if P> then gosub *TBMOTOME if FBSY= then IT=VT:IY=VY:SSU=:gosub *BLOCK if ((FBSY=)and((BN+HANRETU+)>SU))or((FBSY=)and(TB<>GTB)) then FHUTA= *NANAMEHUTA for T= to GN: for Y= to RN if (FB(T,Y)=)and(<K(T,Y)) then SU=K(T,Y) gosub *BLTYLKIROKU if ((MSRSU=)or(MSRSU=))and(MBN<SU-(MSRSU-)) then HUTATY=:KNSRSU=MSRSU:gosub *NNHUTAMAIN if ZOKA= then *NNHUTAMAIN -- par. HUTATY,MSRSU,KNSRSU -- for I= to MSRSU-:for J=I+ to MSRSU T=TZL(I,):Y=TZL(I,): T=TZL(J,):Y=TZL(J,)

22 gosub *NANAMEITI if FAME= then -- case_ -- if (K(VT,VY)=)and(SU<) then MT=VT:MY=VY:gosub *MAWARISU if YSU> then K(VT,VY)= kari_oki gosub *KANOSUSYORI K(VT,VY)= hantei modosi if FBAD= then K(VT,VY)=-:FB(VT,VY)=: ZOKA= -- case_ -- kanosu_syori gosub *KANOSUSYORI hantei if FBAD= then VSU=K(VT,VY) case_a if VSU= then if HUTATY= then FHUTA=:gosub *NNHUTAHAN if HUTATY= then FHUTA=:gosub *NNHUTAHAN hantei if FHUTA= then K(VT,VY)=-:FB(VT,VY)=: ZOKA= VSU>_case if ((VSU=)and(SU<))or((<VSU)and(VSU<)and(SU=)) then gosub *VSUPLS if ZOKA= then next J,I *KANOSUSYORI K(T,Y)=-:K(T,Y)=- kari_oki KANOTY=:gosub *NOBIJYUNBI NOBITY=:gosub *NOBISYORI K(T,Y)=:K(T,Y)= modosi *NOBIJYUNBI

23 -- par.kanoty,knsrsu,tzl, (T,Y,T,Y, JYOGAI) -- KANO(-NOSU) NOSU=:KYORI=MBN+ select case KANOTY case for Q= to KNSRSU if ((T<>TZL(Q,))or(Y<>TZL(Q,)))and((T<>TZL(Q,))or(Y<>TZL(Q,))) then NOSU=NOSU+:NOBI(NOSU,)=TZL(Q,):NOBI(NOSU,)=TZL(Q,):NOBI(NOSU,)=KYORI next Q case for Q= to KNSRSU if Q<>JYOGAI then NOSU=NOSU+:NOBI(NOSU,)=TZL(Q,):NOBI(NOSU,)= TZL(Q,):NOBI(NOSU,)=KYORI next Q end select *KABETUNAGI for T= to GN: for Y= to RN if K(T,Y)= then MT=T:MY=Y:gosub *MAWARISU GZRT=ZRT:GZRY=ZRY case_a if (NSU=)and(ZSU=) then MBN=:MBL(,)=T:MBL(,)=Y T=ZRL(,):Y=ZRL(,): T=ZRL(,):Y=ZRL(,) gosub *NANAMEITI if FAME= then VSU=K(VT,VY) if (<VSU)and(VSU<) then IT=VT:IY=VY:SSU=VSU:gosub *BLOCK if BN=VSU- then K(T,Y)=-:FB(T,Y)=-: ZOKA= case_b if (NSU=)and(ZSU=) then MT=GZRT:MY=GZRY:gosub *MAWARISU if YSU> then IT=GZRT:IY=GZRY:SSU=YTI:gosub *BLOCK if (BN+)>YTI then K(T,Y)=-:FB(T,Y)=-: ZOKA=

24 *NANAMENOBI for T= to GN: for Y= to RN if (FB(T,Y)=)and(<K(T,Y)) then SU=K(T,Y) gosub *BLTYLKIROKU if (MSRSU<=)and(MBN<SU-MSRSU) then for I= to MSRSU-:for J=I+ to MSRSU T=TZL(I,):Y=TZL(I,): T=TZL(J,):Y=TZL(J,) gosub *NANAMEITI if (FAME=)and(K(VT,VY)=) then K(VT,VY)=- kanosu_syori KASU=MBN kari_oki KANOTY=:JYOGAI=:KNSRSU=MSRSU: gosub *NOBIJYUNBI NOBITY=:gosub *NOBISYORI K(VT,VY)= hantei modosi if FBAD= then K(VT,VY)=: ZOKA= if SU< then FB(VT,VY)=: FBN=FBN+ FB(FBN,)=SU:FB(FBN,)=VT:FB(FBN,)=VY FB(FBN,)=T :FB(FBN,)=Y FB(FBN,)=T:FB(FBN,)=Y:FB(FBN,)=T:FB(FBN,)=Y FBTI=:TB=FBN else FB(VT,VY)=: FBTI= ST=VT:SY=VY:SU=:gosub *SUSET next J,I *FBSYORI for GTB= to FBN T=FB(GTB,):Y=FB(GTB,)

25 if (FB(T,Y)=)and(K(T,Y)=) then SU=:gosub *BLTYLKIROKU MNKYORI_keisan if FB(GTB,)= then MNKYORI= for W= to MBN TBT=MBL(W,):TBY=MBL(W,):gosub *TBSU if MNKYORI>FB(TB,) then MNKYORI=FB(TB,) next W case_a( huta ) SU=FB(GTB,) if (MSRSU<=)and(MBN<SU-(MSRSU-)) then IT=FB(GTB,):IY=FB(GTB,):SSU=SU:gosub *BLOCK gosub *BORDER tuika T=FB(GTB,):Y=FB(GTB,) if T> then HANRETU_keisan HANRETU=MBN+BN+ KNSRSU=MSRSU T=FB(GTB,):Y=FB(GTB,) for W= to SRSU if ((T<>TYL(W,))or(Y<>TYL(W,)))and((T<>TYL(W,))or(Y<>TYL(W,))) then KNSRSU=KNSRSU+:TZL(KNSRSU,)=TYL(W,):TZL(KNSRSU,)=TYL(W,) next W else T= HANRETU_keisan HANRETU=MNKYORI+(MBN-) gosub *NEWTZL for W= to BN:for W= to : MBL(MBN+W,W)=BL(W,W): next W,W MBN=MBN+BN nanamehuta_syori HUTATY=:gosub *NNHUTAMAIN if ZOKA= then case_b( saegiru ) T=FB(GTB,):Y=FB(GTB,) SU=:gosub *BLTYLKIROKU SU=FB(GTB,) if MBN<SU-(MSRSU-) then IT=FB(GTB,):IY=FB(GTB,):SSU=SU:gosub *BLOCK gosub *BORDER new-tzl_sakusei

26 T=FB(GTB,):Y=FB(GTB,):T=FB(GTB,):Y=FB(GTB,) if T> then MSRSU_jyogai NOKOSU= for Q= to MSRSU TZT=TZL(Q,):TZY=TZL(Q,) if ((T<>TZT)or(Y<>TZY))and((T<>TZT)or(Y<>TZY)) then NOKOSU=NOKOSU+:TZL(NOKOSU,)=TZT:TZL(NOKOSU,)=TZY next Q MSRSU=NOKOSU tuika for Q= to SRSU:for Q= to : TZL(MSRSU+Q,Q)=TYL(Q,Q): next Q,Q KNSRSU=MSRSU+SRSU else T= gosub *NEWTZL for W= to BN:for W= to : MBL(MBN+W,W)=BL(W,W): next W,W MBN=MBN+BN saegiru_syori if MSRSU<= then saegiru_syori TB=GTB:gosub *SAEGIRUMAIN if ZOKA= then case_c( hanaresu ) if FBSYTY= then T=FB(GTB,):Y=FB(GTB,) SU=:gosub *BLTYLKIROKU SU=FB(GTB,) if MBN<= then IT=FB(GTB,):IY=FB(GTB,):SSU=SU:gosub *BLOCK gosub *BORDER new-tzl_sakusei T=FB(GTB,):Y=FB(GTB,):T=FB(GTB,):Y=FB(GTB,) if T> then MSRSU_jyogai NOKOSU= for Q= to MSRSU TZT=TZL(Q,):TZY=TZL(Q,) if ((T<>TZT)or(Y<>TZY))and((T<>TZT)or(Y<>TZY)) then NOKOSU=NOKOSU+:TZL(NOKOSU,)=TZT:TZL(NOKOSU,)=TZY next Q MSRSU=NOKOSU tuika for Q= to SRSU:for Q= to : TZL(MSRSU+Q,Q)=TYL(Q,Q): next Q,Q

27 KNSRSU=MSRSU+SRSU else T= for W= to BN:for W= to : MBL(MBN+W,W)=BL(W,W): next W,W MBN=MBN+BN hanaresu_syori gosub *HANAREMAIN next GTB *NEWTZL MSRSU_jyogai NOKOSU= for Q= to MSRSU TZT=TZL(Q,):TZY=TZL(Q,) gosub *KYORIKEI if MNK>=MNKYORI then NOKOSU=NOKOSU+:TZL(NOKOSU,)=TZT:TZL(NOKOSU,)=TZY next Q MSRSU=NOKOSU tuika KNSRSU=MSRSU for Q= to SRSU TYT=TYL(Q,):TYY=TYL(Q,) FHUKU= for Q= to MSRSU if (TYT=TZL(Q,))and(TYY=TZL(Q,)) then FHUKU=: exit for next Q if FHUKU= then KNSRSU=KNSRSU+:TZL(KNSRSU,)=TYT:TZL(KNSRSU,)=TYY next Q *KYORIKEI MNK= for KK= to SRSU TYT=TYL(KK,):TYY=TYL(KK,) KA=abs(TZT-TYT)+abs(TZY-TYY) if KA<MNK then MNK=KA next KK MNK=MNK+BN+

28 *SIMAHASEI for T= to GN:for Y= to RN if K(T,Y)= then MT=T:MY=Y: gosub *MAWARISU if (ZSU=)and(NSU=) then FHNSU= for D= to if K(T+HT(D),Y+HY(D))=- then FHNSU= next D hassei if FHNSU= then K(ZRT,ZRY)=:FB(ZRT,ZRY)=: ZOKA= ST=ZRT:SY=ZRY:SU=:FBTI=: gosub *SUSET *SIMANOBI for T= to GN: for Y= to RN if (FB(T,Y)=)and(K(T,Y)>) then SU=K(T,Y) gosub *BLTYLKIROKU if (MSRSU>=SRSUMAX-)and(MSRSU<=SRSUMAX)and(MBN<=SU-MSRSU) then KNSRSU=MSRSU:gosub *SAEGIRUMAIN if ZOKA= then *SAEGIRUMAIN -- par. MSRSU,KNSRSU, (FB=..TB) -- for I= to MSRSU CHT=TZL(I,):CHY=TZL(I,) K(CHT,CHY)=- kari_oki kanosu_syori KANOTY=:JYOGAI=I:gosub *NOBIJYUNBI NOBITY=:gosub *NOBISYORI K(CHT,CHY)= hantei modosi if FBAD= then if FB(T,Y)= then K(CHT,CHY)=SU:FB(CHT,CHY)=-: ZOKA= FBTI=

29 else K(CHT,CHY)=: ZOKA= FBTI=:SU= ST=CHT:SY=CHY:gosub *SUSET next I *NOBISYORI -- par. MBN,NOSU,SU,NOBITY, (NTY=..MOKUT,MOKUY) -- FBAD= gosub *MAX if SU< then NRETU=SU else NRETU=MAX NSYO=: HANNOBI=NOSU+MBN:HANKYORI=MBN+ while (NSYO<=NOSU)and(HANNOBI<=NRETU) NBT=NOBI(NSYO,):NBY=NOBI(NSYO,):NKYO=NOBI(NSYO,) if HANKYORI<NKYO then HANKYORI=NKYO nobi-koho_sagasi for Q= to ST=NBT+ZT(Q):SY=NBY+ZY(Q) if (<=ST)and(ST<=GN)and(<=SY)and(SY<=RN) then koho if K(ST,SY)= then nobity=_case if (NOBITY=)and(MOKUT=ST)and(MOKUY=SY) then KYORI=NKYO+: new? FHUKUMU= for N= to NOSU if (ST=NOBI(N,))and(SY=NOBI(N,)) then FHUKUMU=:exit for next N if FHUKUMU= then gosub *SESYOHAN if FSESYOHAN= then NOSU=NOSU+ NOBI(NOSU,)=ST:NOBI(NOSU,)=SY:NOBI(NOSU,)=NKYO+ stop? if (K(ST,SY)>)and(NOBITY<>) then FHUKU= for W= to MBN if (ST=MBL(W,))and(SY=MBL(W,)) then FHUKU=:exit for next W if FHUKU= then stop!!

30 next Q if (NOBITY=)or(NOBITY=) then HANNOBI=NOSU+MBN if (NOBITY=)or(NOBITY=) then HANNOBI=HANKYORI NSYO=NSYO+ wend if (NOSU+MBN<NRETU)or((NOBITY=)and(HANKYORI>NRETU)) then FBAD= *MAX for U= to SIMASU if SIMA(U,)= then MAX=SIMA(U,): exit for next U *SESYOHAN -- par. ST,SY,SU(T,Y), KASU -- FSESYOHAN= MT=ST:MY=SY:gosub *MAWARISU hantei if YSU> then if SU< then FSESYOHAN= else SU= IT=ST:IY=SY:SSU=YTI:gosub *BLOCK if (NKYO+BN)>YTI then FSESYOHAN= else YSU= if P> then gosub *TBMOTOME if FBSY= then if SU< then IT=ST:IY=SY:SSU=:gosub *BLOCK if (NKYO+BN)>SU then FSESYOHAN= else FBSY= FBSU=FB(TB,) if SU< then if (FBSU<>SU)or((FBSU=SU)and((T<>FB(TB,))or(Y<>FB(TB,)))) then FSESYOHAN= else SU= tuika-nagasa if FB(TB,)> then

31 IT=FB(TB,):IY=FB(TB,):SSU=FBSU:MAINTY=:gosub *BLOCK TUIKANG=BN+ else # = IT=TBT:IY=TBY:SSU=:gosub *BLOCK TUIKANG=FB(TB,)-BN IT=ST:IY=SY:SSU=:gosub *BLOCK if (TUIKANG+BN)>FBSU then FSESYOHAN= *KABENOBI -- par. KABEZKTY,SRSUMAX -- for T= to GN: for Y= to RN if (FB(T,Y)=)and(K(T,Y)=-) then IT=T:IY=Y:SSU=-:gosub *BLOCK gosub *BORDER HNAGASA_kettei if (KABEZKTY=)and(BN+<KBN) then HNAGASA=BN+ else HNAGASA=KBN if (SRSU<=SRSUMAX)and(BN<HNAGASA-(SRSU-)) then for Q= to SRSU NWT=TYL(Q,):NWY=TYL(Q,) K(NWT,NWY)= kari_oki IT=T:IY=Y:SSU=-:TUNATY=:MXMS=HNAGASA:gosub *SUTUNAGI K(NWT,NWY)= modosi hantei if BN<HNAGASA then K(NWT,NWY)=-:FB(NWT,NWY)=-: ZOKA= next Q *NOTKABEX for T= to GN: for Y= to RN for D= to D=... yoko, D=... tate PT=T+ZT(D):PY=Y+ZY(D) if (K(T,Y)=-)and(K(PT,PY)=-) then for HD=D- to D+ step GT=T+*ZT(HD):GY=Y+*ZY(HD): GPT=PT+*ZT(HD):GPY=PY+*ZY(HD)

32 if (<=GT)and(GT<=GN)and(<=GY)and(GY<=RN) then if (K(T+ZT(HD),Y+ZY(HD))=)and(K(PT+ZT(HD),PY+ZY(HD))=) then gosub *NOTHAN if ZOKA= then next HD next D *NOTHAN FHAN= if (<K(GT,GY))and(K(GT,GY)<)and(K(GPT,GPY)=) then FHAN=:IT=GPT:IY=GPY:SSU=K(GT,GY) if (K(GT,GY)=)and(<K(GPT,GPY))and(K(GPT,GPY)<) then FHAN=:IT=GT:IY=GY:SSU=K(GPT,GPY) hantei if FHAN= then gosub *BLOCK if BN=SSU then K(IT,IY)=-:FB(IT,IY)=: ZOKA= *SUMISYORI for I= to if I<= then T= else T=GN if (I=)or(I=) then Y= else Y=RN if K(T,Y)= then case_a MT=T:MY=Y:gosub *MAWARISU if (YSU=)and(ZSU=) then IT=YRT:IY=YRY:SSU=YTI:gosub *BLOCK if BN=YTI- then K(ZRT,ZRY)=-:FB(ZRT,ZRY)=: ZOKA= case_b for B= to TP=T+B*ZT(fnD(I,)):YP=Y+B*ZY(fnD(I,)) TQ=T+(-B)*ZT(fnD(I,)):YQ=Y+(-B)*ZY(fnD(I,)) GT=T+ZT(fnD(I,-B)):GY=Y+ZY(fnD(I,-B)) PSU=K(TP,YP):QSU=K(TQ,YQ) if (PSU>)and(QSU>)and(K(GT,GY)=) then TCASE=

33 if (PSU<)and(QSU<) then TCASE= if ((PSU<)and(QSU=))or((PSU=)and(QSU<)) then kari_oki K(GT,GY)= if PSU< then SSU=PSU else SSU=QSU IT=T:IY=Y:gosub *BLOCK K(GT,GY)= modosi if BN>SSU then TCASE= hantei if TCASE= then K(GT,GY)=-:FB(GT,GY)=: ZOKA= next B case_c TP=T+*ZT(fnD(I,)):YP=Y+*ZY(fnD(I,)) TQ=T+*ZT(fnD(I,)):YQ=Y+*ZY(fnD(I,)) if (<K(TP,YP))and(K(TP,YP)<)and(<K(TQ,YQ))and(K(TQ,YQ)<) then GT=T+HT(fnD(I,)):GY=Y+HY(fnD(I,)) if K(GT,GY)= then K(GT,GY)=-:FB(GT,GY)=: ZOKA= next I *HENSYORI for HEN= to if (HEN mod )= then HTY=:HLAST=GN- else HTY=:HLAST=RN- T,Y_kettei if HTY= then if HEN= then Y= else Y=RN else HTY= if HEN= then T= else T=GN for H= to HLAST if HTY= then T=H else Y=H if K(T,Y)= then MT=T:MY=Y:gosub *MAWARISU if (YSU=)and(P=)and(ZSU=) then IT=T:IY=Y:SSU=YTI:gosub *BLOCK MBN=BN IT=ZRT:IY=ZRY:SSU=:gosub *BLOCK if (MBN+BN)>YTI then

34 K(ZRT,ZRY)=-:FB(ZRT,ZRY)=: ZOKA= next H next HEN *TIDORI for ZT= to GN- for TDRTY= to if TDRTY= then TYSTR=:TYEND=RN- else TYSTR=:TYEND=RN for ZY=TYSTR to TYEND TP=ZT+:TM=ZT+ if TDRTY= then YP=ZY+:YM=ZY+ else YP=ZY-:YM=ZY- TRYSU=K(ZT,ZY):gosub *SUHAN: SH=SUHAN TRYSU=K(TP,YP):gosub *SUHAN: SH=SUHAN TIDORI= if (SH=)and(SH=) then TIDORI= if (SH=)and(SH=) then TIDORI=: TIDSU=K(ZT,ZY) if (SH=)and(SH=) then TIDORI=: TIDSU=K(TP,YP) if (TIDORI>=)and(K(TM,YM)=) then naname_check if TDRTY= then T=ZT:Y=ZY+: T=ZT+:Y=ZY: T=ZT+:Y=ZY+: T=ZT+:Y=ZY+ else T=ZT:Y=ZY-: T=ZT+:Y=ZY: T=ZT+:Y=ZY-: T=ZT+:Y=ZY- if (K(T,Y)=)and(K(T,Y)=)and(K(T,Y)=)and(K(T,Y)=) then tobidasi_check BNWA=: FTOBID= for K= to if K= then WT=ZT:WY=ZY else WT=TP:WY=YP:T=T:Y=Y:T=T:Y=Y T,Y_ketei IT=WT:IY=WY:SSU=K(WT,WY):gosub *BLOCK BNWA=BNWA+BN for W= to BN if FB(BL(W,),BL(W,))= then T=BL(W,):Y=BL(W,): exit for next W SU=K(WT,WY) gosub *BORDER nobi_jyunbi MBN=BN: for W= to BN:for W= to : MBL(W,W)=BL(W,W): next W,W KNSRSU=SRSU: for Q= to SRSU:for Q= to : TZL(Q,Q)=TYL(Q,Q): next Q,Q KANOTY=: gosub *NOBIJYUNBI

35 nobi_syori K(TM,YM)=:K(T,Y)=-:K(T,Y)=- kari_oki NOBITY=:gosub *NOBISYORI K(TM,YM)= :K(T,Y)= :K(T,Y)= hantei modosi if FBAD= then FTOBID=: exit for next K kabe_set? if (FTOBID=)and((TIDORI=)or((TIDORI>)and(BNWA+>TIDSU))) then K(TM,YM)=-:FB(TM,YM)=: ZOKA= next ZY next TDRTY next ZT *HANARESIMA for T= to GN:for Y= to RN if (FB(T,Y)=)and(K(T,Y)>) then SU=K(T,Y) gosub *BLTYLKIROKU if (MSRSU<=)and(MBN<(SU-MSRSU)) then nobi_syori KANOTY=:KNSRSU=MSRSU:JYOGAI=:gosub *NOBIJYUNBI MNOSU=NOSU NOBITY=:gosub *NOBISYORI saegiru_syori gosub *HANAREMAIN if ZOKA= then *HANAREMAIN nobi-list_kiroku MXNOSU=NOSU for I= to MXNOSU:for I= to : MNOBI(I,I)=NOBI(I,I): next I,I saegiri_koho MOMEN= for Q=MNOSU+ to MXNOSU QT=MNOBI(Q,):QY=MNOBI(Q,):QKYORI=MNOBI(Q,) K(QT,QY)=- kari_oki NOSU=MNOSU:NOBITY=:gosub *NOBISYORI K(QT,QY)= modosi

36 kai_list if FBAD= then MOMEN=MOMEN+: MOMEL(MOMEN,)=QT:MOMEL(MOMEN,)=QY:MOMEL(MOMEN,)=QKYORI next Q kai_set if MOMEN> then HANARETY=: GT=T:GY=Y:gosub *KAISYO: *KAISYO -- par. HANARETY, GT,GY -- for KSY= to MOMEN QT=MOMEL(KSY,):QY=MOMEL(KSY,):QKYORI=MOMEL(KSY,) if HANARETY= then -danme for I= to KKRN if (QT=DAN(I,))and(QY=DAN(I,)) then K(KKRL(I,),KKRL(I,))=-:exit for next I K(QT,QY)=: ZOKA= if K(GT,GY)< then FB(QT,QY)=: FBN=FBN+ FB(FBN,)=K(GT,GY):FB(FBN,)=QT:FB(FBN,)=QY FB(FBN,)=GT :FB(FBN,)=GY FB(FBN,)= :FB(FBN,)= : FB(FBN,)=QKYORI sesyoku FBTI=:TB=FBN else SU= FB(QT,QY)=: FBTI= ST=QT:SY=QY:SU=:gosub *SUSET next KSY *HANAREKABE for T= to GN:for Y= to RN if (FB(T,Y)=)and(K(T,Y)=-) then SU=- gosub *BLTYLKIROKU NOSU=MSRSU for Q= to MSRSU: NOBI(Q,)=TZL(Q,):NOBI(Q,)=TZL(Q,):NOBI(Q,)=MBN+: next Q NKATY=:MXNOBI=:gosub *NOBIKBAK for I= to KIROKU: K(TZL(KRL(I),),TZL(KRL(I),))= : next I if ZOKA= then

37 *NOBIKBAK -- par. NKATY,NOSU,MXNOBI -- if NKATY= then TOMESU=:SETSU=- else TOMESU=-:SETSU= R=: MNOSU=NOSU while (R<=NOSU)and(NOSU<MXNOBI) koho_sagasi for D= to KAT=NOBI(R,)+ZT(D):KAY=NOBI(R,)+ZY(D) stop? if NKATY= then if K(KAT,KAY)=- then hukumu FHUKU= for W= to BN if (KAT=BL(W,))and(KAY=BL(W,)) then FHUKU=: exit for next W if FHUKU= then else goto *NKAEND else NKATY= if K(KAT,KAY)> then if K(KAT,KAY)= then new? FHUKU= for Q= to NOSU if (KAT=NOBI(Q,))and(KAY=NOBI(Q,)) then FHUKU=: exit for next Q if FHUKU= then tuika NOSU=NOSU+:NOBI(NOSU,)=KAT:NOBI(NOSU,)=KAY toji_check K(KAT,KAY)=TOMESU kari_oki gosub *TOJICHECK K(KAT,KAY)= hantei modosi if FTOJI= then K(KAT,KAY)=SETSU:FB(KAT,KAY)=: ZOKA= if SETSU= then ST=KAT:SY=KAY:SU=:gosub *SUSET *NKAEND next D R=R+

38 wend *TOJICHECK FTOJI= TOJISU=MNOSU for S= to TOJISU:for S= to :TJC(S,S)=NOBI(S,S): next S,S RTJ= while (RTJ<=TOJISU)and(TOJISU<MXNOBI) koho_sagasi for DTJ= to TTJ=TJC(RTJ,)+ZT(DTJ):YTJ=TJC(RTJ,)+ZY(DTJ) stop? if NKATY= then if K(TTJ,YTJ)=- then hukumu FHUKU= for W= to BN if (TTJ=BL(W,))and(YTJ=BL(W,)) then FHUKU=: exit for next W if FHUKU= then else goto *TOJIEND else NKATY= if K(TTJ,YTJ)> then if K(TTJ,YTJ)= then new? FHUKU= for Q= to TOJISU if (TTJ=TJC(Q,))and(YTJ=TJC(Q,)) then FHUKU=: exit for next Q if FHUKU= then TOJISU=TOJISU+: TJC(TOJISU,)=TTJ:TJC(TOJISU,)=YTJ *TOJIEND next DTJ RTJ=RTJ+ wend hantei if (TOJISU<MXNOBI)and((NKATY=)or((NKATY=)and(<TOJISU))) then FTOJI= *AKITOJI for T= to GN:for Y= to RN if K(T,Y)= then MT=T:MY=Y:gosub *MAWARISU

39 if (YSU=)and(<=ZSU)and(ZSU<=) then NOSU=: NOBI(,)=T:NOBI(,)=Y NKATY=:MXNOBI=:gosub *NOBIKBAK tudukeru if ZOKA= then *TOJISIMA for TJT= to GN:for TJY= to RN SU=K(TJT,TJY) if (FB(TJT,TJY)=)and(<SU)and(SU<) then toji_check IT=TJT:IY=TJY:SSU=SU:TUNATY=:MXMS=SU+:gosub *SUTUNAGI if (FSU=)and(BN<MXMS) then KABESU=BN-SU: TJKOSU=:KHN= space_motome TJSPN= for W= to BN if K(BL(W,),BL(W,))= then TJSPN=TJSPN+ TYL(TJSPN,)=BL(W,):TYL(TJSPN,)=BL(W,) next W kosu_seigen gosub *CONKEISAN if CONS<=SPMAX then kabe_list for K= to KABESU: RN(K)=TJSPN-(KABESU-K): next K K=:R()= while K> if R(K)<=RN(K) then gosub *FOWARD else gosub *BACK if K>KABESU then gosub *KABELIST: gosub *BACK wend TOJISY=:MUKOSU=: goto *MUSYORI *TJMODOSI if MUKOSU=(TJKOSU-) then for I=KABESU*(NMJKVA-)+ to KABESU*NMJKVA K(KHL(I,),KHL(I,))=-:FB(KHL(I,),KHL(I,))=: ZOKA= next I next TJY,TJT

40 *FOWARD K=K+ R(K)=R(K-)+ *BACK K=K- R(K)=R(K)+ *KABELIST TJKOSU=TJKOSU+ for I= to KABESU KHN=KHN+ KHL(KHN,)=TYL(R(I),):KHL(KHN,)=TYL(R(I),):KHL(KHN,)=- next I *CONKEISAN CONS= for II= to KABESU CONS=CONS*(TJSPN+-II)/(KABESU+-II) next II *HEIKONOBI for HEN= to if (HEN mod )= then HTY=:HLAST=GN else HTY=:HLAST=RN T,Y_kettei gosub *HENTY T=VT:Y=VY for H= to HLAST if HTY= then T=H else Y=H if K(T,Y)= then for P= to if P= then D=HEN else D=RD(HEN) if (K(T+ZT(D),Y+ZY(D))=-)and(K(T+ZT(RD(D)),Y+ZY(RD(D)))=) then S=: KT()=T:KY()=Y while (K(KT(S),KY(S))=)and(S<=) new_iti for I= to if P= then GD=DJ(fnD(HEN,I-)) else GD=RDJ(fnD(RD(HEN),I-)) NET=KT(S)+ZT(GD):NEY=KY(S)+ZY(GD) if K(NET,NEY)> then exit for if K(NET,NEY)= then

41 MT=NET:MY=NEY:gosub *MAWARISU if (ZSU=)and(NSU=) then FANA= else FANA=: exit for next I if I< then S=S+:KT(S)=NET:KY(S)=NEY wend if S< then toji_check for I= to S-: K(KT(I),KY(I))=: next I IT=T+ZT(D):IY=Y+ZY(D):gosub *TOJIH for I= to S-: K(KT(I),KY(I))= : next I if FTOJI= then -- hanaresu_syori -- kari_oki gosub *HENTY kari_oki modosi if P= then HD=RD(HEN):SP=-SP(HEN) else HD=HEN:SP=SP(HEN) gosub *LEND: KKRN= for I=H to LEND step SP if HTY= then VT=I else VY=I heniti & banme _ kiroku if K(VT,VY)= then KKRN=KKRN+:KKRL(KKRN,)=VT:KKRL(KKRN,)=VY -danme DHEN=HEN:gosub *DAN else exit for next I tuzuki if I=LEND+SP then gosub *NEWHEN for I=NWSTR to NWLST step SP if (NWHEN mod )= then VT=I else VY=I if K(VT,VY)= then KKRN=KKRN+:KKRL(KKRN,)=VT:KKRL(KKRN,)=VY -danme DHEN=NWHEN:gosub *DAN else exit for next I for I= to KKRN: K(KKRL(I,),KKRL(I,))=-: next I kari_oki nobi_syori SU=K(KT(S),KY(S)) if (SU<)or((SU=)and(FB(KT(S),KY(S))<>)) then IT=KT(S):IY=KY(S):SSU=SU:gosub *BLOCK

42 gosub *BORDER MBN=BN: for W= to BN:for W= to : MBL(W,W)=BL(W,W): next W,W NOSU=SRSU for Q= to SRSU: NOBI(Q,)=TYL(Q,):NOBI(Q,)=TYL(Q,):NOBI(Q,)=MBN+: next Q MNOSU=NOSU NOBITY=:gosub *NOBISYORI -- saegiru_syori -- nobi-list_kiroku MXNOSU=NOSU for I= to MXNOSU:for I= to : MNOBI(I,I)=NOBI(I,I): next I,I saegiri_koho MOMEN= for Q=MNOSU+ to MXNOSU QT=MNOBI(Q,):QY=MNOBI(Q,):QKYORI=MNOBI(Q,) K(QT,QY)=- kari_oki NOSU=MNOSU:NOBITY=:gosub *NOBISYORI K(QT,QY)= modosi kai_list if FBAD= then MOMEN=MOMEN+: MOMEL(MOMEN,)=QT:MOMEL(MOMEN,) =QY:MOMEL(MOMEN,)=QKYORI next Q modosi for I= to KKRN: K(KKRL(I,),KKRL(I,))=: next I modosi kai_set if MOMEN> then HANARETY=:GT=KT(S):GY=KY(S):gosub *KAISYO: next P next H next HEN *TOJIH -- par. IT,IY -- TUNATY=: SSU=-:MXMS=: gosub *SUTUNAGI if BN<KBN then FTOJI= else FTOJI= *HENTY if HTY= then if HEN= then VY= else VY=RN else HTY= if HEN= then VT= else VT=GN

43 *LEND if SP=- then LEND= else SP= if HTY= then LEND=GN else LEND=RN *NEWHEN select case HEN case NWSTR=:NWLST=RN:SP= if LEND= then NWHEN=:VT= else NWHEN=:VT=GN case NWSTR=:NWLST=GN:SP= if LEND= then NWHEN=:VY= else NWHEN=:VY=RN case NWSTR=RN:NWLST=:SP=- if LEND= then NWHEN=:VT= else NWHEN=:VT=GN case NWSTR=GN:NWLST=:SP=- if LEND= then NWHEN=:VY= else NWHEN=:VY=RN end select *DAN -- par. DHEN -- select case DHEN case DAN(KKRN,)=VT:DAN(KKRN,)= case DAN(KKRN,)=:DAN(KKRN,)=VY case DAN(KKRN,)=VT:DAN(KKRN,)=RN- case DAN(KKRN,)=GN-:DAN(KKRN,)=VY end select *SYOZOKUSIMA mikakutei_sima MKSN= for T= to GN:for Y= to RN if (<K(T,Y))and(K(T,Y)<)and(FB(T,Y)=) then FB_jyogai FHAN= for TB= to FBN

44 if (T=FB(TB,))and(Y=FB(TB,)) then FHAN=: exit for next TB if FHAN= then MKSN=MKSN+:MKSL(MKSN,)=T:MKSL(MKSN,)=Y:MKSL(MKSN,)=K(T,Y) main for T= to GN:for Y= to GN if (K(T,Y)=)and(FB(T,Y)=) then IT=T:IY=Y:SSU=:gosub *BLOCK MBN=BN: gosub *BORDER MSRSU=SRSU for Q= to SRSU:for Q= to : TZL(Q,Q)=TYL(Q,Q): next Q,Q syozoku-sima_sagasi GKOSU=: GQ= for Q= to MKSN TZT=MKSL(Q,):TZY=MKSL(Q,):gosub *KYORIKEI if MNK<=MKSL(Q,) then GKOSU=GKOSU+ if MNK=MKSL(Q,) then GQ=Q next Q if (GKOSU=)and(GQ>) then SIMAT=MKSL(GQ,):SIMAY=MKSL(GQ,):SIMASU=MKSL(GQ,) mawari_kabe-set( case_a ) SRN= for KK= to SRSU KA=abs(SIMAT-TYL(KK,))+abs(SIMAY-TYL(KK,))+MBN+ if KA>SIMASU then K(TYL(KK,),TYL(KK,))=-:FB(TYL(KK,),TYL(KK,))=: ZOKA= else SRN=SRN+:SRL(SRN,)=TYL(KK,):SRL(SRN,)=TYL(KK,) next KK mawari_kabe-set( case_b ) IT=SIMAT:IY=SIMAY:SSU=SIMASU:gosub *BLOCK gosub *BORDER SRN= for KK= to SRSU gosub *KYORIKEI if MNK+BN+MBN+>SIMASU then K(TYL(KK,),TYL(KK,))=-:FB(TYL(KK,),TYL(KK,))=: ZOKA= else SRN=SRN+:SRL(SRN,)=TYL(KK,):SRL(SRN,)=TYL(KK,) next KK mizoku-sima_jyogai for I= to SRN:for I= to SRN STT=SRL(I,):STY=SRL(I,):LTT=SRL(I,):LTY=SRL(I,) if STT<=LTT then DT=STT:UT=LTT else DT=LTT:UT=STT if STY<=LTY then LY=STY:RY=LTY else LY=LTY:RY=STY

45 for I=DT to UT:for I=LY to RY if K(I,I)= then next I,I next I,I nobi_kano-masu NHN= for I= to SRN:for I= to SRN STT=SRL(I,):STY=SRL(I,):LTT=SRL(I,):LTY=SRL(I,) if STT<=LTT then STEPT= else STEPT=- if STY<=LTY then STEPY= else STEPY=- for ST=STT to LTT step STEPT:for SY=STY to LTY step STEPY if K(ST,SY)= then new? FDBL= for CH= to NHN if (ST=NHL(CH,))and(SY=NHL(CH,)) then FDBL=: exit for next CH if FDBL= then nobi_hantei if ((ST=STT)and(SY=STY))or((ST=LTT)and(SY=LTY)) then NHN=NHN+: NHL(NHN,)=ST:NHL(NHN,)=SY else MT=ST:MY=SY:gosub*MAWARISU if (YSU=)and(P=) then NHN=NHN+:NHL(NHN,)=ST:NHL(NHN,)=SY next SY,ST next I,I nobi_tome for Q= to NHN jyogai_settei JGAIT=NHL(Q,):JGAIY=NHL(Q,) gosub *SAITANKOSU if FSAITAN= then K(JGAIT,JGAIY)=:FB(JGAIT,JGAIY)=: ZOKA= FBN=FBN+: FB(FBN,)=SIMASU:FB(FBN,)=SIMAT:FB(FBN,)=SIMAY FB(FBN,)=JGAIT:FB(FBN,)=JGAIY FB(FBN,)=abs(SIMAT-JGAIT)+abs(SIMAY-JGAIY)+ next Q if ZOKA= then

46 *KYORIKEI MNK= for JJ= to MSRSU KA=abs(TYL(KK,)-TZL(JJ,))+abs(TYL(KK,)-TZL(JJ,)) if KA<MNK then MNK=KA next JJ *SAITANKOSU susumu_hoko if (STEPT=)and(STEPY=) then D()=:D()= if (STEPT=)and(STEPY=-) then D()=:D()= if (STEPT=-)and(STEPY=) then D()=:D()= if (STEPT=-)and(STEPY=-) then D()=:D()= K=: R()=:RT()=STT:RY()=STY while (K>)and((RT(K)<>LTT)or(RY(K)<>LTY)) susumu_han SKT=RT(K)+ZT(D(R(K))):SKY=RY(K)+ZY(D(R(K))) FHUKUMU= if (SKT<>JGAIT)or(SKY<>JGAIY) then for W= to NHN if (SKT=NHL(W,))and(SKY=NHL(W,)) then FHUKUMU=: exit for next W if FHUKUMU= then FOWARD K=K+ R(K)=: RT(K)=SKT:RY(K)=SKY else if R(K)< then R(K)=R(K)+ else BACK K=K- R(K)=R(K)+ wend hantei if K> then FSAITAN= else FSAITAN= *KANSEICH FMU=: ZEROSU= HFB_sakusei for T= to GN:for Y= to RN CFB(T,Y)=FB(T,Y)

47 FB_new for T= to GN:for Y= to RN if K(T,Y)= then FB(T,Y)=:ZEROSU=ZEROSU+ else FB(T,Y)= kanse-check_a for T= to GN:for Y= to RN if FB(T,Y)= then SU=K(T,Y) IT=T:IY=Y:SSU=SU:MAINTY=:gosub *BLOCK if SU=- then HSU=KBN else HSU=SU check if BN>HSU then FMU=: goto *FBMODOSI else gosub *BORDER if (SRSU=)and(BN<HSU) then FMU=: goto *FBMODOSI kanse-check_b for T= to GN-:for Y= to RN- NSU= for I= to :for J= to MT=T+I:MY=Y+J if K(MT,MY)=- then NSU=NSU+ next J,I if NSU= then FMU=: goto *FBMODOSI *FBMODOSI FB_modosi for T= to GN:for Y= to RN FB(T,Y)=CFB(T,Y) *MUJYUNSYORI FMSTOP= if FMUSY= then FMUSY= koho-list_yobidasi if KHN= then FMSTOP=:FMUSY=: hikae_toru for I= to GN:for J= to RN: HK(I,J)=K(I,J):HFB(I,J)=FB(I,J): next J,I HFBN=FBN for I= to FBN:for J= to : HFB(I,J)=FB(I,J): next J,I for I= to SIMASU:for I= to : HSIMA(I,I)=SIMA(I,I): next I,I

48 atai_set KVA= if TOJISY= then ASETY=:gosub *ATAISET else gosub *TJASET else hairetu_modosi for I= to GN:for J= to RN: K(I,J)=HK(I,J):FB(I,J)=HFB(I,J): next J,I FBN=HFBN for I= to FBN:for J= to : FB(I,J)=HFB(I,J): next J,I for I= to SIMASU:for I= to : SIMA(I,I)=HSIMA(I,I): next I,I if TOJISY= then mujyun_ari? if FMU= then ASETY=:gosub *ATAISET FMUSY= else KVA=KVA+ if KVA<=KHN then atai_set ASETY=:gosub *ATAISET else FMSTOP=:FMUSY= else mujyun_ari? if FMU= then MUKOSU=MUKOSU+ else NMJKVA=KVA tugi_atai KVA=KVA+ if KVA<=TJKOSU then atai_set gosub *TJASET else FMSTOP=:FMUSY= *ATAISET -- par. KVA -- NWT=KHL(KVA,):NWY=KHL(KVA,):SU=KHL(KVA,) if ASETY= then if SU> then ATAI=- else ATAI= K(NWT,NWY)=ATAI:FB(NWT,NWY)=:ZOKA= if ATAI= then ST=NWT:SY=NWY:SU=:FBTI=:gosub *SUSET else ASETY= K(NWT,NWY)=SU:FB(NWT,NWY)=-: ZOKA=

49 if SU> then ST=NWT:SY=NWY:FBTI=:gosub *SUSET *TJASET for I=KABESU*(KVA-)+ to KABESU*KVA K(KHL(I,),KHL(I,))=-:FB(KHL(I,),KHL(I,))=: ZOKA= next I *KOHOLIST KHN= -- level_ -- case_a for T= to GN:for Y= to RN if FB(T,Y)= then SU=K(T,Y) IT=T:IY=Y:SSU=SU:gosub *BLOCK gosub *BORDER if SRSU<=SRMAX(LEVEL) then for I= to SRSU KHN=KHN+:KHL(KHN,)=TYL(I,):KHL(KHN,)=TYL(I,):KHL(KHN,)=SU next I case_b for MT= to GN:for MY= to RN if K(MT,MY)= then gosub *MAWARISU if (NSU=)and(ZSU=) then KHN=KHN+:KHL(KHN,)=MT:KHL(KHN,)=MY:KHL(KHN,)=- next MY,MT Part(), Part(), Part(), Part() Easy,Medium,Hard []

50 Easy,Medium,Hard.,.,.. Easy,Medium,Hard []

51 [] Easy,Medium,Hard.,.,... Easy,Medium,Hard Ea Me Ha [],,,() []