Artifact 42db89cb5c63a7bd058af1a219926cfe8c85dbf3:
0000: 69 6d 70 6f 72 74 20 75 74 69 6c 3b 0a 69 6d 70 import util;.imp
0010: 6f 72 74 20 67 61 6d 65 3b 0a 69 6d 70 6f 72 74 ort game;.import
0020: 20 6f 75 74 70 75 74 3b 0a 0a 69 6e 74 20 67 5f output;..int g_
0030: 77 63 20 3d 20 30 3b 0a 0a 76 6f 69 64 20 61 63 wc = 0;..void ac
0040: 74 28 47 61 6d 65 20 67 29 0a 7b 0a 09 50 6f 73 t(Game g).{..Pos
0050: 20 20 20 72 6f 20 3d 20 67 2e 6d 61 70 2e 72 6f ro = g.map.ro
0060: 62 6f 74 3b 0a 09 50 6f 73 5b 5d 20 6c 61 20 3d bot;..Pos[] la =
0070: 20 67 2e 6d 61 70 2e 6c 61 6d 62 64 61 73 28 29 g.map.lambdas()
0080: 3b 0a 09 50 6f 73 20 20 20 6c 69 20 3d 20 67 2e ;..Pos li = g.
0090: 6d 61 70 2e 6c 69 66 74 3b 0a 0a 09 63 68 61 72 map.lift;...char
00a0: 20 63 20 3d 20 27 57 27 3b 0a 09 69 66 28 20 6c c = 'W';..if( l
00b0: 61 2e 65 6d 70 74 79 20 29 20 7b 0a 09 09 61 75 a.empty ) {...au
00c0: 74 6f 20 72 20 3d 20 73 65 61 72 63 68 28 67 2c to r = search(g,
00d0: 20 72 6f 2c 20 6c 69 29 3b 0a 09 09 63 20 3d 20 ro, li);...c =
00e0: 72 5b 30 5d 3b 0a 09 7d 20 65 6c 73 65 20 7b 0a r[0];..} else {.
00f0: 09 09 54 75 70 6c 65 21 28 63 68 61 72 2c 69 6e ..Tuple!(char,in
0100: 74 29 5b 5d 20 63 61 6e 64 3b 0a 09 09 66 6f 72 t)[] cand;...for
0110: 65 61 63 68 28 6c 61 6d 3b 20 6c 61 29 0a 09 09 each(lam; la)...
0120: 09 63 61 6e 64 20 7e 3d 20 73 65 61 72 63 68 28 .cand ~= search(
0130: 67 2c 20 72 6f 2c 20 6c 61 6d 29 3b 0a 09 09 73 g, ro, lam);...s
0140: 6f 72 74 21 28 28 54 75 70 6c 65 21 28 63 68 61 ort!((Tuple!(cha
0150: 72 2c 69 6e 74 29 20 63 31 2c 20 54 75 70 6c 65 r,int) c1, Tuple
0160: 21 28 63 68 61 72 2c 69 6e 74 29 20 63 32 29 7b !(char,int) c2){
0170: 0a 09 09 09 69 66 28 63 31 5b 31 5d 20 21 3d 20 ....if(c1[1] !=
0180: 63 32 5b 31 5d 29 0a 09 09 09 09 72 65 74 75 72 c2[1]).....retur
0190: 6e 20 63 31 5b 31 5d 20 3c 20 63 32 5b 31 5d 3b n c1[1] < c2[1];
01a0: 0a 09 09 09 72 65 74 75 72 6e 20 63 31 5b 30 5d ....return c1[0]
01b0: 20 3c 20 63 32 5b 30 5d 3b 0a 09 09 7d 29 28 63 < c2[0];...})(c
01c0: 61 6e 64 29 3b 0a 09 09 63 20 3d 20 63 61 6e 64 and);...c = cand
01d0: 5b 30 5d 5b 30 5d 3b 0a 09 7d 0a 09 69 66 28 63 [0][0];..}..if(c
01e0: 3d 3d 27 57 27 29 20 7b 0a 09 09 67 5f 77 63 2b =='W') {...g_wc+
01f0: 2b 3b 0a 09 09 69 66 28 67 5f 77 63 20 3e 20 31 +;...if(g_wc > 1
0200: 30 29 0a 09 09 09 63 20 3d 20 27 41 27 3b 0a 09 0)....c = 'A';..
0210: 7d 0a 09 65 6c 73 65 0a 09 09 67 5f 77 63 20 3d }..else...g_wc =
0220: 20 30 3b 0a 09 67 2e 63 6f 6d 6d 61 6e 64 28 63 0;..g.command(c
0230: 29 3b 0a 7d 0a 0a 54 75 70 6c 65 21 28 63 68 61 );.}..Tuple!(cha
0240: 72 2c 69 6e 74 29 20 73 65 61 72 63 68 28 47 61 r,int) search(Ga
0250: 6d 65 20 67 2c 20 50 6f 73 20 73 2c 20 50 6f 73 me g, Pos s, Pos
0260: 20 6f 29 0a 7b 0a 09 50 6f 73 5b 5d 20 71 20 3d o).{..Pos[] q =
0270: 20 5b 6f 5d 3b 0a 09 62 6f 6f 6c 5b 5d 5b 5d 20 [o];..bool[][]
0280: 76 20 3d 20 6e 65 77 20 62 6f 6f 6c 5b 5d 5b 5d v = new bool[][]
0290: 28 67 2e 6d 61 70 2e 48 2b 32 2c 20 67 2e 6d 61 (g.map.H+2, g.ma
02a0: 70 2e 57 2b 32 29 3b 0a 09 66 6f 72 28 69 6e 74 p.W+2);..for(int
02b0: 20 73 74 65 70 3d 31 3b 20 71 2e 6c 65 6e 67 74 step=1; q.lengt
02c0: 68 3b 20 2b 2b 73 74 65 70 29 20 7b 0a 09 09 50 h; ++step) {...P
02d0: 6f 73 5b 5d 20 71 32 3b 0a 09 09 66 6f 72 65 61 os[] q2;...forea
02e0: 63 68 28 70 3b 20 71 29 20 7b 0a 09 09 09 69 6e ch(p; q) {....in
02f0: 74 5b 5d 20 64 79 3d 5b 2d 31 2c 2b 31 2c 30 2c t[] dy=[-1,+1,0,
0300: 30 5d 3b 0a 09 09 09 69 6e 74 5b 5d 20 64 78 3d 0];....int[] dx=
0310: 5b 30 2c 30 2c 2d 31 2c 2b 31 5d 3b 0a 09 09 09 [0,0,-1,+1];....
0320: 66 6f 72 28 69 6e 74 20 69 3d 30 3b 20 69 3c 34 for(int i=0; i<4
0330: 3b 20 2b 2b 69 29 20 7b 0a 09 09 09 09 69 6e 74 ; ++i) {.....int
0340: 20 79 20 3d 20 70 2e 79 2b 64 79 5b 69 5d 3b 0a y = p.y+dy[i];.
0350: 09 09 09 09 69 6e 74 20 78 20 3d 20 70 2e 78 2b ....int x = p.x+
0360: 64 78 5b 69 5d 3b 0a 09 09 09 09 69 66 28 76 5b dx[i];.....if(v[
0370: 79 5d 5b 78 5d 29 20 63 6f 6e 74 69 6e 75 65 3b y][x]) continue;
0380: 0a 09 09 09 09 69 66 28 79 3d 3d 73 2e 79 20 26 .....if(y==s.y &
0390: 26 20 78 3d 3d 73 2e 78 29 20 7b 0a 09 09 09 09 & x==s.x) {.....
03a0: 09 69 66 28 69 3d 3d 30 29 20 72 65 74 75 72 6e .if(i==0) return
03b0: 20 74 75 70 6c 65 28 27 55 27 2c 73 74 65 70 29 tuple('U',step)
03c0: 3b 0a 09 09 09 09 09 69 66 28 69 3d 3d 31 29 20 ;......if(i==1)
03d0: 72 65 74 75 72 6e 20 74 75 70 6c 65 28 27 44 27 return tuple('D'
03e0: 2c 73 74 65 70 29 3b 0a 09 09 09 09 09 69 66 28 ,step);......if(
03f0: 69 3d 3d 32 29 20 72 65 74 75 72 6e 20 74 75 70 i==2) return tup
0400: 6c 65 28 27 52 27 2c 73 74 65 70 29 3b 0a 09 09 le('R',step);...
0410: 09 09 09 69 66 28 69 3d 3d 33 29 20 72 65 74 75 ...if(i==3) retu
0420: 72 6e 20 74 75 70 6c 65 28 27 4c 27 2c 73 74 65 rn tuple('L',ste
0430: 70 29 3b 0a 09 09 09 09 7d 20 65 6c 73 65 20 69 p);.....} else i
0440: 66 28 67 2e 6d 61 70 5b 79 2c 78 5d 3d 3d 27 20 f(g.map[y,x]=='
0450: 27 7c 7c 67 2e 6d 61 70 5b 79 2c 78 5d 3d 3d 27 '||g.map[y,x]=='
0460: 5c 5c 27 29 20 7b 0a 09 09 09 09 09 71 32 20 7e \\') {......q2 ~
0470: 3d 20 6e 65 77 20 50 6f 73 28 79 2c 78 29 3b 0a = new Pos(y,x);.
0480: 09 09 09 09 09 76 5b 79 5d 5b 78 5d 3d 74 72 75 .....v[y][x]=tru
0490: 65 3b 0a 09 09 09 09 7d 20 65 6c 73 65 20 69 66 e;.....} else if
04a0: 28 67 2e 6d 61 70 5b 79 2c 78 5d 3d 3d 27 2e 27 (g.map[y,x]=='.'
04b0: 20 26 26 20 67 2e 6d 61 70 5b 79 2d 31 2c 78 5d && g.map[y-1,x]
04c0: 21 3d 27 2a 27 29 20 7b 0a 09 09 09 09 09 71 32 !='*') {......q2
04d0: 20 7e 3d 20 6e 65 77 20 50 6f 73 28 79 2c 78 29 ~= new Pos(y,x)
04e0: 3b 0a 09 09 09 09 09 76 5b 79 5d 5b 78 5d 3d 74 ;......v[y][x]=t
04f0: 72 75 65 3b 0a 09 09 09 09 7d 0a 09 09 09 7d 0a rue;.....}....}.
0500: 09 09 7d 0a 09 09 71 20 3d 20 71 32 3b 0a 09 7d ..}...q = q2;..}
0510: 0a 09 71 20 3d 20 5b 6f 5d 3b 0a 09 76 20 3d 20 ..q = [o];..v =
0520: 6e 65 77 20 62 6f 6f 6c 5b 5d 5b 5d 28 67 2e 6d new bool[][](g.m
0530: 61 70 2e 48 2b 32 2c 20 67 2e 6d 61 70 2e 57 2b ap.H+2, g.map.W+
0540: 32 29 3b 0a 09 66 6f 72 28 69 6e 74 20 73 74 65 2);..for(int ste
0550: 70 3d 31 30 30 30 3b 20 71 2e 6c 65 6e 67 74 68 p=1000; q.length
0560: 3b 20 2b 2b 73 74 65 70 29 20 7b 0a 09 09 50 6f ; ++step) {...Po
0570: 73 5b 5d 20 71 32 3b 0a 09 09 66 6f 72 65 61 63 s[] q2;...foreac
0580: 68 28 70 3b 20 71 29 20 7b 0a 09 09 09 69 6e 74 h(p; q) {....int
0590: 5b 5d 20 64 79 3d 5b 2d 31 2c 2b 31 2c 30 2c 30 [] dy=[-1,+1,0,0
05a0: 5d 3b 0a 09 09 09 69 6e 74 5b 5d 20 64 78 3d 5b ];....int[] dx=[
05b0: 30 2c 30 2c 2d 31 2c 2b 31 5d 3b 0a 09 09 09 66 0,0,-1,+1];....f
05c0: 6f 72 28 69 6e 74 20 69 3d 30 3b 20 69 3c 34 3b or(int i=0; i<4;
05d0: 20 2b 2b 69 29 20 7b 0a 09 09 09 09 69 6e 74 20 ++i) {.....int
05e0: 79 20 3d 20 70 2e 79 2b 64 79 5b 69 5d 3b 0a 09 y = p.y+dy[i];..
05f0: 09 09 09 69 6e 74 20 78 20 3d 20 70 2e 78 2b 64 ...int x = p.x+d
0600: 78 5b 69 5d 3b 0a 09 09 09 09 69 66 28 76 5b 79 x[i];.....if(v[y
0610: 5d 5b 78 5d 29 20 63 6f 6e 74 69 6e 75 65 3b 0a ][x]) continue;.
0620: 09 09 09 09 69 66 28 79 3d 3d 73 2e 79 20 26 26 ....if(y==s.y &&
0630: 20 78 3d 3d 73 2e 78 29 20 7b 0a 09 09 09 09 09 x==s.x) {......
0640: 69 66 28 69 3d 3d 30 29 20 72 65 74 75 72 6e 20 if(i==0) return
0650: 74 75 70 6c 65 28 27 55 27 2c 73 74 65 70 29 3b tuple('U',step);
0660: 0a 09 09 09 09 09 69 66 28 69 3d 3d 31 29 20 72 ......if(i==1) r
0670: 65 74 75 72 6e 20 74 75 70 6c 65 28 27 44 27 2c eturn tuple('D',
0680: 73 74 65 70 29 3b 0a 09 09 09 09 09 69 66 28 69 step);......if(i
0690: 3d 3d 32 29 20 72 65 74 75 72 6e 20 74 75 70 6c ==2) return tupl
06a0: 65 28 27 52 27 2c 73 74 65 70 29 3b 0a 09 09 09 e('R',step);....
06b0: 09 09 69 66 28 69 3d 3d 33 29 20 72 65 74 75 72 ..if(i==3) retur
06c0: 6e 20 74 75 70 6c 65 28 27 4c 27 2c 73 74 65 70 n tuple('L',step
06d0: 29 3b 0a 09 09 09 09 7d 20 65 6c 73 65 20 69 66 );.....} else if
06e0: 28 67 2e 6d 61 70 5b 79 2c 78 5d 3d 3d 27 20 27 (g.map[y,x]==' '
06f0: 7c 7c 67 2e 6d 61 70 5b 79 2c 78 5d 3d 3d 27 5c ||g.map[y,x]=='\
0700: 5c 27 29 20 7b 0a 09 09 09 09 09 71 32 20 7e 3d \') {......q2 ~=
0710: 20 6e 65 77 20 50 6f 73 28 79 2c 78 29 3b 0a 09 new Pos(y,x);..
0720: 09 09 09 09 76 5b 79 5d 5b 78 5d 3d 74 72 75 65 ....v[y][x]=true
0730: 3b 0a 09 09 09 09 7d 20 65 6c 73 65 20 69 66 28 ;.....} else if(
0740: 67 2e 6d 61 70 5b 79 2c 78 5d 3d 3d 27 2e 27 2f g.map[y,x]=='.'/
0750: 2a 20 26 26 20 67 5b 79 2d 31 2c 78 5d 21 3d 27 * && g[y-1,x]!='
0760: 2a 27 2a 2f 29 20 7b 0a 09 09 09 09 09 71 32 20 *'*/) {......q2
0770: 7e 3d 20 6e 65 77 20 50 6f 73 28 79 2c 78 29 3b ~= new Pos(y,x);
0780: 0a 09 09 09 09 09 76 5b 79 5d 5b 78 5d 3d 74 72 ......v[y][x]=tr
0790: 75 65 3b 0a 09 09 09 09 7d 0a 09 09 09 7d 0a 09 ue;.....}....}..
07a0: 09 7d 0a 09 09 71 20 3d 20 71 32 3b 0a 09 7d 0a .}...q = q2;..}.
07b0: 09 72 65 74 75 72 6e 20 74 75 70 6c 65 28 27 57 .return tuple('W
07c0: 27 2c 20 69 6e 74 2e 6d 61 78 29 3b 0a 7d 0a 0a ', int.max);.}..
07d0: 76 6f 69 64 20 6d 61 69 6e 28 73 74 72 69 6e 67 void main(string
07e0: 5b 5d 20 61 72 67 73 29 0a 7b 0a 09 61 75 74 6f [] args).{..auto
07f0: 20 67 20 3d 20 47 61 6d 65 2e 6c 6f 61 64 28 73 g = Game.load(s
0800: 74 64 69 6e 29 3b 0a 09 67 2e 73 65 74 5f 6f 75 tdin);..g.set_ou
0810: 74 70 75 74 28 6e 65 77 20 47 75 61 72 64 65 64 tput(new Guarded
0820: 4f 75 74 70 75 74 28 67 29 29 3b 0a 0a 09 77 68 Output(g));...wh
0830: 69 6c 65 28 21 67 2e 64 65 61 64 20 26 26 20 21 ile(!g.dead && !
0840: 67 2e 63 6c 65 61 72 65 64 29 0a 09 09 61 63 74 g.cleared)...act
0850: 28 67 29 3b 0a 7d 0a (g);.}.