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 6f 75 74 70 75 74 3b 0a 0a 2f 2f 2f ort output;..///
0020: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
0030: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
0040: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
0050: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
0060: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 0a 0a 63 /////////////..c
0070: 6c 61 73 73 20 50 6f 73 0a 7b 0a 09 70 75 62 6c lass Pos.{..publ
0080: 69 63 20 69 6d 6d 75 74 61 62 6c 65 20 69 6e 74 ic immutable int
0090: 20 79 2c 20 78 3b 0a 09 6d 69 78 69 6e 20 44 65 y, x;..mixin De
00a0: 72 69 76 65 43 72 65 61 74 65 3b 0a 09 6d 69 78 riveCreate;..mix
00b0: 69 6e 20 44 65 72 69 76 65 43 6f 6d 70 61 72 65 in DeriveCompare
00c0: 3b 0a 09 6d 69 78 69 6e 20 44 65 72 69 76 65 53 ;..mixin DeriveS
00d0: 68 6f 77 3b 0a 09 50 6f 73 20 63 6c 6f 6e 65 28 how;..Pos clone(
00e0: 29 20 7b 20 72 65 74 75 72 6e 20 74 68 69 73 3b ) { return this;
00f0: 20 7d 0a 0a 40 70 72 6f 70 65 72 74 79 3a 0a 09 }..@property:..
0100: 50 6f 73 20 77 61 69 74 28 29 20 20 7b 20 72 65 Pos wait() { re
0110: 74 75 72 6e 20 74 68 69 73 3b 20 7d 0a 09 50 6f turn this; }..Po
0120: 73 20 75 70 28 29 20 20 20 20 7b 20 72 65 74 75 s up() { retu
0130: 72 6e 20 6e 65 77 20 50 6f 73 28 79 2b 31 2c 20 rn new Pos(y+1,
0140: 78 29 3b 20 7d 0a 09 50 6f 73 20 64 6f 77 6e 28 x); }..Pos down(
0150: 29 20 20 7b 20 72 65 74 75 72 6e 20 6e 65 77 20 ) { return new
0160: 50 6f 73 28 79 2d 31 2c 20 78 29 3b 20 7d 0a 09 Pos(y-1, x); }..
0170: 50 6f 73 20 6c 65 66 74 28 29 20 20 7b 20 72 65 Pos left() { re
0180: 74 75 72 6e 20 6e 65 77 20 50 6f 73 28 79 2c 20 turn new Pos(y,
0190: 78 2d 31 29 3b 20 7d 0a 09 50 6f 73 20 72 69 67 x-1); }..Pos rig
01a0: 68 74 28 29 20 7b 20 72 65 74 75 72 6e 20 6e 65 ht() { return ne
01b0: 77 20 50 6f 73 28 79 2c 20 78 2b 31 29 3b 20 7d w Pos(y, x+1); }
01c0: 0a 09 61 6c 69 61 73 20 77 61 69 74 20 20 57 2c ..alias wait W,
01d0: 77 3b 0a 09 61 6c 69 61 73 20 75 70 20 20 20 20 w;..alias up
01e0: 55 2c 75 3b 0a 09 61 6c 69 61 73 20 64 6f 77 6e U,u;..alias down
01f0: 20 20 44 2c 64 3b 0a 09 61 6c 69 61 73 20 6c 65 D,d;..alias le
0200: 66 74 20 20 4c 2c 6c 3b 0a 09 61 6c 69 61 73 20 ft L,l;..alias
0210: 72 69 67 68 74 20 52 2c 72 3b 0a 7d 0a 0a 75 6e right R,r;.}..un
0220: 69 74 74 65 73 74 0a 7b 0a 09 61 73 73 65 72 74 ittest.{..assert
0230: 28 20 28 6e 65 77 20 50 6f 73 28 32 2c 31 29 29 ( (new Pos(2,1))
0240: 2e 55 20 3d 3d 20 6e 65 77 20 50 6f 73 28 33 2c .U == new Pos(3,
0250: 31 29 20 29 3b 0a 09 61 73 73 65 72 74 28 20 28 1) );..assert( (
0260: 6e 65 77 20 50 6f 73 28 30 2c 31 29 29 2e 44 20 new Pos(0,1)).D
0270: 3d 3d 20 6e 65 77 20 50 6f 73 28 2d 31 2c 31 29 == new Pos(-1,1)
0280: 20 29 3b 0a 09 61 73 73 65 72 74 28 20 28 6e 65 );..assert( (ne
0290: 77 20 50 6f 73 28 32 2c 31 29 29 2e 4c 20 3d 3d w Pos(2,1)).L ==
02a0: 20 6e 65 77 20 50 6f 73 28 32 2c 30 29 20 29 3b new Pos(2,0) );
02b0: 0a 09 61 73 73 65 72 74 28 20 28 6e 65 77 20 50 ..assert( (new P
02c0: 6f 73 28 32 2c 31 29 29 2e 52 20 3d 3d 20 6e 65 os(2,1)).R == ne
02d0: 77 20 50 6f 73 28 32 2c 32 29 20 29 3b 0a 09 69 w Pos(2,2) );..i
02e0: 6e 74 5b 50 6f 73 5d 20 61 61 3b 0a 09 61 61 5b nt[Pos] aa;..aa[
02f0: 6e 65 77 20 50 6f 73 28 31 2c 32 29 5d 20 3d 20 new Pos(1,2)] =
0300: 31 3b 0a 09 61 61 5b 6e 65 77 20 50 6f 73 28 31 1;..aa[new Pos(1
0310: 2c 32 29 5d 20 3d 20 32 3b 0a 09 61 61 5b 6e 65 ,2)] = 2;..aa[ne
0320: 77 20 50 6f 73 28 32 2c 31 29 5d 20 3d 20 33 3b w Pos(2,1)] = 3;
0330: 0a 09 61 73 73 65 72 74 28 20 61 61 2e 6c 65 6e ..assert( aa.len
0340: 67 74 68 3d 3d 32 20 29 3b 0a 09 61 73 73 65 72 gth==2 );..asser
0350: 74 28 20 61 61 5b 6e 65 77 20 50 6f 73 28 31 2c t( aa[new Pos(1,
0360: 32 29 5d 3d 3d 32 20 29 3b 0a 7d 0a 0a 2f 2f 2f 2)]==2 );.}..///
0370: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
0380: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
0390: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
03a0: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
03b0: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 0a 0a 63 /////////////..c
03c0: 6c 61 73 73 20 57 61 74 65 72 0a 7b 0a 09 70 75 lass Water.{..pu
03d0: 62 6c 69 63 20 69 6d 6d 75 74 61 62 6c 65 20 69 blic immutable i
03e0: 6e 74 20 62 61 73 65 2c 20 70 61 63 65 3b 0a 09 nt base, pace;..
03f0: 6d 69 78 69 6e 20 44 65 72 69 76 65 43 72 65 61 mixin DeriveCrea
0400: 74 65 3b 0a 09 6d 69 78 69 6e 20 44 65 72 69 76 te;..mixin Deriv
0410: 65 43 6f 6d 70 61 72 65 3b 0a 09 6d 69 78 69 6e eCompare;..mixin
0420: 20 44 65 72 69 76 65 53 68 6f 77 3b 0a 09 57 61 DeriveShow;..Wa
0430: 74 65 72 20 63 6c 6f 6e 65 28 29 20 7b 20 72 65 ter clone() { re
0440: 74 75 72 6e 20 74 68 69 73 3b 20 7d 0a 0a 09 73 turn this; }...s
0450: 74 61 74 69 63 20 6c 6f 61 64 28 73 74 72 69 6e tatic load(strin
0460: 67 5b 73 74 72 69 6e 67 5d 20 70 61 72 61 6d 73 g[string] params
0470: 29 0a 09 7b 0a 09 09 72 65 74 75 72 6e 20 6e 65 )..{...return ne
0480: 77 20 57 61 74 65 72 28 0a 09 09 09 70 61 72 61 w Water(....para
0490: 6d 73 2e 67 65 74 28 22 57 61 74 65 72 22 2c 20 ms.get("Water",
04a0: 20 20 20 22 30 22 29 2e 74 6f 21 69 6e 74 28 29 "0").to!int()
04b0: 2c 0a 09 09 09 70 61 72 61 6d 73 2e 67 65 74 28 ,....params.get(
04c0: 22 46 6c 6f 6f 64 69 6e 67 22 2c 20 22 30 22 29 "Flooding", "0")
04d0: 2e 74 6f 21 69 6e 74 28 29 0a 09 09 29 3b 0a 09 .to!int()...);..
04e0: 7d 0a 0a 09 69 6e 74 20 6c 65 76 65 6c 28 69 6e }...int level(in
04f0: 74 20 6e 75 6d 62 65 72 5f 6f 66 5f 75 70 64 61 t number_of_upda
0500: 74 65 29 0a 09 7b 0a 09 09 72 65 74 75 72 6e 20 te)..{...return
0510: 70 61 63 65 20 3f 20 62 61 73 65 2b 28 6e 75 6d pace ? base+(num
0520: 62 65 72 5f 6f 66 5f 75 70 64 61 74 65 2f 70 61 ber_of_update/pa
0530: 63 65 29 20 3a 20 62 61 73 65 3b 0a 09 7d 0a 0a ce) : base;..}..
0540: 09 69 6e 74 20 75 6e 74 69 6c 5f 72 69 73 65 28 .int until_rise(
0550: 69 6e 74 20 6e 75 6d 62 65 72 5f 6f 66 5f 75 70 int number_of_up
0560: 64 61 74 65 29 0a 09 7b 0a 09 09 72 65 74 75 72 date)..{...retur
0570: 6e 20 70 61 63 65 20 3f 20 70 61 63 65 2d 6e 75 n pace ? pace-nu
0580: 6d 62 65 72 5f 6f 66 5f 75 70 64 61 74 65 25 70 mber_of_update%p
0590: 61 63 65 20 3a 20 69 6e 74 2e 6d 61 78 3b 0a 09 ace : int.max;..
05a0: 7d 0a 7d 0a 0a 75 6e 69 74 74 65 73 74 0a 7b 0a }.}..unittest.{.
05b0: 09 57 61 74 65 72 20 77 20 3d 20 6e 65 77 20 57 .Water w = new W
05c0: 61 74 65 72 28 31 2c 20 33 29 3b 0a 09 61 73 73 ater(1, 3);..ass
05d0: 65 72 74 28 20 31 20 3d 3d 20 77 2e 6c 65 76 65 ert( 1 == w.leve
05e0: 6c 28 30 29 20 29 3b 0a 09 61 73 73 65 72 74 28 l(0) );..assert(
05f0: 20 31 20 3d 3d 20 77 2e 6c 65 76 65 6c 28 31 29 1 == w.level(1)
0600: 20 29 3b 0a 09 61 73 73 65 72 74 28 20 31 20 3d );..assert( 1 =
0610: 3d 20 77 2e 6c 65 76 65 6c 28 32 29 20 29 3b 0a = w.level(2) );.
0620: 09 61 73 73 65 72 74 28 20 32 20 3d 3d 20 77 2e .assert( 2 == w.
0630: 6c 65 76 65 6c 28 33 29 20 29 3b 0a 09 61 73 73 level(3) );..ass
0640: 65 72 74 28 20 32 20 3d 3d 20 77 2e 6c 65 76 65 ert( 2 == w.leve
0650: 6c 28 34 29 20 29 3b 0a 09 61 73 73 65 72 74 28 l(4) );..assert(
0660: 20 32 20 3d 3d 20 77 2e 6c 65 76 65 6c 28 35 29 2 == w.level(5)
0670: 20 29 3b 0a 09 61 73 73 65 72 74 28 20 33 20 3d );..assert( 3 =
0680: 3d 20 77 2e 6c 65 76 65 6c 28 36 29 20 29 3b 0a = w.level(6) );.
0690: 0a 09 77 20 3d 20 6e 65 77 20 57 61 74 65 72 28 ..w = new Water(
06a0: 31 2c 20 30 29 3b 0a 09 61 73 73 65 72 74 28 20 1, 0);..assert(
06b0: 31 20 3d 3d 20 77 2e 6c 65 76 65 6c 28 30 29 20 1 == w.level(0)
06c0: 29 3b 0a 09 61 73 73 65 72 74 28 20 31 20 3d 3d );..assert( 1 ==
06d0: 20 77 2e 6c 65 76 65 6c 28 31 29 20 29 3b 0a 09 w.level(1) );..
06e0: 61 73 73 65 72 74 28 20 31 20 3d 3d 20 77 2e 6c assert( 1 == w.l
06f0: 65 76 65 6c 28 32 29 20 29 3b 0a 09 61 73 73 65 evel(2) );..asse
0700: 72 74 28 20 31 20 3d 3d 20 77 2e 6c 65 76 65 6c rt( 1 == w.level
0710: 28 33 29 20 29 3b 0a 09 61 73 73 65 72 74 28 20 (3) );..assert(
0720: 31 20 3d 3d 20 77 2e 6c 65 76 65 6c 28 34 29 20 1 == w.level(4)
0730: 29 3b 0a 09 61 73 73 65 72 74 28 20 31 20 3d 3d );..assert( 1 ==
0740: 20 77 2e 6c 65 76 65 6c 28 35 29 20 29 3b 0a 7d w.level(5) );.}
0750: 0a 0a 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ..//////////////
0760: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
0770: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
0780: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
0790: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
07a0: 2f 2f 0a 0a 63 6c 61 73 73 20 4d 61 70 0a 7b 0a //..class Map.{.
07b0: 09 6d 69 78 69 6e 20 44 65 72 69 76 65 53 68 6f .mixin DeriveSho
07c0: 77 3b 0a 0a 09 73 74 61 74 69 63 20 4d 61 70 20 w;...static Map
07d0: 6c 6f 61 64 28 73 74 72 69 6e 67 5b 5d 20 72 61 load(string[] ra
07e0: 77 5f 64 61 74 61 2c 20 73 74 72 69 6e 67 5b 73 w_data, string[s
07f0: 74 72 69 6e 67 5d 20 70 61 72 61 6d 73 29 0a 09 tring] params)..
0800: 7b 0a 09 09 2f 2f 20 54 4f 44 4f 3a 20 63 68 6f {...// TODO: cho
0810: 6f 73 65 20 6f 70 74 69 6d 61 6c 20 72 65 70 72 ose optimal repr
0820: 65 73 65 6e 74 61 74 69 6f 6e 2e 0a 09 09 72 65 esentation....re
0830: 74 75 72 6e 20 6e 65 77 20 4d 61 70 28 72 61 77 turn new Map(raw
0840: 5f 64 61 74 61 2c 20 70 61 72 61 6d 73 29 3b 0a _data, params);.
0850: 09 7d 0a 0a 09 63 68 61 72 5b 5d 5b 5d 20 64 61 .}...char[][] da
0860: 74 61 3b 0a 09 50 6f 73 20 72 6f 62 6f 74 3b 0a ta;..Pos robot;.
0870: 09 50 6f 73 20 6c 69 66 74 3b 0a 09 69 6e 74 20 .Pos lift;..int
0880: 77 61 74 65 72 70 72 6f 6f 66 3b 0a 0a 09 4d 61 waterproof;...Ma
0890: 70 20 63 6c 6f 6e 65 28 29 20 7b 20 72 65 74 75 p clone() { retu
08a0: 72 6e 20 6e 65 77 20 4d 61 70 28 74 68 69 73 29 rn new Map(this)
08b0: 3b 20 7d 0a 09 74 68 69 73 28 4d 61 70 20 6d 29 ; }..this(Map m)
08c0: 20 7b 0a 09 09 66 6f 72 65 61 63 68 28 73 3b 20 {...foreach(s;
08d0: 6d 2e 64 61 74 61 29 0a 09 09 09 74 68 69 73 2e m.data)....this.
08e0: 64 61 74 61 20 7e 3d 20 73 2e 64 75 70 3b 0a 09 data ~= s.dup;..
08f0: 09 74 68 69 73 2e 72 6f 62 6f 74 20 3d 20 6d 2e .this.robot = m.
0900: 72 6f 62 6f 74 2e 63 6c 6f 6e 65 28 29 3b 0a 09 robot.clone();..
0910: 09 74 68 69 73 2e 6c 69 66 74 20 3d 20 6d 2e 6c .this.lift = m.l
0920: 69 66 74 2e 63 6c 6f 6e 65 28 29 3b 0a 09 09 74 ift.clone();...t
0930: 68 69 73 2e 77 61 74 65 72 70 72 6f 6f 66 20 3d his.waterproof =
0940: 20 6d 2e 77 61 74 65 72 70 72 6f 6f 66 3b 0a 09 m.waterproof;..
0950: 7d 0a 0a 09 74 68 69 73 28 73 74 72 69 6e 67 5b }...this(string[
0960: 5d 20 72 61 77 5f 64 61 74 61 2c 20 73 74 72 69 ] raw_data, stri
0970: 6e 67 5b 73 74 72 69 6e 67 5d 20 70 61 72 61 6d ng[string] param
0980: 73 29 0a 09 7b 0a 09 09 69 6e 74 20 77 69 64 74 s)..{...int widt
0990: 68 20 3d 20 30 3b 0a 09 09 66 6f 72 65 61 63 68 h = 0;...foreach
09a0: 28 72 3b 20 72 61 77 5f 64 61 74 61 29 0a 09 09 (r; raw_data)...
09b0: 09 77 69 64 74 68 20 3d 20 6d 61 78 28 77 69 64 .width = max(wid
09c0: 74 68 2c 20 72 2e 6c 65 6e 67 74 68 29 3b 0a 09 th, r.length);..
09d0: 09 66 6f 72 65 61 63 68 28 72 3b 20 72 61 77 5f .foreach(r; raw_
09e0: 64 61 74 61 29 20 7b 0a 09 09 09 74 68 69 73 2e data) {....this.
09f0: 64 61 74 61 20 7e 3d 20 72 2e 64 75 70 3b 0a 09 data ~= r.dup;..
0a00: 09 09 74 68 69 73 2e 64 61 74 61 5b 24 2d 31 5d ..this.data[$-1]
0a10: 2e 6c 65 6e 67 74 68 20 3d 20 77 69 64 74 68 3b .length = width;
0a20: 0a 09 09 09 74 68 69 73 2e 64 61 74 61 5b 24 2d ....this.data[$-
0a30: 31 5d 5b 72 2e 6c 65 6e 67 74 68 2e 2e 24 5d 20 1][r.length..$]
0a40: 3d 20 27 20 27 3b 0a 09 09 7d 0a 0a 09 09 66 6f = ' ';...}....fo
0a50: 72 28 69 6e 74 20 79 3d 31 3b 20 79 3c 3d 48 3b r(int y=1; y<=H;
0a60: 20 2b 2b 79 29 0a 09 09 66 6f 72 28 69 6e 74 20 ++y)...for(int
0a70: 78 3d 31 3b 20 78 3c 3d 57 3b 20 2b 2b 78 29 20 x=1; x<=W; ++x)
0a80: 7b 0a 09 09 09 69 66 28 74 68 69 73 5b 79 2c 78 {....if(this[y,x
0a90: 5d 20 3d 3d 20 27 52 27 29 0a 09 09 09 09 74 68 ] == 'R').....th
0aa0: 69 73 2e 72 6f 62 6f 74 20 3d 20 6e 65 77 20 50 is.robot = new P
0ab0: 6f 73 28 79 2c 78 29 3b 0a 09 09 09 69 66 28 74 os(y,x);....if(t
0ac0: 68 69 73 5b 79 2c 78 5d 20 3d 3d 20 27 4c 27 20 his[y,x] == 'L'
0ad0: 7c 7c 20 74 68 69 73 5b 79 2c 78 5d 20 3d 3d 20 || this[y,x] ==
0ae0: 27 4f 27 29 0a 09 09 09 09 74 68 69 73 2e 6c 69 'O').....this.li
0af0: 66 74 20 3d 20 6e 65 77 20 50 6f 73 28 79 2c 78 ft = new Pos(y,x
0b00: 29 3b 0a 09 09 7d 0a 0a 09 09 74 68 69 73 2e 77 );...}....this.w
0b10: 61 74 65 72 70 72 6f 6f 66 20 3d 20 70 61 72 61 aterproof = para
0b20: 6d 73 2e 67 65 74 28 22 57 61 74 65 72 70 72 6f ms.get("Waterpro
0b30: 6f 66 22 2c 20 22 35 22 29 2e 74 6f 21 69 6e 74 of", "5").to!int
0b40: 28 29 3b 0a 09 7d 0a 0a 09 63 6f 6e 73 74 20 40 ();..}...const @
0b50: 70 72 6f 70 65 72 74 79 20 7b 0a 09 09 69 6e 74 property {...int
0b60: 20 48 28 29 20 7b 20 72 65 74 75 72 6e 20 64 61 H() { return da
0b70: 74 61 2e 6c 65 6e 67 74 68 3b 20 7d 0a 09 09 69 ta.length; }...i
0b80: 6e 74 20 57 28 29 20 7b 20 72 65 74 75 72 6e 20 nt W() { return
0b90: 64 61 74 61 5b 30 5d 2e 6c 65 6e 67 74 68 3b 20 data[0].length;
0ba0: 7d 0a 09 7d 0a 0a 09 63 68 61 72 20 6f 70 49 6e }..}...char opIn
0bb0: 64 65 78 28 69 6e 74 20 79 2c 20 69 6e 74 20 78 dex(int y, int x
0bc0: 29 0a 09 7b 0a 09 09 2f 2f 20 41 64 6a 75 73 74 )..{...// Adjust
0bd0: 20 63 6f 6f 72 64 69 6e 61 74 65 20 74 6f 20 74 coordinate to t
0be0: 68 65 20 73 70 65 63 2e 20 62 6f 74 74 6f 6d 2d he spec. bottom-
0bf0: 6c 65 66 74 20 69 73 20 28 31 2c 31 29 2e 0a 09 left is (1,1)...
0c00: 09 2d 2d 79 2c 20 2d 2d 78 3b 0a 09 09 69 66 28 .--y, --x;...if(
0c10: 79 3c 30 7c 7c 48 3c 3d 79 7c 7c 78 3c 30 7c 7c y<0||H<=y||x<0||
0c20: 57 3c 3d 78 29 0a 09 09 09 72 65 74 75 72 6e 20 W<=x)....return
0c30: 27 23 27 3b 0a 09 09 72 65 74 75 72 6e 20 64 61 '#';...return da
0c40: 74 61 5b 48 2d 31 2d 79 5d 5b 78 5d 3b 0a 09 7d ta[H-1-y][x];..}
0c50: 0a 0a 09 63 68 61 72 20 6f 70 49 6e 64 65 78 28 ...char opIndex(
0c60: 50 6f 73 20 70 29 0a 09 7b 0a 09 09 72 65 74 75 Pos p)..{...retu
0c70: 72 6e 20 74 68 69 73 5b 70 2e 79 2c 20 70 2e 78 rn this[p.y, p.x
0c80: 5d 3b 0a 09 7d 0a 0a 09 76 6f 69 64 20 6f 70 49 ];..}...void opI
0c90: 6e 64 65 78 41 73 73 69 67 6e 28 63 68 61 72 20 ndexAssign(char
0ca0: 63 2c 20 69 6e 74 20 79 2c 20 69 6e 74 20 78 29 c, int y, int x)
0cb0: 0a 09 7b 0a 09 09 2f 2f 20 41 64 6a 75 73 74 20 ..{...// Adjust
0cc0: 63 6f 6f 72 64 69 6e 61 74 65 20 74 6f 20 74 68 coordinate to th
0cd0: 65 20 73 70 65 63 2e 20 62 6f 74 74 6f 6d 2d 6c e spec. bottom-l
0ce0: 65 66 74 20 69 73 20 28 31 2c 31 29 2e 0a 09 09 eft is (1,1)....
0cf0: 2d 2d 79 2c 20 2d 2d 78 3b 0a 09 09 69 66 28 79 --y, --x;...if(y
0d00: 3c 30 7c 7c 48 3c 3d 79 7c 7c 78 3c 30 7c 7c 57 <0||H<=y||x<0||W
0d10: 3c 3d 78 29 0a 09 09 09 72 65 74 75 72 6e 3b 0a <=x)....return;.
0d20: 09 09 64 61 74 61 5b 48 2d 31 2d 79 5d 5b 78 5d ..data[H-1-y][x]
0d30: 20 3d 20 63 3b 0a 09 7d 0a 0a 09 76 6f 69 64 20 = c;..}...void
0d40: 6f 70 49 6e 64 65 78 41 73 73 69 67 6e 28 63 68 opIndexAssign(ch
0d50: 61 72 20 63 2c 20 50 6f 73 20 70 29 0a 09 7b 0a ar c, Pos p)..{.
0d60: 09 09 74 68 69 73 5b 70 2e 79 2c 20 70 2e 78 5d ..this[p.y, p.x]
0d70: 20 3d 20 63 3b 0a 09 7d 0a 0a 09 50 6f 73 5b 5d = c;..}...Pos[]
0d80: 20 6c 61 6d 62 64 61 73 28 29 20 7b 0a 09 09 50 lambdas() {...P
0d90: 6f 73 5b 5d 20 61 6e 73 3b 0a 09 09 66 6f 72 28 os[] ans;...for(
0da0: 69 6e 74 20 79 3d 31 3b 20 79 3c 3d 48 3b 20 2b int y=1; y<=H; +
0db0: 2b 79 29 0a 09 09 66 6f 72 28 69 6e 74 20 78 3d +y)...for(int x=
0dc0: 31 3b 20 78 3c 3d 57 3b 20 2b 2b 78 29 0a 09 09 1; x<=W; ++x)...
0dd0: 09 69 66 28 74 68 69 73 5b 79 2c 78 5d 20 3d 3d .if(this[y,x] ==
0de0: 20 27 5c 5c 27 29 0a 09 09 09 09 61 6e 73 20 7e '\\').....ans ~
0df0: 3d 20 6e 65 77 20 50 6f 73 28 79 2c 78 29 3b 0a = new Pos(y,x);.
0e00: 09 09 72 65 74 75 72 6e 20 61 6e 73 3b 0a 09 7d ..return ans;..}
0e10: 0a 0a 09 62 6f 6f 6c 20 63 6c 65 61 72 65 64 28 ...bool cleared(
0e20: 29 0a 09 7b 0a 09 09 66 6f 72 28 69 6e 74 20 79 )..{...for(int y
0e30: 3d 31 3b 20 79 3c 3d 48 3b 20 2b 2b 79 29 0a 09 =1; y<=H; ++y)..
0e40: 09 66 6f 72 28 69 6e 74 20 78 3d 31 3b 20 78 3c .for(int x=1; x<
0e50: 3d 57 3b 20 2b 2b 78 29 0a 09 09 09 69 66 28 74 =W; ++x)....if(t
0e60: 68 69 73 5b 79 2c 78 5d 20 3d 3d 20 27 4c 27 20 his[y,x] == 'L'
0e70: 7c 7c 20 74 68 69 73 5b 79 2c 78 5d 20 3d 3d 20 || this[y,x] ==
0e80: 27 4f 27 29 0a 09 09 09 09 72 65 74 75 72 6e 20 'O').....return
0e90: 66 61 6c 73 65 3b 0a 09 09 72 65 74 75 72 6e 20 false;...return
0ea0: 74 72 75 65 3b 0a 09 7d 0a 09 0a 09 54 75 70 6c true;..}....Tupl
0eb0: 65 21 28 69 6e 74 2c 62 6f 6f 6c 29 20 63 6f 6d e!(int,bool) com
0ec0: 6d 61 6e 64 28 63 68 61 72 20 63 29 0a 09 7b 0a mand(char c)..{.
0ed0: 09 09 69 66 28 63 3d 3d 27 52 27 29 20 72 65 74 ..if(c=='R') ret
0ee0: 75 72 6e 20 6d 6f 76 65 28 20 30 2c 20 2b 31 29 urn move( 0, +1)
0ef0: 3b 0a 09 09 69 66 28 63 3d 3d 27 4c 27 29 20 72 ;...if(c=='L') r
0f00: 65 74 75 72 6e 20 6d 6f 76 65 28 20 30 2c 20 2d eturn move( 0, -
0f10: 31 29 3b 0a 09 09 69 66 28 63 3d 3d 27 55 27 29 1);...if(c=='U')
0f20: 20 72 65 74 75 72 6e 20 6d 6f 76 65 28 2b 31 2c return move(+1,
0f30: 20 20 30 29 3b 0a 09 09 69 66 28 63 3d 3d 27 44 0);...if(c=='D
0f40: 27 29 20 72 65 74 75 72 6e 20 6d 6f 76 65 28 2d ') return move(-
0f50: 31 2c 20 20 30 29 3b 0a 09 09 69 66 28 63 3d 3d 1, 0);...if(c==
0f60: 27 57 27 29 20 72 65 74 75 72 6e 20 6d 6f 76 65 'W') return move
0f70: 28 20 30 2c 20 20 30 29 3b 0a 09 09 61 73 73 65 ( 0, 0);...asse
0f80: 72 74 28 66 61 6c 73 65 29 3b 0a 09 7d 0a 0a 09 rt(false);..}...
0f90: 54 75 70 6c 65 21 28 69 6e 74 2c 20 62 6f 6f 6c Tuple!(int, bool
0fa0: 29 20 6d 6f 76 65 28 69 6e 74 20 64 79 2c 20 69 ) move(int dy, i
0fb0: 6e 74 20 64 78 29 0a 09 7b 0a 09 09 69 6e 74 20 nt dx)..{...int
0fc0: 79 20 3d 20 72 6f 62 6f 74 2e 79 3b 0a 09 09 69 y = robot.y;...i
0fd0: 6e 74 20 78 20 3d 20 72 6f 62 6f 74 2e 78 3b 0a nt x = robot.x;.
0fe0: 09 09 61 73 73 65 72 74 28 20 74 68 69 73 5b 72 ..assert( this[r
0ff0: 6f 62 6f 74 5d 20 3d 3d 20 27 52 27 20 29 3b 0a obot] == 'R' );.
1000: 09 09 69 6e 74 20 6c 61 6d 62 64 61 20 3d 20 30 ..int lambda = 0
1010: 3b 0a 09 09 62 6f 6f 6c 20 64 65 61 64 20 3d 20 ;...bool dead =
1020: 66 61 6c 73 65 3b 0a 09 09 69 66 28 20 27 5c 5c false;...if( '\\
1030: 27 20 3d 3d 20 74 68 69 73 5b 79 2b 64 79 2c 78 ' == this[y+dy,x
1040: 2b 64 78 5d 20 29 0a 09 09 09 6c 61 6d 62 64 61 +dx] )....lambda
1050: 2b 2b 3b 0a 09 09 69 66 28 20 22 20 5c 5c 2e 4f ++;...if( " \\.O
1060: 22 2e 63 6f 75 6e 74 28 74 68 69 73 5b 79 2b 64 ".count(this[y+d
1070: 79 2c 78 2b 64 78 5d 29 3d 3d 31 20 29 20 7b 0a y,x+dx])==1 ) {.
1080: 09 09 09 74 68 69 73 5b 79 2c 78 5d 3d 27 20 27 ...this[y,x]=' '
1090: 3b 0a 09 09 09 74 68 69 73 5b 79 2b 64 79 2c 78 ;....this[y+dy,x
10a0: 2b 64 78 5d 3d 27 52 27 3b 0a 09 09 09 72 6f 62 +dx]='R';....rob
10b0: 6f 74 20 3d 20 6e 65 77 20 50 6f 73 28 79 2b 64 ot = new Pos(y+d
10c0: 79 2c 78 2b 64 78 29 3b 0a 09 09 7d 20 65 6c 73 y,x+dx);...} els
10d0: 65 20 69 66 28 64 79 3d 3d 30 20 26 26 20 27 2a e if(dy==0 && '*
10e0: 27 3d 3d 74 68 69 73 5b 79 2b 64 79 2c 78 2b 64 '==this[y+dy,x+d
10f0: 78 5d 20 26 26 20 27 20 27 3d 3d 74 68 69 73 5b x] && ' '==this[
1100: 79 2b 64 79 2a 32 2c 78 2b 64 78 2a 32 5d 29 20 y+dy*2,x+dx*2])
1110: 7b 0a 09 09 09 74 68 69 73 5b 79 2c 78 5d 3d 27 {....this[y,x]='
1120: 20 27 3b 0a 09 09 09 74 68 69 73 5b 79 2b 64 79 ';....this[y+dy
1130: 2c 78 2b 64 78 5d 3d 27 52 27 3b 0a 09 09 09 74 ,x+dx]='R';....t
1140: 68 69 73 5b 79 2b 64 79 2a 32 2c 78 2b 64 78 2a his[y+dy*2,x+dx*
1150: 32 5d 3d 27 2a 27 3b 0a 09 09 09 72 6f 62 6f 74 2]='*';....robot
1160: 20 3d 20 6e 65 77 20 50 6f 73 28 79 2b 64 79 2c = new Pos(y+dy,
1170: 78 2b 64 78 29 3b 0a 09 09 7d 0a 09 09 69 66 28 x+dx);...}...if(
1180: 20 75 70 64 61 74 65 28 29 20 29 0a 09 09 09 64 update() )....d
1190: 65 61 64 20 3d 20 74 72 75 65 3b 0a 09 09 72 65 ead = true;...re
11a0: 74 75 72 6e 20 74 75 70 6c 65 28 6c 61 6d 62 64 turn tuple(lambd
11b0: 61 2c 64 65 61 64 29 3b 0a 09 7d 0a 0a 09 62 6f a,dead);..}...bo
11c0: 6f 6c 20 75 70 64 61 74 65 28 29 0a 09 7b 0a 09 ol update()..{..
11d0: 09 62 6f 6f 6c 20 64 65 61 64 20 3d 20 66 61 6c .bool dead = fal
11e0: 73 65 3b 0a 0a 09 09 63 68 61 72 5b 5d 5b 5d 20 se;....char[][]
11f0: 6e 65 78 74 3b 0a 09 09 66 6f 72 65 61 63 68 28 next;...foreach(
1200: 79 2c 73 3b 20 64 61 74 61 29 0a 09 09 09 6e 65 y,s; data)....ne
1210: 78 74 20 7e 3d 20 73 2e 64 75 70 3b 0a 0a 09 09 xt ~= s.dup;....
1220: 72 65 66 20 63 68 61 72 20 61 63 63 65 73 73 28 ref char access(
1230: 50 6f 73 20 70 29 20 7b 20 72 65 74 75 72 6e 20 Pos p) { return
1240: 6e 65 78 74 5b 48 2d 70 2e 79 5d 5b 70 2e 78 2d next[H-p.y][p.x-
1250: 31 5d 3b 20 7d 0a 0a 09 09 62 6f 6f 6c 20 6c 61 1]; }....bool la
1260: 6d 62 64 61 20 3d 20 66 61 6c 73 65 3b 0a 09 09 mbda = false;...
1270: 66 6f 72 28 69 6e 74 20 79 3d 31 3b 20 79 3c 3d for(int y=1; y<=
1280: 48 3b 20 2b 2b 79 29 0a 09 09 66 6f 72 28 69 6e H; ++y)...for(in
1290: 74 20 78 3d 31 3b 20 78 3c 3d 57 3b 20 2b 2b 78 t x=1; x<=W; ++x
12a0: 29 0a 09 09 09 6c 61 6d 62 64 61 20 7c 3d 20 28 )....lambda |= (
12b0: 74 68 69 73 5b 79 2c 78 5d 20 3d 3d 20 27 5c 5c this[y,x] == '\\
12c0: 27 29 3b 0a 0a 09 09 66 6f 72 28 69 6e 74 20 79 ');....for(int y
12d0: 3d 31 3b 20 79 3c 3d 48 3b 20 2b 2b 79 29 0a 09 =1; y<=H; ++y)..
12e0: 09 66 6f 72 28 69 6e 74 20 78 3d 31 3b 20 78 3c .for(int x=1; x<
12f0: 3d 57 3b 20 2b 2b 78 29 20 7b 0a 09 09 09 50 6f =W; ++x) {....Po
1300: 73 20 70 20 3d 20 6e 65 77 20 50 6f 73 28 79 2c s p = new Pos(y,
1310: 78 29 3b 0a 09 09 09 69 66 28 74 68 69 73 5b 70 x);....if(this[p
1320: 5d 3d 3d 27 2a 27 29 20 7b 0a 09 09 09 09 69 66 ]=='*') {.....if
1330: 28 74 68 69 73 5b 70 2e 44 5d 3d 3d 27 20 27 29 (this[p.D]==' ')
1340: 20 7b 0a 09 09 09 09 09 61 63 63 65 73 73 28 70 {......access(p
1350: 29 20 20 3d 27 20 27 3b 0a 09 09 09 09 09 61 63 ) =' ';......ac
1360: 63 65 73 73 28 70 2e 44 29 3d 27 2a 27 3b 0a 09 cess(p.D)='*';..
1370: 09 09 09 09 69 66 28 72 6f 62 6f 74 20 3d 3d 20 ....if(robot ==
1380: 70 2e 44 2e 44 29 0a 09 09 09 09 09 09 64 65 61 p.D.D).......dea
1390: 64 3d 74 72 75 65 3b 0a 09 09 09 09 7d 0a 09 09 d=true;.....}...
13a0: 09 09 65 6c 73 65 20 69 66 28 28 74 68 69 73 5b ..else if((this[
13b0: 70 2e 44 5d 3d 3d 27 2a 27 20 7c 7c 20 74 68 69 p.D]=='*' || thi
13c0: 73 5b 70 2e 44 5d 3d 3d 27 5c 5c 27 29 20 26 26 s[p.D]=='\\') &&
13d0: 20 74 68 69 73 5b 70 2e 52 5d 3d 3d 27 20 27 20 this[p.R]==' '
13e0: 26 26 20 74 68 69 73 5b 70 2e 52 2e 44 5d 3d 3d && this[p.R.D]==
13f0: 27 20 27 29 20 7b 0a 09 09 09 09 09 61 63 63 65 ' ') {......acce
1400: 73 73 28 70 29 3d 27 20 27 3b 0a 09 09 09 09 09 ss(p)=' ';......
1410: 61 63 63 65 73 73 28 70 2e 52 2e 44 29 3d 27 2a access(p.R.D)='*
1420: 27 3b 0a 09 09 09 09 09 69 66 28 72 6f 62 6f 74 ';......if(robot
1430: 20 3d 3d 20 70 2e 52 2e 44 2e 44 29 0a 09 09 09 == p.R.D.D)....
1440: 09 09 09 64 65 61 64 3d 74 72 75 65 3b 0a 09 09 ...dead=true;...
1450: 09 09 7d 0a 09 09 09 09 65 6c 73 65 20 69 66 28 ..}.....else if(
1460: 74 68 69 73 5b 70 2e 44 5d 3d 3d 27 2a 27 20 26 this[p.D]=='*' &
1470: 26 20 74 68 69 73 5b 70 2e 4c 5d 3d 3d 27 20 27 & this[p.L]==' '
1480: 20 26 26 20 74 68 69 73 5b 70 2e 4c 2e 44 5d 3d && this[p.L.D]=
1490: 3d 27 20 27 29 20 7b 0a 09 09 09 09 09 61 63 63 =' ') {......acc
14a0: 65 73 73 28 70 29 3d 27 20 27 3b 0a 09 09 09 09 ess(p)=' ';.....
14b0: 09 61 63 63 65 73 73 28 70 2e 4c 2e 44 29 3d 27 .access(p.L.D)='
14c0: 2a 27 3b 0a 09 09 09 09 09 69 66 28 72 6f 62 6f *';......if(robo
14d0: 74 20 3d 3d 20 70 2e 4c 2e 44 2e 44 29 0a 09 09 t == p.L.D.D)...
14e0: 09 09 09 09 64 65 61 64 3d 74 72 75 65 3b 0a 09 ....dead=true;..
14f0: 09 09 09 7d 0a 09 09 09 7d 0a 09 09 09 65 6c 73 ...}....}....els
1500: 65 20 69 66 28 74 68 69 73 5b 70 5d 3d 3d 27 4c e if(this[p]=='L
1510: 27 29 20 7b 0a 09 09 09 09 69 66 28 21 6c 61 6d ') {.....if(!lam
1520: 62 64 61 29 0a 09 09 09 09 09 61 63 63 65 73 73 bda)......access
1530: 28 70 29 20 3d 20 27 4f 27 3b 0a 09 09 09 7d 0a (p) = 'O';....}.
1540: 09 09 7d 0a 09 09 64 61 74 61 20 3d 20 6e 65 78 ..}...data = nex
1550: 74 3b 0a 09 09 72 65 74 75 72 6e 20 64 65 61 64 t;...return dead
1560: 3b 0a 09 7d 0a 7d 0a 0a 2f 2f 2f 2f 2f 2f 2f 2f ;..}.}..////////
1570: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
1580: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
1590: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
15a0: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
15b0: 2f 2f 2f 2f 2f 2f 2f 2f 0a 0a 63 6c 61 73 73 20 ////////..class
15c0: 47 61 6d 65 0a 7b 0a 09 6d 69 78 69 6e 20 44 65 Game.{..mixin De
15d0: 72 69 76 65 53 68 6f 77 3b 0a 0a 09 73 74 61 74 riveShow;...stat
15e0: 69 63 20 47 61 6d 65 20 6c 6f 61 64 28 46 69 6c ic Game load(Fil
15f0: 65 20 69 6e 70 75 74 29 0a 09 7b 0a 09 09 73 74 e input)..{...st
1600: 72 69 6e 67 5b 5d 20 20 20 20 20 20 20 72 61 77 ring[] raw
1610: 5f 64 61 74 61 3b 0a 09 09 73 74 72 69 6e 67 5b _data;...string[
1620: 73 74 72 69 6e 67 5d 20 70 61 72 61 6d 73 3b 0a string] params;.
1630: 0a 09 09 2f 2f 20 52 61 77 20 6d 61 70 20 64 61 ...// Raw map da
1640: 74 61 3b 20 72 65 61 64 20 75 6e 74 69 6c 20 65 ta; read until e
1650: 6d 70 74 79 20 6c 69 6e 65 2e 0a 09 09 66 6f 72 mpty line....for
1660: 28 73 74 72 69 6e 67 20 6c 69 6e 65 3b 20 21 28 (string line; !(
1670: 6c 69 6e 65 3d 69 6e 70 75 74 2e 72 65 61 64 6c line=input.readl
1680: 6e 28 29 2e 63 68 6f 6d 70 28 29 29 2e 65 6d 70 n().chomp()).emp
1690: 74 79 3b 20 29 0a 09 09 09 72 61 77 5f 64 61 74 ty; )....raw_dat
16a0: 61 20 7e 3d 20 6c 69 6e 65 3b 0a 0a 09 09 2f 2f a ~= line;....//
16b0: 20 41 64 64 69 74 69 6f 6e 61 6c 20 63 6f 6d 6d Additional comm
16c0: 61 6e 64 73 3b 20 72 65 61 64 20 75 6e 74 69 6c ands; read until
16d0: 20 45 4f 46 2e 0a 09 09 66 6f 72 28 73 74 72 69 EOF....for(stri
16e0: 6e 67 20 6c 69 6e 65 3b 20 21 28 6c 69 6e 65 3d ng line; !(line=
16f0: 69 6e 70 75 74 2e 72 65 61 64 6c 6e 28 29 29 2e input.readln()).
1700: 65 6d 70 74 79 3b 20 29 20 7b 0a 09 09 09 73 74 empty; ) {....st
1710: 72 69 6e 67 5b 5d 20 73 73 20 3d 20 6c 69 6e 65 ring[] ss = line
1720: 2e 73 70 6c 69 74 28 29 3b 0a 09 09 09 69 66 28 .split();....if(
1730: 20 73 73 2e 6c 65 6e 67 74 68 20 3d 3d 20 32 20 ss.length == 2
1740: 29 0a 09 09 09 09 70 61 72 61 6d 73 5b 73 73 5b ).....params[ss[
1750: 30 5d 5d 20 3d 20 73 73 5b 31 5d 3b 0a 09 09 7d 0]] = ss[1];...}
1760: 0a 0a 09 09 72 65 74 75 72 6e 20 6c 6f 61 64 28 ....return load(
1770: 72 61 77 5f 64 61 74 61 2c 20 70 61 72 61 6d 73 raw_data, params
1780: 29 3b 0a 09 7d 0a 0a 09 73 74 61 74 69 63 20 47 );..}...static G
1790: 61 6d 65 20 6c 6f 61 64 28 73 74 72 69 6e 67 5b ame load(string[
17a0: 5d 20 72 61 77 5f 64 61 74 61 2c 20 73 74 72 69 ] raw_data, stri
17b0: 6e 67 5b 73 74 72 69 6e 67 5d 20 70 61 72 61 6d ng[string] param
17c0: 73 29 0a 09 7b 0a 09 09 72 65 74 75 72 6e 20 6e s)..{...return n
17d0: 65 77 20 47 61 6d 65 28 72 61 77 5f 64 61 74 61 ew Game(raw_data
17e0: 2c 20 70 61 72 61 6d 73 29 3b 0a 09 7d 0a 0a 09 , params);..}...
17f0: 74 68 69 73 28 73 74 72 69 6e 67 5b 5d 20 72 61 this(string[] ra
1800: 77 5f 64 61 74 61 2c 20 73 74 72 69 6e 67 5b 73 w_data, string[s
1810: 74 72 69 6e 67 5d 20 70 61 72 61 6d 73 29 0a 09 tring] params)..
1820: 7b 0a 09 09 74 68 69 73 2e 6d 61 70 20 3d 20 4d {...this.map = M
1830: 61 70 2e 6c 6f 61 64 28 72 61 77 5f 64 61 74 61 ap.load(raw_data
1840: 2c 20 70 61 72 61 6d 73 29 3b 0a 09 09 74 68 69 , params);...thi
1850: 73 2e 77 61 74 65 72 20 3d 20 57 61 74 65 72 2e s.water = Water.
1860: 6c 6f 61 64 28 70 61 72 61 6d 73 29 3b 0a 09 09 load(params);...
1870: 74 68 69 73 2e 6f 75 74 70 75 74 20 3d 20 6e 65 this.output = ne
1880: 77 20 4e 69 6c 4f 75 74 70 75 74 3b 0a 09 7d 0a w NilOutput;..}.
1890: 0a 09 47 61 6d 65 20 63 6c 6f 6e 65 28 29 20 7b ..Game clone() {
18a0: 20 72 65 74 75 72 6e 20 6e 65 77 20 47 61 6d 65 return new Game
18b0: 28 74 68 69 73 29 3b 20 7d 0a 09 74 68 69 73 28 (this); }..this(
18c0: 47 61 6d 65 20 67 29 20 7b 0a 09 09 6d 61 70 20 Game g) {...map
18d0: 3d 20 67 2e 6d 61 70 2e 63 6c 6f 6e 65 28 29 3b = g.map.clone();
18e0: 0a 09 09 77 61 74 65 72 20 3d 20 67 2e 77 61 74 ...water = g.wat
18f0: 65 72 2e 63 6c 6f 6e 65 28 29 3b 0a 09 09 6f 75 er.clone();...ou
1900: 74 70 75 74 20 3d 20 6e 65 77 20 4e 69 6c 4f 75 tput = new NilOu
1910: 74 70 75 74 3b 0a 09 09 74 75 72 6e 20 3d 20 67 tput;...turn = g
1920: 2e 74 75 72 6e 3b 0a 09 09 64 65 61 64 20 3d 20 .turn;...dead =
1930: 67 2e 64 65 61 64 3b 0a 09 09 6c 61 6d 62 64 61 g.dead;...lambda
1940: 20 3d 20 67 2e 6c 61 6d 62 64 61 3b 0a 09 09 65 = g.lambda;...e
1950: 78 69 74 5f 62 6f 6e 75 73 20 3d 20 67 2e 65 78 xit_bonus = g.ex
1960: 69 74 5f 62 6f 6e 75 73 3b 0a 09 09 75 6e 64 65 it_bonus;...unde
1970: 72 5f 77 61 74 65 72 20 3d 20 67 2e 75 6e 64 65 r_water = g.unde
1980: 72 5f 77 61 74 65 72 3b 0a 09 7d 0a 0a 09 76 6f r_water;..}...vo
1990: 69 64 20 73 65 74 5f 6f 75 74 70 75 74 28 4f 75 id set_output(Ou
19a0: 74 70 75 74 20 6f 29 20 7b 20 74 68 69 73 2e 6f tput o) { this.o
19b0: 75 74 70 75 74 20 3d 20 28 6f 20 69 73 20 6e 75 utput = (o is nu
19c0: 6c 6c 20 3f 20 6e 65 77 20 4e 69 6c 4f 75 74 70 ll ? new NilOutp
19d0: 75 74 20 3a 20 6f 29 3b 20 7d 0a 0a 09 76 6f 69 ut : o); }...voi
19e0: 64 20 63 6f 6d 6d 61 6e 64 28 63 68 61 72 20 63 d command(char c
19f0: 29 0a 09 7b 0a 09 09 69 66 28 64 65 61 64 20 7c )..{...if(dead |
1a00: 7c 20 63 6c 65 61 72 65 64 29 0a 09 09 09 72 65 | cleared)....re
1a10: 74 75 72 6e 3b 0a 09 09 73 63 6f 70 65 28 65 78 turn;...scope(ex
1a20: 69 74 29 20 7b 0a 09 09 09 69 66 28 64 65 61 64 it) {....if(dead
1a30: 20 7c 7c 20 63 6c 65 61 72 65 64 29 0a 09 09 09 || cleared)....
1a40: 09 6f 75 74 70 75 74 2e 66 6c 75 73 68 28 29 3b .output.flush();
1a50: 0a 09 09 7d 0a 09 09 74 68 69 73 2e 6f 75 74 70 ...}...this.outp
1a60: 75 74 2e 63 6f 6d 6d 61 6e 64 28 63 29 3b 0a 0a ut.command(c);..
1a70: 09 09 69 66 28 63 20 3d 3d 20 27 41 27 29 0a 09 ..if(c == 'A')..
1a80: 09 7b 0a 09 09 09 65 78 69 74 5f 62 6f 6e 75 73 .{....exit_bonus
1a90: 20 3d 20 31 3b 0a 09 09 09 72 65 74 75 72 6e 3b = 1;....return;
1aa0: 0a 09 09 7d 0a 0a 09 09 2f 2f 20 54 4f 44 4f 3a ...}....// TODO:
1ab0: 20 63 6c 61 72 69 66 79 20 74 68 65 20 65 76 65 clarify the eve
1ac0: 6e 74 20 6f 72 64 65 72 0a 09 09 54 75 70 6c 65 nt order...Tuple
1ad0: 21 28 69 6e 74 2c 62 6f 6f 6c 29 20 6c 64 20 3d !(int,bool) ld =
1ae0: 20 6d 61 70 2e 63 6f 6d 6d 61 6e 64 28 63 29 3b map.command(c);
1af0: 0a 09 09 69 66 28 20 6d 61 70 2e 63 6c 65 61 72 ...if( map.clear
1b00: 65 64 28 29 20 29 20 7b 0a 09 09 09 65 78 69 74 ed() ) {....exit
1b10: 5f 62 6f 6e 75 73 20 3d 20 32 3b 0a 09 09 7d 0a _bonus = 2;...}.
1b20: 09 09 65 6c 73 65 20 7b 0a 09 09 09 6c 61 6d 62 ..else {....lamb
1b30: 64 61 20 2b 3d 20 6c 64 5b 30 5d 3b 0a 09 09 09 da += ld[0];....
1b40: 69 66 28 20 6c 64 5b 31 5d 20 29 20 7b 0a 09 09 if( ld[1] ) {...
1b50: 09 09 64 65 61 64 20 3d 20 74 72 75 65 3b 0a 09 ..dead = true;..
1b60: 09 09 7d 0a 09 09 7d 0a 09 09 69 66 28 20 6d 61 ..}...}...if( ma
1b70: 70 2e 72 6f 62 6f 74 2e 79 20 3c 3d 20 77 61 74 p.robot.y <= wat
1b80: 65 72 5f 6c 65 76 65 6c 20 29 0a 09 09 09 2b 2b er_level )....++
1b90: 75 6e 64 65 72 5f 77 61 74 65 72 3b 0a 09 09 65 under_water;...e
1ba0: 6c 73 65 0a 09 09 09 75 6e 64 65 72 5f 77 61 74 lse....under_wat
1bb0: 65 72 20 3d 20 30 3b 0a 09 09 69 66 28 20 75 6e er = 0;...if( un
1bc0: 64 65 72 5f 77 61 74 65 72 20 3e 20 6d 61 70 2e der_water > map.
1bd0: 77 61 74 65 72 70 72 6f 6f 66 20 29 0a 09 09 09 waterproof )....
1be0: 64 65 61 64 20 3d 20 74 72 75 65 3b 0a 09 09 74 dead = true;...t
1bf0: 75 72 6e 20 2b 3d 20 31 3b 0a 09 7d 0a 0a 09 4d urn += 1;..}...M
1c00: 61 70 20 6d 61 70 3b 0a 09 57 61 74 65 72 20 77 ap map;..Water w
1c10: 61 74 65 72 3b 0a 09 4f 75 74 70 75 74 20 6f 75 ater;..Output ou
1c20: 74 70 75 74 3b 0a 09 69 6e 74 20 20 74 75 72 6e tput;..int turn
1c30: 20 3d 20 30 3b 0a 09 62 6f 6f 6c 20 64 65 61 64 = 0;..bool dead
1c40: 20 3d 20 66 61 6c 73 65 3b 0a 09 69 6e 74 20 20 = false;..int
1c50: 6c 61 6d 62 64 61 20 3d 20 30 3b 0a 09 69 6e 74 lambda = 0;..int
1c60: 20 20 65 78 69 74 5f 62 6f 6e 75 73 20 3d 20 30 exit_bonus = 0
1c70: 3b 0a 09 69 6e 74 20 20 75 6e 64 65 72 5f 77 61 ;..int under_wa
1c80: 74 65 72 20 3d 20 30 3b 0a 09 2f 2f 20 54 4f 44 ter = 0;..// TOD
1c90: 4f 3a 20 77 68 65 6e 20 61 64 64 69 6e 67 20 6d O: when adding m
1ca0: 65 6d 62 65 72 73 2c 20 74 61 6b 65 20 63 61 72 embers, take car
1cb0: 65 20 6f 66 20 63 6c 6f 6e 65 28 29 2e 0a 09 2f e of clone().../
1cc0: 2f 20 54 4f 44 4f 3a 20 66 69 78 20 74 68 69 73 / TODO: fix this
1cd0: 20 70 6f 6f 72 20 64 65 73 69 67 6e 2e 0a 0a 09 poor design....
1ce0: 40 70 72 6f 70 65 72 74 79 20 7b 0a 09 09 6c 6f @property {...lo
1cf0: 6e 67 20 73 63 6f 72 65 28 29 20 7b 20 72 65 74 ng score() { ret
1d00: 75 72 6e 20 6c 61 6d 62 64 61 2a 32 35 4c 2a 28 urn lambda*25L*(
1d10: 31 2b 65 78 69 74 5f 62 6f 6e 75 73 29 20 2d 20 1+exit_bonus) -
1d20: 74 75 72 6e 3b 20 7d 0a 09 09 69 6e 74 20 77 61 turn; }...int wa
1d30: 74 65 72 5f 6c 65 76 65 6c 28 29 20 7b 20 72 65 ter_level() { re
1d40: 74 75 72 6e 20 77 61 74 65 72 2e 6c 65 76 65 6c turn water.level
1d50: 28 74 75 72 6e 29 3b 20 7d 0a 09 09 69 6e 74 20 (turn); }...int
1d60: 77 61 74 65 72 5f 75 6e 74 69 6c 5f 72 69 73 65 water_until_rise
1d70: 28 29 20 7b 20 72 65 74 75 72 6e 20 77 61 74 65 () { return wate
1d80: 72 2e 75 6e 74 69 6c 5f 72 69 73 65 28 74 75 72 r.until_rise(tur
1d90: 6e 29 3b 20 7d 0a 09 09 62 6f 6f 6c 20 63 6c 65 n); }...bool cle
1da0: 61 72 65 64 28 29 20 7b 20 72 65 74 75 72 6e 20 ared() { return
1db0: 65 78 69 74 5f 62 6f 6e 75 73 3e 30 3b 20 7d 0a exit_bonus>0; }.
1dc0: 09 09 69 6e 74 20 68 70 28 29 20 7b 20 72 65 74 ..int hp() { ret
1dd0: 75 72 6e 20 6d 61 70 2e 77 61 74 65 72 70 72 6f urn map.waterpro
1de0: 6f 66 20 2d 20 75 6e 64 65 72 5f 77 61 74 65 72 of - under_water
1df0: 3b 20 7d 0a 09 09 6c 6f 6e 67 20 73 63 6f 72 65 ; }...long score
1e00: 5f 69 66 5f 61 62 6f 72 74 5f 6e 6f 77 28 29 20 _if_abort_now()
1e10: 7b 20 72 65 74 75 72 6e 20 6c 61 6d 62 64 61 2a { return lambda*
1e20: 32 35 2a 28 31 2b 6d 61 78 28 31 2c 65 78 69 74 25*(1+max(1,exit
1e30: 5f 62 6f 6e 75 73 29 29 20 2d 20 74 75 72 6e 3b _bonus)) - turn;
1e40: 20 7d 0a 09 7d 0a 7d 0a 0a 75 6e 69 74 74 65 73 }..}.}..unittes
1e50: 74 0a 7b 0a 09 47 61 6d 65 2e 6c 6f 61 64 28 5b t.{..Game.load([
1e60: 22 23 23 23 22 2c 22 2e 2e 2e 22 2c 22 23 52 4c "###","...","#RL
1e70: 22 5d 2c 20 5b 22 78 78 78 22 3a 22 79 79 79 22 "], ["xxx":"yyy"
1e80: 5d 29 3b 0a 7d 0a ]);.}.