Artifact 53cab87f74c4871d195ed8142c9a5eb3f8354083:
0000: 69 6d 70 6f 72 74 20 73 74 64 2e 61 6c 67 6f 72 import std.algor
0010: 69 74 68 6d 3b 0a 69 6d 70 6f 72 74 20 73 74 64 ithm;.import std
0020: 2e 61 72 72 61 79 3b 0a 69 6d 70 6f 72 74 20 73 .array;.import s
0030: 74 64 2e 63 6f 6e 76 3b 0a 69 6d 70 6f 72 74 20 td.conv;.import
0040: 73 74 64 2e 73 74 64 69 6f 3b 0a 69 6d 70 6f 72 std.stdio;.impor
0050: 74 20 73 74 64 2e 73 74 72 69 6e 67 3b 0a 0a 63 t std.string;..c
0060: 6c 61 73 73 20 4d 61 70 0a 7b 0a 09 70 72 69 76 lass Map.{..priv
0070: 61 74 65 20 63 68 61 72 5b 5d 5b 5d 20 64 61 74 ate char[][] dat
0080: 61 3b 0a 0a 09 74 68 69 73 28 46 69 6c 65 20 69 a;...this(File i
0090: 6e 70 75 74 29 0a 09 7b 0a 09 09 66 6f 72 65 61 nput)..{...forea
00a0: 63 68 28 73 3b 20 69 6e 70 75 74 2e 62 79 4c 69 ch(s; input.byLi
00b0: 6e 65 28 29 29 0a 09 09 09 64 61 74 61 20 7e 3d ne())....data ~=
00c0: 20 73 2e 63 68 6f 6d 70 2e 64 75 70 3b 0a 0a 09 s.chomp.dup;...
00d0: 09 69 6e 74 20 77 69 64 74 68 20 3d 20 30 3b 0a .int width = 0;.
00e0: 09 09 66 6f 72 65 61 63 68 28 73 3b 20 64 61 74 ..foreach(s; dat
00f0: 61 29 0a 09 09 09 77 69 64 74 68 20 3d 20 6d 61 a)....width = ma
0100: 78 28 77 69 64 74 68 2c 20 73 2e 6c 65 6e 67 74 x(width, s.lengt
0110: 68 29 3b 0a 0a 09 09 2f 2f 20 73 70 61 63 65 20 h);....// space
0120: 70 61 64 64 69 6e 67 20 61 6e 64 20 73 65 6e 74 padding and sent
0130: 69 6e 65 6c 73 0a 09 09 66 6f 72 65 61 63 68 28 inels...foreach(
0140: 72 65 66 20 73 3b 20 64 61 74 61 29 20 7b 0a 09 ref s; data) {..
0150: 09 09 69 6e 74 20 70 20 3d 20 73 2e 6c 65 6e 67 ..int p = s.leng
0160: 74 68 3b 0a 09 09 09 73 2e 6c 65 6e 67 74 68 20 th;....s.length
0170: 3d 20 77 69 64 74 68 3b 0a 09 09 09 73 5b 70 2e = width;....s[p.
0180: 2e 24 5d 20 3d 20 27 20 27 3b 0a 09 09 09 73 20 .$] = ' ';....s
0190: 3d 20 27 23 27 20 7e 20 73 20 7e 20 27 23 27 3b = '#' ~ s ~ '#';
01a0: 0a 09 09 7d 0a 0a 09 09 2f 2f 20 76 65 72 74 69 ...}....// verti
01b0: 63 61 6c 20 73 65 6e 74 69 6e 65 6c 0a 09 09 63 cal sentinel...c
01c0: 68 61 72 5b 5d 20 73 65 6e 20 3d 20 6e 65 77 20 har[] sen = new
01d0: 63 68 61 72 5b 77 69 64 74 68 2b 32 5d 3b 0a 09 char[width+2];..
01e0: 09 73 65 6e 5b 5d 20 3d 20 27 23 27 3b 0a 09 09 .sen[] = '#';...
01f0: 64 61 74 61 20 3d 20 73 65 6e 2e 64 75 70 20 7e data = sen.dup ~
0200: 20 64 61 74 61 20 7e 20 73 65 6e 3b 0a 09 7d 0a data ~ sen;..}.
0210: 0a 09 40 70 72 6f 70 65 72 74 79 20 63 6f 6e 73 ..@property cons
0220: 74 0a 09 7b 0a 09 09 69 6e 74 20 57 28 29 20 7b t..{...int W() {
0230: 20 72 65 74 75 72 6e 20 64 61 74 61 5b 30 5d 2e return data[0].
0240: 6c 65 6e 67 74 68 3b 20 7d 0a 09 09 69 6e 74 20 length; }...int
0250: 48 28 29 20 7b 20 72 65 74 75 72 6e 20 64 61 74 H() { return dat
0260: 61 2e 6c 65 6e 67 74 68 3b 20 7d 0a 09 09 73 74 a.length; }...st
0270: 72 69 6e 67 20 74 6f 53 74 72 69 6e 67 28 29 20 ring toString()
0280: 7b 0a 09 09 09 73 74 72 69 6e 67 20 72 65 73 75 {....string resu
0290: 6c 74 3b 0a 09 09 09 66 6f 72 65 61 63 68 28 69 lt;....foreach(i
02a0: 2c 73 3b 20 64 61 74 61 29 20 7b 0a 09 09 09 09 ,s; data) {.....
02b0: 69 66 28 69 29 20 72 65 73 75 6c 74 20 7e 3d 20 if(i) result ~=
02c0: 27 5c 6e 27 3b 0a 09 09 09 09 72 65 73 75 6c 74 '\n';.....result
02d0: 20 7e 3d 20 73 2e 69 64 75 70 3b 0a 09 09 09 7d ~= s.idup;....}
02e0: 0a 09 09 09 72 65 74 75 72 6e 20 72 65 73 75 6c ....return resul
02f0: 74 3b 0a 09 09 7d 0a 09 7d 0a 0a 09 76 6f 69 64 t;...}..}...void
0300: 20 63 6f 6d 6d 61 6e 64 5f 52 28 29 20 7b 20 6d command_R() { m
0310: 6f 76 65 28 30 2c 20 2b 31 29 3b 20 7d 0a 09 76 ove(0, +1); }..v
0320: 6f 69 64 20 63 6f 6d 6d 61 6e 64 5f 4c 28 29 20 oid command_L()
0330: 7b 20 6d 6f 76 65 28 30 2c 20 2d 31 29 3b 20 7d { move(0, -1); }
0340: 0a 09 76 6f 69 64 20 63 6f 6d 6d 61 6e 64 5f 55 ..void command_U
0350: 28 29 20 7b 20 6d 6f 76 65 28 2d 31 2c 20 30 29 () { move(-1, 0)
0360: 3b 20 7d 0a 09 76 6f 69 64 20 63 6f 6d 6d 61 6e ; }..void comman
0370: 64 5f 44 28 29 20 7b 20 6d 6f 76 65 28 2b 31 2c d_D() { move(+1,
0380: 20 30 29 3b 20 7d 0a 09 76 6f 69 64 20 77 61 69 0); }..void wai
0390: 74 28 29 20 7b 20 75 70 64 61 74 65 28 29 3b 20 t() { update();
03a0: 7d 0a 0a 09 76 6f 69 64 20 6d 6f 76 65 28 69 6e }...void move(in
03b0: 74 20 64 79 2c 20 69 6e 74 20 64 78 29 20 7b 0a t dy, int dx) {.
03c0: 09 09 66 6f 72 65 61 63 68 28 79 2c 73 3b 20 64 ..foreach(y,s; d
03d0: 61 74 61 29 0a 09 09 66 6f 72 65 61 63 68 28 78 ata)...foreach(x
03e0: 2c 63 3b 20 73 29 0a 09 09 09 69 66 28 63 20 3d ,c; s)....if(c =
03f0: 3d 20 27 52 27 29 0a 09 09 09 09 72 65 74 75 72 = 'R').....retur
0400: 6e 20 6d 6f 76 65 28 64 79 2c 20 64 78 2c 20 79 n move(dy, dx, y
0410: 2c 20 78 29 3b 0a 09 7d 0a 0a 09 76 6f 69 64 20 , x);..}...void
0420: 6d 6f 76 65 28 69 6e 74 20 64 79 2c 20 69 6e 74 move(int dy, int
0430: 20 64 78 2c 20 69 6e 74 20 79 2c 20 69 6e 74 20 dx, int y, int
0440: 78 29 20 7b 0a 09 09 69 66 28 64 61 74 61 5b 79 x) {...if(data[y
0450: 2b 64 79 5d 5b 78 2b 64 78 5d 3d 3d 27 20 27 20 +dy][x+dx]==' '
0460: 7c 7c 20 64 61 74 61 5b 79 2b 64 79 5d 5b 78 2b || data[y+dy][x+
0470: 64 78 5d 3d 3d 27 2e 27 0a 09 09 20 20 20 7c 7c dx]=='.'... ||
0480: 20 64 61 74 61 5b 79 2b 64 79 5d 5b 78 2b 64 78 data[y+dy][x+dx
0490: 5d 3d 3d 27 5c 5c 27 20 7c 7c 20 64 61 74 61 5b ]=='\\' || data[
04a0: 79 2b 64 79 5d 5b 78 2b 64 78 5d 3d 3d 27 4f 27 y+dy][x+dx]=='O'
04b0: 29 20 7b 0a 09 09 09 64 61 74 61 5b 79 5d 5b 78 ) {....data[y][x
04c0: 5d 3d 27 20 27 3b 0a 09 09 09 64 61 74 61 5b 79 ]=' ';....data[y
04d0: 2b 64 79 5d 5b 78 2b 64 78 5d 3d 27 52 27 3b 0a +dy][x+dx]='R';.
04e0: 09 09 7d 20 65 6c 73 65 20 69 66 28 64 79 3d 3d ..} else if(dy==
04f0: 30 20 26 26 20 64 61 74 61 5b 79 2b 64 79 5d 5b 0 && data[y+dy][
0500: 78 2b 64 78 5d 3d 3d 27 2a 27 20 26 26 20 64 61 x+dx]=='*' && da
0510: 74 61 5b 79 2b 32 2a 64 79 5d 5b 78 2b 32 2a 64 ta[y+2*dy][x+2*d
0520: 78 5d 3d 3d 27 20 27 29 20 7b 0a 09 09 09 64 61 x]==' ') {....da
0530: 74 61 5b 79 5d 5b 78 5d 3d 27 20 27 3b 0a 09 09 ta[y][x]=' ';...
0540: 09 64 61 74 61 5b 79 2b 64 79 5d 5b 78 2b 64 78 .data[y+dy][x+dx
0550: 5d 3d 27 52 27 3b 0a 09 09 09 64 61 74 61 5b 79 ]='R';....data[y
0560: 2b 32 2a 64 79 5d 5b 78 2b 32 2a 64 78 5d 3d 27 +2*dy][x+2*dx]='
0570: 2a 27 3b 0a 09 09 7d 0a 09 09 75 70 64 61 74 65 *';...}...update
0580: 28 29 3b 0a 09 7d 0a 0a 09 76 6f 69 64 20 75 70 ();..}...void up
0590: 64 61 74 65 28 29 20 7b 0a 09 09 63 68 61 72 5b date() {...char[
05a0: 5d 5b 5d 20 6e 65 78 74 3b 0a 09 09 66 6f 72 65 ][] next;...fore
05b0: 61 63 68 28 79 2c 73 3b 20 64 61 74 61 29 0a 09 ach(y,s; data)..
05c0: 09 09 6e 65 78 74 20 7e 3d 20 73 2e 64 75 70 3b ..next ~= s.dup;
05d0: 0a 0a 09 09 62 6f 6f 6c 20 6c 61 6d 62 64 61 20 ....bool lambda
05e0: 3d 20 66 61 6c 73 65 3b 0a 09 09 66 6f 72 28 69 = false;...for(i
05f0: 6e 74 20 79 3d 31 3b 20 79 2b 31 3c 48 3b 20 2b nt y=1; y+1<H; +
0600: 2b 79 29 0a 09 09 66 6f 72 28 69 6e 74 20 78 3d +y)...for(int x=
0610: 31 3b 20 78 2b 31 3c 57 3b 20 2b 2b 78 29 0a 09 1; x+1<W; ++x)..
0620: 09 09 6c 61 6d 62 64 61 20 7c 3d 20 28 64 61 74 ..lambda |= (dat
0630: 61 5b 79 5d 5b 78 5d 20 3d 3d 20 27 5c 5c 27 29 a[y][x] == '\\')
0640: 3b 0a 0a 09 09 66 6f 72 28 69 6e 74 20 79 3d 31 ;....for(int y=1
0650: 3b 20 79 2b 31 3c 48 3b 20 2b 2b 79 29 0a 09 09 ; y+1<H; ++y)...
0660: 66 6f 72 28 69 6e 74 20 78 3d 31 3b 20 78 2b 31 for(int x=1; x+1
0670: 3c 57 3b 20 2b 2b 78 29 20 7b 0a 09 09 09 69 66 <W; ++x) {....if
0680: 28 64 61 74 61 5b 79 5d 5b 78 5d 3d 3d 27 2a 27 (data[y][x]=='*'
0690: 29 20 7b 0a 09 09 09 09 69 66 28 64 61 74 61 5b ) {.....if(data[
06a0: 79 2b 31 5d 5b 78 5d 3d 3d 27 20 27 29 20 7b 0a y+1][x]==' ') {.
06b0: 09 09 09 09 09 6e 65 78 74 5b 79 5d 5b 78 5d 3d .....next[y][x]=
06c0: 27 20 27 3b 0a 09 09 09 09 09 6e 65 78 74 5b 79 ' ';......next[y
06d0: 2b 31 5d 5b 78 5d 3d 27 2a 27 3b 0a 09 09 09 09 +1][x]='*';.....
06e0: 7d 0a 09 09 09 09 65 6c 73 65 20 69 66 28 64 61 }.....else if(da
06f0: 74 61 5b 79 2b 31 5d 5b 78 5d 3d 3d 27 2a 27 20 ta[y+1][x]=='*'
0700: 26 26 20 64 61 74 61 5b 79 5d 5b 78 2b 31 5d 3d && data[y][x+1]=
0710: 3d 27 20 27 20 26 26 20 64 61 74 61 5b 79 2b 31 =' ' && data[y+1
0720: 5d 5b 78 2b 31 5d 3d 3d 27 20 27 29 20 7b 0a 09 ][x+1]==' ') {..
0730: 09 09 09 09 6e 65 78 74 5b 79 5d 5b 78 5d 3d 27 ....next[y][x]='
0740: 20 27 3b 0a 09 09 09 09 09 6e 65 78 74 5b 79 2b ';......next[y+
0750: 31 5d 5b 78 2b 31 5d 3d 27 2a 27 3b 0a 09 09 09 1][x+1]='*';....
0760: 09 7d 0a 09 09 09 09 65 6c 73 65 20 69 66 28 64 .}.....else if(d
0770: 61 74 61 5b 79 2b 31 5d 5b 78 5d 3d 3d 27 2a 27 ata[y+1][x]=='*'
0780: 20 26 26 20 64 61 74 61 5b 79 5d 5b 78 2d 31 5d && data[y][x-1]
0790: 3d 3d 27 20 27 20 26 26 20 64 61 74 61 5b 79 2b ==' ' && data[y+
07a0: 31 5d 5b 78 2d 31 5d 3d 3d 27 20 27 29 20 7b 0a 1][x-1]==' ') {.
07b0: 09 09 09 09 09 6e 65 78 74 5b 79 5d 5b 78 5d 3d .....next[y][x]=
07c0: 27 20 27 3b 0a 09 09 09 09 09 6e 65 78 74 5b 79 ' ';......next[y
07d0: 2b 31 5d 5b 78 2d 31 5d 3d 27 2a 27 3b 0a 09 09 +1][x-1]='*';...
07e0: 09 09 7d 0a 09 09 09 09 65 6c 73 65 20 69 66 28 ..}.....else if(
07f0: 64 61 74 61 5b 79 2b 31 5d 5b 78 5d 3d 3d 27 5c data[y+1][x]=='\
0800: 5c 27 20 26 26 20 64 61 74 61 5b 79 5d 5b 78 2b \' && data[y][x+
0810: 31 5d 3d 3d 27 20 27 20 26 26 20 64 61 74 61 5b 1]==' ' && data[
0820: 79 2b 31 5d 5b 78 2b 31 5d 3d 3d 27 20 27 29 20 y+1][x+1]==' ')
0830: 7b 0a 09 09 09 09 09 6e 65 78 74 5b 79 5d 5b 78 {......next[y][x
0840: 5d 3d 27 20 27 3b 0a 09 09 09 09 09 6e 65 78 74 ]=' ';......next
0850: 5b 79 2b 31 5d 5b 78 2b 31 5d 3d 27 2a 27 3b 0a [y+1][x+1]='*';.
0860: 09 09 09 09 7d 0a 09 09 09 7d 0a 09 09 09 65 6c ....}....}....el
0870: 73 65 20 69 66 28 64 61 74 61 5b 79 5d 5b 78 5d se if(data[y][x]
0880: 3d 3d 27 4c 27 29 20 7b 0a 09 09 09 09 69 66 28 =='L') {.....if(
0890: 21 6c 61 6d 62 64 61 29 0a 09 09 09 09 09 6e 65 !lambda)......ne
08a0: 78 74 5b 79 5d 5b 78 5d 20 3d 20 27 4f 27 3b 0a xt[y][x] = 'O';.
08b0: 09 09 09 7d 0a 09 09 7d 0a 09 09 64 61 74 61 20 ...}...}...data
08c0: 3d 20 6e 65 78 74 3b 0a 09 7d 0a 7d 0a 0a 76 6f = next;..}.}..vo
08d0: 69 64 20 6d 61 69 6e 28 73 74 72 69 6e 67 5b 5d id main(string[]
08e0: 20 61 72 67 73 29 0a 7b 0a 09 4d 61 70 20 6d 20 args).{..Map m
08f0: 3d 20 6e 65 77 20 4d 61 70 28 46 69 6c 65 28 61 = new Map(File(a
0900: 72 67 73 5b 31 5d 29 29 3b 0a 09 66 6f 72 28 3b rgs[1]));..for(;
0910: 3b 29 20 7b 0a 09 09 77 72 69 74 65 6c 6e 28 6d ;) {...writeln(m
0920: 29 3b 0a 09 09 77 72 69 74 65 28 22 3e 20 22 29 );...write("> ")
0930: 3b 0a 09 09 73 74 72 69 6e 67 20 73 20 3d 20 72 ;...string s = r
0940: 65 61 64 6c 6e 28 29 3b 0a 09 09 69 66 28 73 2e eadln();...if(s.
0950: 6c 65 6e 67 74 68 20 3d 3d 20 30 29 0a 09 09 09 length == 0)....
0960: 62 72 65 61 6b 3b 0a 09 09 73 20 3d 20 73 2e 63 break;...s = s.c
0970: 68 6f 6d 70 28 29 2e 74 6f 55 70 70 65 72 28 29 homp().toUpper()
0980: 3b 0a 09 09 69 66 28 73 3d 3d 22 52 22 29 6d 2e ;...if(s=="R")m.
0990: 63 6f 6d 6d 61 6e 64 5f 52 28 29 3b 0a 09 09 69 command_R();...i
09a0: 66 28 73 3d 3d 22 4c 22 29 6d 2e 63 6f 6d 6d 61 f(s=="L")m.comma
09b0: 6e 64 5f 4c 28 29 3b 0a 09 09 69 66 28 73 3d 3d nd_L();...if(s==
09c0: 22 55 22 29 6d 2e 63 6f 6d 6d 61 6e 64 5f 55 28 "U")m.command_U(
09d0: 29 3b 0a 09 09 69 66 28 73 3d 3d 22 44 22 29 6d );...if(s=="D")m
09e0: 2e 63 6f 6d 6d 61 6e 64 5f 44 28 29 3b 0a 09 09 .command_D();...
09f0: 69 66 28 73 3d 3d 22 57 22 29 6d 2e 77 61 69 74 if(s=="W")m.wait
0a00: 28 29 3b 0a 09 7d 0a 0a 7d 0a ();..}..}.