-
Notifications
You must be signed in to change notification settings - Fork 0
/
08B-solution.basic
142 lines (138 loc) · 11.1 KB
/
08B-solution.basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
D. "220102001303332210111144403232401113333122342344231242454143210203320302212443030013122003001101100"
D. "002012111323310331302003042221132010432132445255133124455255223004414440440003301012203200022100210"
D. "200201202011003110423331304200331011531224544245554512113213335525210302033141324322321031312102110"
D. "100020212221032131124244103404003222433224521422334123232422124515312313433224100204010121132311000"
D. "200113321032110240111004030043155443522233113242534443312241445211112450323031312112213000023232100"
D. "000123222130133422212242344055134444215311551422533215421415442551425225432130430124043210211111310"
D. "220013001310041302023441034332322423241253523413533421512551432233114553552003013120121302130121320"
D. "103122021001324130041021443134551553414353255343356623553131221454542451225451442032131420112320101"
D. "012123121220242033212021343121244143344324534625253522262464534215422121222134240012234133102111220"
D. "330310331223230000003152443554413335326665536266322522652335566553114314142351411020403401413302112"
D. "033203120011110011132251145135331144533354253453463224233644324632453434135523253300131220303213123"
D. "320111230330142103134512313345346434643654336344264466663434525446644113511452351451422214014013322"
D. "001132233321313303345535112443242622242446334234425332545346556362543355243332135453212444110331303"
D. "112033313244310423153325243233225655536462366623456645652435535435325433454445524512423111021132122"
D. "313313043314211444453212142362452645555543222645663664243443432442223333565131234141351344321344102"
D. "131230133213133211232332525334634543566623665537334334547734623265434432455254451425235432443212211"
D. "033344041000113254352455455346236225633465644343664557364344535543336532242444234311533433344140212"
D. "213210413044552341333323656654354424366446744766744473434577534775255332236334522521333331002022121"
D. "223112203001555435245233523555243667443447767433564533557556755677732432236462355155425414244240300"
D. "031112340101154335334634566542526467535374465476634474475365364377737233444423444335143215320411041"
D. "010203132113252122424352345322745777347553756767766736766655557657446763326426264545545441510322304"
D. "321034434351253424555342636457546533636345766763737363536656637564757633453436366225532223151301123"
D. "140333103113245552456543556436376775537436555564765867677377566536736367466446544545111231522432042"
D. "344202325543255413523362252766476773354345756567775846446585764655346457333656245566142114252141442"
D. "300442033331415536626644654454735373634646576484854768867856765345656633644236246242335514321313432"
D. "422444251112412665556253554536437336675554766648744646768865576456545754676632532244262315154431312"
D. "202304543452455552253665657746647784558765457564785778845788767784833536336745445354462312521531440"
D. "443202253112536253525354345435633886668445868754667447674764886554756567546737654246334325241222041"
D. "444423415155442365223265743454556684558776766888858567565767784775755635475565754224462452335222241"
D. "344303321125225553466564654375755674684544768955877976656855558645744675543644552655335222244234041"
D. "300235531322254555657355344757787845684787759755989576658884775746464854347454745445252251123331200"
D. "202355355135453623555734775437867546864765789685787875887555685885564677653753475626332543431524440"
D. "123112125155234436477477667347767767746589595765887578895688659457644647637353775542533353231324344"
D. "410231223354354564265577744565557576558859695696978987776856795557766747576576743622336235154122541"
D. "144345221145432366464547578854445477995896778965569886979678656986544557875776343376245336222211154"
D. "041355524153432432536456778856655655586558689789676558987567866689878584574356765462664355555422315"
D. "043213424536224446535754387584686658555998969679778967988975666897764557557733673744622262412325233"
D. "101514245332544663477377677875765977975768579996797978899567698975768865784644537776543454651544223"
D. "055515332353232236436447686544477656596959996666689896787797795969665874555543664764442344265232243"
D. "222545542226664544634434558757485778565956766669899769668998978795896868888674777634532432531545351"
D. "434314333334362377634654477865886799965779778887799678789966958767788684856666356767346645644343444"
D. "052335546342344533746576644847456965678786776877897777697767787998596844688878543443425354265524523"
D. "245321436235332754756734464668569895557967788998689969678678888859577664555777765333674636253522234"
D. "222511135542326767344777655475586999669889777967697967976779776769789666884457455657536456246131555"
D. "254433214252433545454764655656756765598866789679798998989699886966798756574757563674433652342254411"
D. "252443455634345774563668584548569877777679776897897977978768868758769758655687433345452443435424512"
D. "312151563634655557774676587765775678576967989777779888989698876657887877756744456665655635556644123"
D. "255315424526333665355778666668586665799969869877998777889777988668875966868565465457776522236513141"
D. "141324353246555364776377784867669969887687879788978777778977696768597689744655653757436644265454325"
D. "354554356562633675467576477485995977969979699799889979879876989688558895876557644555777244452335314"
D. "235324556262356365436555887646778779897999678779989989789867689977685966845857674434347554655643252"
D. "413432246554227346473675665849975567696667989798798778788967877675576875667875866434546262246521543"
D. "552324452542255347547654567456656665796776679978889979999797899897878689747764654756336634422352455"
D. "132142446224635664776385465487598668797987978789877989998967699965559668558447437465553652345225512"
D. "535121326642222474774354544766768756799778998798789898877898889965958696446887843476762526426515244"
D. "345151122435326774546477755588766796667978679897798799788798667756596585444845757774352236466242124"
D. "324135422245435777577646446776855665599676997689997887788889876766665986567668467764463526524522524"
D. "325343515546653536653454765454579566578777977788879878787979966579696677474785343347473444324354355"
D. "411221244324436736446567757755797766577698989699898679769679676797557885877546755664674522365314215"
D. "011225512566433343766434774658485575577887896689896789789788897667989867646846655537445534555245154"
D. "353122224246523453336574684477667558859686788676888887889677967668868867745484457553323245424151214"
D. "025211533334552466553436874465855779555988968677869768998666855765958765844553645533522566662215435"
D. "011144555564545656657564766665457958988879979779789696768889888785895588848586367454333255641115431"
D. "312135513646235366335766645784546897755855986679986669787888667577687576776674647476324553225412153"
D. "401131435555652456777737485558685475567889776796686996966887777867565457675674635564364663332115334"
D. "111542111546535443776533554556858445867565786988765999858788986988467667765674337645225253433114412"
D. "324152522543244453747533764587454556659676798855686758699569787576577568846344576564242526335344431"
D. "123513525116652325364735577676854466795879775965858579978758766786788576585574533555234644544424444"
D. "201422231514666656435556464744556487779676697575668797755696587875664885475643663462362633532152224"
D. "443133412441244332664735557756557478667877999697777576977768645754645558333564346654626425334525344"
D. "431015242443666335263335435575686474856864565688697865686896558787678553436564534565256645251434512"
D. "010022255222133364253766673665475577467776484765858776654564844676776444447654375652434614143215022"
D. "112002141144134663334274465647734767886457477454887888474577867446657475453544742245245225443332224"
D. "331232153352336525225567445365565486747774487468877475878758554778586376763333443326544225345123013"
D. "320123541455416433363426343365775545857885758565575848877877686547673556675754423464442514232324111"
D. "042432343324232554524246554574474345666464658776446546567878767443577744556362465553665411142432422"
D. "142111123322431534522545253754364545474457775847846786887674646573467346333352524442333115335223141"
D. "344133332441235422454233333556736343777476764657687856476465776533456554442553426542432524345343333"
D. "200031013552112555654336435633347655674473538755855765665344475745556736546535462654344221551230302"
D. "304022204315531423544354645467655764773637456746376536645753764476654735362436623665431353330033320"
D. "001214000225135351445433524663673656735567443667544556374445736766637732424362445435124235202421144"
D. "133240444115255522316642262344554645657446334644647444534543345455733253453543223511253231133210321"
D. "324313341004114352115254632235242543363566666546735757746734646346355536356645334223223155213043334"
D. "322012103401425423541123244634634342577565467364645454366476547536536356344363313411143511003322321"
D. "030233343013121433455142565364335554237444577544465747334546363663525346435245514412331312412441220"
D. "210201421410133422542335534522343332455655473755663556635632662655563553445642432325453033042340112"
D. "012224401212432145413124536446542562653225343456763356434464356455233544345355532151231212104022112"
D. "312232323430402414252325451525553345425256326265324326656464322435443535213233315511433100124021321"
D. "010230232102113031224241215434543254266544664634225463436365465636465234441113521431122331212121101"
D. "212212302203143433332245352152333246623456656325435343642442543354454522241344343333411433411331230"
D. "011102200023414304323524211214225553365332454633645434256444354263245252314454334421304444012133303"
D. "120113010124021413002342554241434235565233233626345455655236425423152444344321441224210011210001020"
D. "101033322321412021400115241224135351431466535533654236552223322311141154321444212340220200110122301"
D. "011220031300131001424314223221135334414132553352224226351421342145342332444324224232200001102210233"
D. "121312303322224212003013214154522352135431322413434142221234334123523122531033230010321012211132201"
D. "012020110022314203102101331443513341244141113213442111455332441213534235144341443443042312110221221"
D. "100013222332201123334301101412554224524144445454322353452424512151232340130231214403422202221333120"
D. "211200011012011223124042241233103554151124335225451435512351451314113131210120200021021301331230211"
D. "222211000301233212310103403144201411351211113145331241322345244155131304344032001313100223022021012"
MO.4
VDU 19,1,2;0;
MOVE 8,8:DRAW 99*8,8:DRAW 99*8,99*8:DRAW 8,99*8:DRAW 8,8
A%=0
FOR X%=2 TO 98
FOR Y%=2 TO 98
P.TAB(0,0);X%;",";Y%
left=0:right=0:up=0:down=0
H%=FNget(X%,Y%)
left=FNvisibilityHorizontal(X%,Y%,-1,H%)
IF left>0 THEN right=FNvisibilityHorizontal(X%,Y%, 1,H%)
IF right>0 THEN up=FNvisibilityVertical(X%,Y%,-1,H%)
IF up>0 THEN down=FNvisibilityVertical(X%,Y%, 1,H%)
score=left*right*up*down
P.TAB(0,1);"left:";left;" right:";right;" up:";up;" down:";down;" score:";score;" "
IF score>0 THEN PLOT 69,X%*8,Y%*8
IF score>A% THEN A%=score:P.TAB(0,3);"Best score: ";A%
NEXT
NEXT
END
DEFFNvisibilityHorizontal(X%,Y%,D%,H%)
F%=0
IF D%>0 THEN T%=99 ELSE T%=1
FOR C%=X%+D% TO T% STEP D%
F%=F%+1
IF FNget(C%,Y%)>=H% THEN C%=T%
NEXT
=F%
DEFFNvisibilityVertical(X%,Y%,D%,H%)
F%=0
IF D%>0 THEN T%=99 ELSE T%=1
FOR C%=Y%+D% TO T% STEP D%
F%=F%+1
IF FNget(X%,C%)>=H% THEN C%=T%
NEXT
=F%
DEFFNget(X%,Y%)
RESTORE Y%*10:READ row$
=VAL(MID$(row$,X%,1))