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 70 72 69 76 61 74 65 20 7b 0a 09 .}...private {..
0860: 09 63 68 61 72 5b 5d 5b 5d 20 64 61 74 61 3b 0a .char[][] data;.
0870: 09 09 50 6f 73 20 72 6f 62 6f 74 3b 0a 09 09 50 ..Pos robot;...P
0880: 6f 73 20 6c 69 66 74 3b 0a 09 09 69 6e 74 20 77 os lift;...int w
0890: 61 74 65 72 70 72 6f 6f 66 3b 0a 09 7d 0a 09 4d aterproof;..}..M
08a0: 61 70 20 63 6c 6f 6e 65 28 29 20 7b 20 72 65 74 ap clone() { ret
08b0: 75 72 6e 20 6e 65 77 20 4d 61 70 28 74 68 69 73 urn new Map(this
08c0: 29 3b 20 7d 0a 09 74 68 69 73 28 4d 61 70 20 6d ); }..this(Map m
08d0: 29 20 7b 0a 09 09 66 6f 72 65 61 63 68 28 73 3b ) {...foreach(s;
08e0: 20 6d 2e 64 61 74 61 29 0a 09 09 09 74 68 69 73 m.data)....this
08f0: 2e 64 61 74 61 20 7e 3d 20 73 2e 64 75 70 3b 0a .data ~= s.dup;.
0900: 09 09 74 68 69 73 2e 72 6f 62 6f 74 20 3d 20 6d ..this.robot = m
0910: 2e 72 6f 62 6f 74 2e 63 6c 6f 6e 65 28 29 3b 0a .robot.clone();.
0920: 09 09 74 68 69 73 2e 6c 69 66 74 20 3d 20 6d 2e ..this.lift = m.
0930: 6c 69 66 74 2e 63 6c 6f 6e 65 28 29 3b 0a 09 09 lift.clone();...
0940: 74 68 69 73 2e 77 61 74 65 72 70 72 6f 6f 66 20 this.waterproof
0950: 3d 20 6d 2e 77 61 74 65 72 70 72 6f 6f 66 3b 0a = m.waterproof;.
0960: 09 7d 0a 0a 09 74 68 69 73 28 73 74 72 69 6e 67 .}...this(string
0970: 5b 5d 20 72 61 77 5f 64 61 74 61 2c 20 73 74 72 [] raw_data, str
0980: 69 6e 67 5b 73 74 72 69 6e 67 5d 20 70 61 72 61 ing[string] para
0990: 6d 73 29 0a 09 7b 0a 09 09 69 6e 74 20 77 69 64 ms)..{...int wid
09a0: 74 68 20 3d 20 30 3b 0a 09 09 66 6f 72 65 61 63 th = 0;...foreac
09b0: 68 28 72 3b 20 72 61 77 5f 64 61 74 61 29 0a 09 h(r; raw_data)..
09c0: 09 09 77 69 64 74 68 20 3d 20 6d 61 78 28 77 69 ..width = max(wi
09d0: 64 74 68 2c 20 72 2e 6c 65 6e 67 74 68 29 3b 0a dth, r.length);.
09e0: 09 09 66 6f 72 65 61 63 68 28 72 3b 20 72 61 77 ..foreach(r; raw
09f0: 5f 64 61 74 61 29 20 7b 0a 09 09 09 74 68 69 73 _data) {....this
0a00: 2e 64 61 74 61 20 7e 3d 20 72 2e 64 75 70 3b 0a .data ~= r.dup;.
0a10: 09 09 09 74 68 69 73 2e 64 61 74 61 5b 24 2d 31 ...this.data[$-1
0a20: 5d 2e 6c 65 6e 67 74 68 20 3d 20 77 69 64 74 68 ].length = width
0a30: 3b 0a 09 09 09 74 68 69 73 2e 64 61 74 61 5b 24 ;....this.data[$
0a40: 2d 31 5d 5b 72 2e 6c 65 6e 67 74 68 2e 2e 24 5d -1][r.length..$]
0a50: 20 3d 20 27 20 27 3b 0a 09 09 7d 0a 0a 09 09 66 = ' ';...}....f
0a60: 6f 72 28 69 6e 74 20 79 3d 31 3b 20 79 3c 3d 48 or(int y=1; y<=H
0a70: 3b 20 2b 2b 79 29 0a 09 09 66 6f 72 28 69 6e 74 ; ++y)...for(int
0a80: 20 78 3d 31 3b 20 78 3c 3d 57 3b 20 2b 2b 78 29 x=1; x<=W; ++x)
0a90: 20 7b 0a 09 09 09 69 66 28 74 68 69 73 5b 79 2c {....if(this[y,
0aa0: 78 5d 20 3d 3d 20 27 52 27 29 0a 09 09 09 09 74 x] == 'R').....t
0ab0: 68 69 73 2e 72 6f 62 6f 74 20 3d 20 6e 65 77 20 his.robot = new
0ac0: 50 6f 73 28 79 2c 78 29 3b 0a 09 09 09 69 66 28 Pos(y,x);....if(
0ad0: 74 68 69 73 5b 79 2c 78 5d 20 3d 3d 20 27 4c 27 this[y,x] == 'L'
0ae0: 29 0a 09 09 09 09 74 68 69 73 2e 6c 69 66 74 20 ).....this.lift
0af0: 3d 20 6e 65 77 20 50 6f 73 28 79 2c 78 29 3b 0a = new Pos(y,x);.
0b00: 09 09 7d 0a 0a 09 09 74 68 69 73 2e 77 61 74 65 ..}....this.wate
0b10: 72 70 72 6f 6f 66 20 3d 20 70 61 72 61 6d 73 2e rproof = params.
0b20: 67 65 74 28 22 57 61 74 65 72 70 72 6f 6f 66 22 get("Waterproof"
0b30: 2c 20 22 35 22 29 2e 74 6f 21 69 6e 74 28 29 3b , "5").to!int();
0b40: 0a 09 7d 0a 0a 09 63 6f 6e 73 74 20 40 70 72 6f ..}...const @pro
0b50: 70 65 72 74 79 20 7b 0a 09 09 69 6e 74 20 48 28 perty {...int H(
0b60: 29 20 7b 20 72 65 74 75 72 6e 20 64 61 74 61 2e ) { return data.
0b70: 6c 65 6e 67 74 68 3b 20 7d 0a 09 09 69 6e 74 20 length; }...int
0b80: 57 28 29 20 7b 20 72 65 74 75 72 6e 20 64 61 74 W() { return dat
0b90: 61 5b 30 5d 2e 6c 65 6e 67 74 68 3b 20 7d 0a 09 a[0].length; }..
0ba0: 7d 0a 0a 09 63 68 61 72 20 6f 70 49 6e 64 65 78 }...char opIndex
0bb0: 28 69 6e 74 20 79 2c 20 69 6e 74 20 78 29 0a 09 (int y, int x)..
0bc0: 7b 0a 09 09 2f 2f 20 41 64 6a 75 73 74 20 63 6f {...// Adjust co
0bd0: 6f 72 64 69 6e 61 74 65 20 74 6f 20 74 68 65 20 ordinate to the
0be0: 73 70 65 63 2e 20 62 6f 74 74 6f 6d 2d 6c 65 66 spec. bottom-lef
0bf0: 74 20 69 73 20 28 31 2c 31 29 2e 0a 09 09 2d 2d t is (1,1)....--
0c00: 79 2c 20 2d 2d 78 3b 0a 09 09 69 66 28 79 3c 30 y, --x;...if(y<0
0c10: 7c 7c 48 3c 3d 79 7c 7c 78 3c 30 7c 7c 57 3c 3d ||H<=y||x<0||W<=
0c20: 78 29 0a 09 09 09 72 65 74 75 72 6e 20 27 23 27 x)....return '#'
0c30: 3b 0a 09 09 72 65 74 75 72 6e 20 64 61 74 61 5b ;...return data[
0c40: 48 2d 31 2d 79 5d 5b 78 5d 3b 0a 09 7d 0a 0a 09 H-1-y][x];..}...
0c50: 63 68 61 72 20 6f 70 49 6e 64 65 78 28 50 6f 73 char opIndex(Pos
0c60: 20 70 29 0a 09 7b 0a 09 09 72 65 74 75 72 6e 20 p)..{...return
0c70: 74 68 69 73 5b 70 2e 79 2c 20 70 2e 78 5d 3b 0a this[p.y, p.x];.
0c80: 09 7d 0a 0a 09 76 6f 69 64 20 6f 70 49 6e 64 65 .}...void opInde
0c90: 78 41 73 73 69 67 6e 28 63 68 61 72 20 63 2c 20 xAssign(char c,
0ca0: 69 6e 74 20 79 2c 20 69 6e 74 20 78 29 0a 09 7b int y, int x)..{
0cb0: 0a 09 09 2f 2f 20 41 64 6a 75 73 74 20 63 6f 6f ...// Adjust coo
0cc0: 72 64 69 6e 61 74 65 20 74 6f 20 74 68 65 20 73 rdinate to the s
0cd0: 70 65 63 2e 20 62 6f 74 74 6f 6d 2d 6c 65 66 74 pec. bottom-left
0ce0: 20 69 73 20 28 31 2c 31 29 2e 0a 09 09 2d 2d 79 is (1,1)....--y
0cf0: 2c 20 2d 2d 78 3b 0a 09 09 69 66 28 79 3c 30 7c , --x;...if(y<0|
0d00: 7c 48 3c 3d 79 7c 7c 78 3c 30 7c 7c 57 3c 3d 78 |H<=y||x<0||W<=x
0d10: 29 0a 09 09 09 72 65 74 75 72 6e 3b 0a 09 09 64 )....return;...d
0d20: 61 74 61 5b 48 2d 31 2d 79 5d 5b 78 5d 20 3d 20 ata[H-1-y][x] =
0d30: 63 3b 0a 09 7d 0a 0a 09 76 6f 69 64 20 6f 70 49 c;..}...void opI
0d40: 6e 64 65 78 41 73 73 69 67 6e 28 63 68 61 72 20 ndexAssign(char
0d50: 63 2c 20 50 6f 73 20 70 29 0a 09 7b 0a 09 09 74 c, Pos p)..{...t
0d60: 68 69 73 5b 70 2e 79 2c 20 70 2e 78 5d 20 3d 20 his[p.y, p.x] =
0d70: 63 3b 0a 09 7d 0a 0a 09 62 6f 6f 6c 20 63 6c 65 c;..}...bool cle
0d80: 61 72 65 64 28 29 0a 09 7b 0a 09 09 66 6f 72 28 ared()..{...for(
0d90: 69 6e 74 20 79 3d 31 3b 20 79 3c 3d 48 3b 20 2b int y=1; y<=H; +
0da0: 2b 79 29 0a 09 09 66 6f 72 28 69 6e 74 20 78 3d +y)...for(int x=
0db0: 31 3b 20 78 3c 3d 57 3b 20 2b 2b 78 29 0a 09 09 1; x<=W; ++x)...
0dc0: 09 69 66 28 74 68 69 73 5b 79 2c 78 5d 20 3d 3d .if(this[y,x] ==
0dd0: 20 27 4c 27 20 7c 7c 20 74 68 69 73 5b 79 2c 78 'L' || this[y,x
0de0: 5d 20 3d 3d 20 27 4f 27 29 0a 09 09 09 09 72 65 ] == 'O').....re
0df0: 74 75 72 6e 20 66 61 6c 73 65 3b 0a 09 09 72 65 turn false;...re
0e00: 74 75 72 6e 20 74 72 75 65 3b 0a 09 7d 0a 09 0a turn true;..}...
0e10: 09 54 75 70 6c 65 21 28 69 6e 74 2c 62 6f 6f 6c .Tuple!(int,bool
0e20: 29 20 63 6f 6d 6d 61 6e 64 28 63 68 61 72 20 63 ) command(char c
0e30: 29 0a 09 7b 0a 09 09 69 66 28 63 3d 3d 27 52 27 )..{...if(c=='R'
0e40: 29 20 72 65 74 75 72 6e 20 6d 6f 76 65 28 20 30 ) return move( 0
0e50: 2c 20 2b 31 29 3b 0a 09 09 69 66 28 63 3d 3d 27 , +1);...if(c=='
0e60: 4c 27 29 20 72 65 74 75 72 6e 20 6d 6f 76 65 28 L') return move(
0e70: 20 30 2c 20 2d 31 29 3b 0a 09 09 69 66 28 63 3d 0, -1);...if(c=
0e80: 3d 27 55 27 29 20 72 65 74 75 72 6e 20 6d 6f 76 ='U') return mov
0e90: 65 28 2b 31 2c 20 20 30 29 3b 0a 09 09 69 66 28 e(+1, 0);...if(
0ea0: 63 3d 3d 27 44 27 29 20 72 65 74 75 72 6e 20 6d c=='D') return m
0eb0: 6f 76 65 28 2d 31 2c 20 20 30 29 3b 0a 09 09 69 ove(-1, 0);...i
0ec0: 66 28 63 3d 3d 27 57 27 29 20 72 65 74 75 72 6e f(c=='W') return
0ed0: 20 6d 6f 76 65 28 20 30 2c 20 20 30 29 3b 0a 09 move( 0, 0);..
0ee0: 09 61 73 73 65 72 74 28 66 61 6c 73 65 29 3b 0a .assert(false);.
0ef0: 09 7d 0a 0a 09 54 75 70 6c 65 21 28 69 6e 74 2c .}...Tuple!(int,
0f00: 20 62 6f 6f 6c 29 20 6d 6f 76 65 28 69 6e 74 20 bool) move(int
0f10: 64 79 2c 20 69 6e 74 20 64 78 29 0a 09 7b 0a 09 dy, int dx)..{..
0f20: 09 69 6e 74 20 79 20 3d 20 72 6f 62 6f 74 2e 79 .int y = robot.y
0f30: 3b 0a 09 09 69 6e 74 20 78 20 3d 20 72 6f 62 6f ;...int x = robo
0f40: 74 2e 78 3b 0a 09 09 61 73 73 65 72 74 28 20 74 t.x;...assert( t
0f50: 68 69 73 5b 72 6f 62 6f 74 5d 20 3d 3d 20 27 52 his[robot] == 'R
0f60: 27 20 29 3b 0a 09 09 69 6e 74 20 6c 61 6d 62 64 ' );...int lambd
0f70: 61 20 3d 20 30 3b 0a 09 09 62 6f 6f 6c 20 64 65 a = 0;...bool de
0f80: 61 64 20 3d 20 66 61 6c 73 65 3b 0a 09 09 69 66 ad = false;...if
0f90: 28 20 27 5c 5c 27 20 3d 3d 20 74 68 69 73 5b 79 ( '\\' == this[y
0fa0: 2b 64 79 2c 78 2b 64 78 5d 20 29 0a 09 09 09 6c +dy,x+dx] )....l
0fb0: 61 6d 62 64 61 2b 2b 3b 0a 09 09 69 66 28 20 22 ambda++;...if( "
0fc0: 20 5c 5c 2e 4f 22 2e 63 6f 75 6e 74 28 74 68 69 \\.O".count(thi
0fd0: 73 5b 79 2b 64 79 2c 78 2b 64 78 5d 29 3d 3d 31 s[y+dy,x+dx])==1
0fe0: 20 29 20 7b 0a 09 09 09 74 68 69 73 5b 79 2c 78 ) {....this[y,x
0ff0: 5d 3d 27 20 27 3b 0a 09 09 09 74 68 69 73 5b 79 ]=' ';....this[y
1000: 2b 64 79 2c 78 2b 64 78 5d 3d 27 52 27 3b 0a 09 +dy,x+dx]='R';..
1010: 09 09 72 6f 62 6f 74 20 3d 20 6e 65 77 20 50 6f ..robot = new Po
1020: 73 28 79 2b 64 79 2c 78 2b 64 78 29 3b 0a 09 09 s(y+dy,x+dx);...
1030: 7d 20 65 6c 73 65 20 69 66 28 64 79 3d 3d 30 20 } else if(dy==0
1040: 26 26 20 27 2a 27 3d 3d 74 68 69 73 5b 79 2b 64 && '*'==this[y+d
1050: 79 2c 78 2b 64 78 5d 20 26 26 20 27 20 27 3d 3d y,x+dx] && ' '==
1060: 74 68 69 73 5b 79 2b 64 79 2a 32 2c 78 2b 64 78 this[y+dy*2,x+dx
1070: 2a 32 5d 29 20 7b 0a 09 09 09 74 68 69 73 5b 79 *2]) {....this[y
1080: 2c 78 5d 3d 27 20 27 3b 0a 09 09 09 74 68 69 73 ,x]=' ';....this
1090: 5b 79 2b 64 79 2c 78 2b 64 78 5d 3d 27 52 27 3b [y+dy,x+dx]='R';
10a0: 0a 09 09 09 74 68 69 73 5b 79 2b 64 79 2a 32 2c ....this[y+dy*2,
10b0: 78 2b 64 78 2a 32 5d 3d 27 2a 27 3b 0a 09 09 09 x+dx*2]='*';....
10c0: 72 6f 62 6f 74 20 3d 20 6e 65 77 20 50 6f 73 28 robot = new Pos(
10d0: 79 2b 64 79 2c 78 2b 64 78 29 3b 0a 09 09 7d 0a y+dy,x+dx);...}.
10e0: 09 09 69 66 28 20 75 70 64 61 74 65 28 29 20 29 ..if( update() )
10f0: 0a 09 09 09 64 65 61 64 20 3d 20 74 72 75 65 3b ....dead = true;
1100: 0a 09 09 72 65 74 75 72 6e 20 74 75 70 6c 65 28 ...return tuple(
1110: 6c 61 6d 62 64 61 2c 64 65 61 64 29 3b 0a 09 7d lambda,dead);..}
1120: 0a 0a 09 62 6f 6f 6c 20 75 70 64 61 74 65 28 29 ...bool update()
1130: 0a 09 7b 0a 09 09 62 6f 6f 6c 20 64 65 61 64 20 ..{...bool dead
1140: 3d 20 66 61 6c 73 65 3b 0a 0a 09 09 63 68 61 72 = false;....char
1150: 5b 5d 5b 5d 20 6e 65 78 74 3b 0a 09 09 66 6f 72 [][] next;...for
1160: 65 61 63 68 28 79 2c 73 3b 20 64 61 74 61 29 0a each(y,s; data).
1170: 09 09 09 6e 65 78 74 20 7e 3d 20 73 2e 64 75 70 ...next ~= s.dup
1180: 3b 0a 0a 09 09 72 65 66 20 63 68 61 72 20 61 63 ;....ref char ac
1190: 63 65 73 73 28 50 6f 73 20 70 29 20 7b 20 72 65 cess(Pos p) { re
11a0: 74 75 72 6e 20 6e 65 78 74 5b 48 2d 70 2e 79 5d turn next[H-p.y]
11b0: 5b 70 2e 78 2d 31 5d 3b 20 7d 0a 0a 09 09 62 6f [p.x-1]; }....bo
11c0: 6f 6c 20 6c 61 6d 62 64 61 20 3d 20 66 61 6c 73 ol lambda = fals
11d0: 65 3b 0a 09 09 66 6f 72 28 69 6e 74 20 79 3d 31 e;...for(int y=1
11e0: 3b 20 79 3c 3d 48 3b 20 2b 2b 79 29 0a 09 09 66 ; y<=H; ++y)...f
11f0: 6f 72 28 69 6e 74 20 78 3d 31 3b 20 78 3c 3d 57 or(int x=1; x<=W
1200: 3b 20 2b 2b 78 29 0a 09 09 09 6c 61 6d 62 64 61 ; ++x)....lambda
1210: 20 7c 3d 20 28 74 68 69 73 5b 79 2c 78 5d 20 3d |= (this[y,x] =
1220: 3d 20 27 5c 5c 27 29 3b 0a 0a 09 09 66 6f 72 28 = '\\');....for(
1230: 69 6e 74 20 79 3d 31 3b 20 79 3c 3d 48 3b 20 2b int y=1; y<=H; +
1240: 2b 79 29 0a 09 09 66 6f 72 28 69 6e 74 20 78 3d +y)...for(int x=
1250: 31 3b 20 78 3c 3d 57 3b 20 2b 2b 78 29 20 7b 0a 1; x<=W; ++x) {.
1260: 09 09 09 50 6f 73 20 70 20 3d 20 6e 65 77 20 50 ...Pos p = new P
1270: 6f 73 28 79 2c 78 29 3b 0a 09 09 09 69 66 28 74 os(y,x);....if(t
1280: 68 69 73 5b 70 5d 3d 3d 27 2a 27 29 20 7b 0a 09 his[p]=='*') {..
1290: 09 09 09 69 66 28 74 68 69 73 5b 70 2e 44 5d 3d ...if(this[p.D]=
12a0: 3d 27 20 27 29 20 7b 0a 09 09 09 09 09 61 63 63 =' ') {......acc
12b0: 65 73 73 28 70 29 20 20 3d 27 20 27 3b 0a 09 09 ess(p) =' ';...
12c0: 09 09 09 61 63 63 65 73 73 28 70 2e 44 29 3d 27 ...access(p.D)='
12d0: 2a 27 3b 0a 09 09 09 09 09 69 66 28 72 6f 62 6f *';......if(robo
12e0: 74 20 3d 3d 20 70 2e 44 2e 44 29 0a 09 09 09 09 t == p.D.D).....
12f0: 09 09 64 65 61 64 3d 74 72 75 65 3b 0a 09 09 09 ..dead=true;....
1300: 09 7d 0a 09 09 09 09 65 6c 73 65 20 69 66 28 28 .}.....else if((
1310: 74 68 69 73 5b 70 2e 44 5d 3d 3d 27 2a 27 20 7c this[p.D]=='*' |
1320: 7c 20 74 68 69 73 5b 70 2e 44 5d 3d 3d 27 5c 5c | this[p.D]=='\\
1330: 27 29 20 26 26 20 74 68 69 73 5b 70 2e 52 5d 3d ') && this[p.R]=
1340: 3d 27 20 27 20 26 26 20 74 68 69 73 5b 70 2e 52 =' ' && this[p.R
1350: 2e 44 5d 3d 3d 27 20 27 29 20 7b 0a 09 09 09 09 .D]==' ') {.....
1360: 09 61 63 63 65 73 73 28 70 29 3d 27 20 27 3b 0a .access(p)=' ';.
1370: 09 09 09 09 09 61 63 63 65 73 73 28 70 2e 52 2e .....access(p.R.
1380: 44 29 3d 27 2a 27 3b 0a 09 09 09 09 09 69 66 28 D)='*';......if(
1390: 72 6f 62 6f 74 20 3d 3d 20 70 2e 52 2e 44 2e 44 robot == p.R.D.D
13a0: 29 0a 09 09 09 09 09 09 64 65 61 64 3d 74 72 75 ).......dead=tru
13b0: 65 3b 0a 09 09 09 09 7d 0a 09 09 09 09 65 6c 73 e;.....}.....els
13c0: 65 20 69 66 28 74 68 69 73 5b 70 2e 44 5d 3d 3d e if(this[p.D]==
13d0: 27 2a 27 20 26 26 20 74 68 69 73 5b 70 2e 4c 5d '*' && this[p.L]
13e0: 3d 3d 27 20 27 20 26 26 20 74 68 69 73 5b 70 2e ==' ' && this[p.
13f0: 4c 2e 44 5d 3d 3d 27 20 27 29 20 7b 0a 09 09 09 L.D]==' ') {....
1400: 09 09 61 63 63 65 73 73 28 70 29 3d 27 20 27 3b ..access(p)=' ';
1410: 0a 09 09 09 09 09 61 63 63 65 73 73 28 70 2e 4c ......access(p.L
1420: 2e 44 29 3d 27 2a 27 3b 0a 09 09 09 09 09 69 66 .D)='*';......if
1430: 28 72 6f 62 6f 74 20 3d 3d 20 70 2e 4c 2e 44 2e (robot == p.L.D.
1440: 44 29 0a 09 09 09 09 09 09 64 65 61 64 3d 74 72 D).......dead=tr
1450: 75 65 3b 0a 09 09 09 09 7d 0a 09 09 09 7d 0a 09 ue;.....}....}..
1460: 09 09 65 6c 73 65 20 69 66 28 74 68 69 73 5b 70 ..else if(this[p
1470: 5d 3d 3d 27 4c 27 29 20 7b 0a 09 09 09 09 69 66 ]=='L') {.....if
1480: 28 21 6c 61 6d 62 64 61 29 0a 09 09 09 09 09 61 (!lambda)......a
1490: 63 63 65 73 73 28 70 29 20 3d 20 27 4f 27 3b 0a ccess(p) = 'O';.
14a0: 09 09 09 7d 0a 09 09 7d 0a 09 09 64 61 74 61 20 ...}...}...data
14b0: 3d 20 6e 65 78 74 3b 0a 09 09 72 65 74 75 72 6e = next;...return
14c0: 20 64 65 61 64 3b 0a 09 7d 0a 7d 0a 0a 2f 2f 2f dead;..}.}..///
14d0: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
14e0: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
14f0: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
1500: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
1510: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 0a 0a 63 /////////////..c
1520: 6c 61 73 73 20 47 61 6d 65 0a 7b 0a 09 6d 69 78 lass Game.{..mix
1530: 69 6e 20 44 65 72 69 76 65 53 68 6f 77 3b 0a 0a in DeriveShow;..
1540: 09 73 74 61 74 69 63 20 47 61 6d 65 20 6c 6f 61 .static Game loa
1550: 64 28 46 69 6c 65 20 69 6e 70 75 74 29 0a 09 7b d(File input)..{
1560: 0a 09 09 73 74 72 69 6e 67 5b 5d 20 20 20 20 20 ...string[]
1570: 20 20 72 61 77 5f 64 61 74 61 3b 0a 09 09 73 74 raw_data;...st
1580: 72 69 6e 67 5b 73 74 72 69 6e 67 5d 20 70 61 72 ring[string] par
1590: 61 6d 73 3b 0a 0a 09 09 2f 2f 20 52 61 77 20 6d ams;....// Raw m
15a0: 61 70 20 64 61 74 61 3b 20 72 65 61 64 20 75 6e ap data; read un
15b0: 74 69 6c 20 65 6d 70 74 79 20 6c 69 6e 65 2e 0a til empty line..
15c0: 09 09 66 6f 72 28 73 74 72 69 6e 67 20 6c 69 6e ..for(string lin
15d0: 65 3b 20 21 28 6c 69 6e 65 3d 69 6e 70 75 74 2e e; !(line=input.
15e0: 72 65 61 64 6c 6e 28 29 2e 63 68 6f 6d 70 28 29 readln().chomp()
15f0: 29 2e 65 6d 70 74 79 3b 20 29 0a 09 09 09 72 61 ).empty; )....ra
1600: 77 5f 64 61 74 61 20 7e 3d 20 6c 69 6e 65 3b 0a w_data ~= line;.
1610: 0a 09 09 2f 2f 20 41 64 64 69 74 69 6f 6e 61 6c ...// Additional
1620: 20 63 6f 6d 6d 61 6e 64 73 3b 20 72 65 61 64 20 commands; read
1630: 75 6e 74 69 6c 20 45 4f 46 2e 0a 09 09 66 6f 72 until EOF....for
1640: 28 73 74 72 69 6e 67 20 6c 69 6e 65 3b 20 21 28 (string line; !(
1650: 6c 69 6e 65 3d 69 6e 70 75 74 2e 72 65 61 64 6c line=input.readl
1660: 6e 28 29 29 2e 65 6d 70 74 79 3b 20 29 20 7b 0a n()).empty; ) {.
1670: 09 09 09 73 74 72 69 6e 67 5b 5d 20 73 73 20 3d ...string[] ss =
1680: 20 6c 69 6e 65 2e 73 70 6c 69 74 28 29 3b 0a 09 line.split();..
1690: 09 09 69 66 28 20 73 73 2e 6c 65 6e 67 74 68 20 ..if( ss.length
16a0: 3d 3d 20 32 20 29 0a 09 09 09 09 70 61 72 61 6d == 2 ).....param
16b0: 73 5b 73 73 5b 30 5d 5d 20 3d 20 73 73 5b 31 5d s[ss[0]] = ss[1]
16c0: 3b 0a 09 09 7d 0a 0a 09 09 72 65 74 75 72 6e 20 ;...}....return
16d0: 6c 6f 61 64 28 72 61 77 5f 64 61 74 61 2c 20 70 load(raw_data, p
16e0: 61 72 61 6d 73 29 3b 0a 09 7d 0a 0a 09 73 74 61 arams);..}...sta
16f0: 74 69 63 20 47 61 6d 65 20 6c 6f 61 64 28 73 74 tic Game load(st
1700: 72 69 6e 67 5b 5d 20 72 61 77 5f 64 61 74 61 2c ring[] raw_data,
1710: 20 73 74 72 69 6e 67 5b 73 74 72 69 6e 67 5d 20 string[string]
1720: 70 61 72 61 6d 73 29 0a 09 7b 0a 09 09 72 65 74 params)..{...ret
1730: 75 72 6e 20 6e 65 77 20 47 61 6d 65 28 72 61 77 urn new Game(raw
1740: 5f 64 61 74 61 2c 20 70 61 72 61 6d 73 29 3b 0a _data, params);.
1750: 09 7d 0a 0a 09 74 68 69 73 28 73 74 72 69 6e 67 .}...this(string
1760: 5b 5d 20 72 61 77 5f 64 61 74 61 2c 20 73 74 72 [] raw_data, str
1770: 69 6e 67 5b 73 74 72 69 6e 67 5d 20 70 61 72 61 ing[string] para
1780: 6d 73 29 0a 09 7b 0a 09 09 74 68 69 73 2e 6d 61 ms)..{...this.ma
1790: 70 20 3d 20 4d 61 70 2e 6c 6f 61 64 28 72 61 77 p = Map.load(raw
17a0: 5f 64 61 74 61 2c 20 70 61 72 61 6d 73 29 3b 0a _data, params);.
17b0: 09 09 74 68 69 73 2e 77 61 74 65 72 20 3d 20 57 ..this.water = W
17c0: 61 74 65 72 2e 6c 6f 61 64 28 70 61 72 61 6d 73 ater.load(params
17d0: 29 3b 0a 09 09 74 68 69 73 2e 6f 75 74 70 75 74 );...this.output
17e0: 20 3d 20 6e 65 77 20 4e 69 6c 4f 75 74 70 75 74 = new NilOutput
17f0: 3b 0a 09 7d 0a 0a 09 47 61 6d 65 20 63 6c 6f 6e ;..}...Game clon
1800: 65 28 29 20 7b 20 72 65 74 75 72 6e 20 6e 65 77 e() { return new
1810: 20 47 61 6d 65 28 74 68 69 73 29 3b 20 7d 0a 09 Game(this); }..
1820: 74 68 69 73 28 47 61 6d 65 20 67 29 20 7b 0a 09 this(Game g) {..
1830: 09 6d 61 70 20 3d 20 67 2e 6d 61 70 2e 63 6c 6f .map = g.map.clo
1840: 6e 65 28 29 3b 0a 09 09 77 61 74 65 72 20 3d 20 ne();...water =
1850: 67 2e 77 61 74 65 72 2e 63 6c 6f 6e 65 28 29 3b g.water.clone();
1860: 0a 09 09 6f 75 74 70 75 74 20 3d 20 6e 65 77 20 ...output = new
1870: 4e 69 6c 4f 75 74 70 75 74 3b 0a 09 09 74 75 72 NilOutput;...tur
1880: 6e 20 3d 20 67 2e 74 75 72 6e 3b 0a 09 09 64 65 n = g.turn;...de
1890: 61 64 20 3d 20 67 2e 64 65 61 64 3b 0a 09 09 6c ad = g.dead;...l
18a0: 61 6d 62 64 61 20 3d 20 67 2e 6c 61 6d 62 64 61 ambda = g.lambda
18b0: 3b 0a 09 09 65 78 69 74 5f 62 6f 6e 75 73 20 3d ;...exit_bonus =
18c0: 20 67 2e 65 78 69 74 5f 62 6f 6e 75 73 3b 0a 09 g.exit_bonus;..
18d0: 09 75 6e 64 65 72 5f 77 61 74 65 72 20 3d 20 67 .under_water = g
18e0: 2e 75 6e 64 65 72 5f 77 61 74 65 72 3b 0a 09 7d .under_water;..}
18f0: 0a 0a 09 76 6f 69 64 20 73 65 74 5f 6f 75 74 70 ...void set_outp
1900: 75 74 28 4f 75 74 70 75 74 20 6f 29 20 7b 20 74 ut(Output o) { t
1910: 68 69 73 2e 6f 75 74 70 75 74 20 3d 20 28 6f 20 his.output = (o
1920: 69 73 20 6e 75 6c 6c 20 3f 20 6e 65 77 20 4e 69 is null ? new Ni
1930: 6c 4f 75 74 70 75 74 20 3a 20 6f 29 3b 20 7d 0a lOutput : o); }.
1940: 0a 09 76 6f 69 64 20 63 6f 6d 6d 61 6e 64 28 63 ..void command(c
1950: 68 61 72 20 63 29 0a 09 7b 0a 09 09 69 66 28 64 har c)..{...if(d
1960: 65 61 64 20 7c 7c 20 63 6c 65 61 72 65 64 29 0a ead || cleared).
1970: 09 09 09 72 65 74 75 72 6e 3b 0a 09 09 73 63 6f ...return;...sco
1980: 70 65 28 65 78 69 74 29 20 7b 0a 09 09 09 69 66 pe(exit) {....if
1990: 28 64 65 61 64 20 7c 7c 20 63 6c 65 61 72 65 64 (dead || cleared
19a0: 29 0a 09 09 09 09 6f 75 74 70 75 74 2e 66 6c 75 ).....output.flu
19b0: 73 68 28 29 3b 0a 09 09 7d 0a 09 09 74 68 69 73 sh();...}...this
19c0: 2e 6f 75 74 70 75 74 2e 63 6f 6d 6d 61 6e 64 28 .output.command(
19d0: 63 29 3b 0a 0a 09 09 69 66 28 63 20 3d 3d 20 27 c);....if(c == '
19e0: 41 27 29 0a 09 09 7b 0a 09 09 09 65 78 69 74 5f A')...{....exit_
19f0: 62 6f 6e 75 73 20 3d 20 31 3b 0a 09 09 09 72 65 bonus = 1;....re
1a00: 74 75 72 6e 3b 0a 09 09 7d 0a 0a 09 09 2f 2f 20 turn;...}....//
1a10: 54 4f 44 4f 3a 20 63 6c 61 72 69 66 79 20 74 68 TODO: clarify th
1a20: 65 20 65 76 65 6e 74 20 6f 72 64 65 72 0a 09 09 e event order...
1a30: 54 75 70 6c 65 21 28 69 6e 74 2c 62 6f 6f 6c 29 Tuple!(int,bool)
1a40: 20 6c 64 20 3d 20 6d 61 70 2e 63 6f 6d 6d 61 6e ld = map.comman
1a50: 64 28 63 29 3b 0a 09 09 69 66 28 20 6d 61 70 2e d(c);...if( map.
1a60: 63 6c 65 61 72 65 64 28 29 20 29 20 7b 0a 09 09 cleared() ) {...
1a70: 09 65 78 69 74 5f 62 6f 6e 75 73 20 3d 20 32 3b .exit_bonus = 2;
1a80: 0a 09 09 7d 0a 09 09 65 6c 73 65 20 7b 0a 09 09 ...}...else {...
1a90: 09 6c 61 6d 62 64 61 20 2b 3d 20 6c 64 5b 30 5d .lambda += ld[0]
1aa0: 3b 0a 09 09 09 69 66 28 20 6c 64 5b 31 5d 20 29 ;....if( ld[1] )
1ab0: 20 7b 0a 09 09 09 09 64 65 61 64 20 3d 20 74 72 {.....dead = tr
1ac0: 75 65 3b 0a 09 09 09 7d 0a 09 09 7d 0a 09 09 69 ue;....}...}...i
1ad0: 66 28 20 6d 61 70 2e 72 6f 62 6f 74 2e 79 20 3c f( map.robot.y <
1ae0: 3d 20 77 61 74 65 72 5f 6c 65 76 65 6c 20 29 0a = water_level ).
1af0: 09 09 09 2b 2b 75 6e 64 65 72 5f 77 61 74 65 72 ...++under_water
1b00: 3b 0a 09 09 65 6c 73 65 0a 09 09 09 75 6e 64 65 ;...else....unde
1b10: 72 5f 77 61 74 65 72 20 3d 20 30 3b 0a 09 09 69 r_water = 0;...i
1b20: 66 28 20 75 6e 64 65 72 5f 77 61 74 65 72 20 3e f( under_water >
1b30: 20 6d 61 70 2e 77 61 74 65 72 70 72 6f 6f 66 20 map.waterproof
1b40: 29 0a 09 09 09 64 65 61 64 20 3d 20 74 72 75 65 )....dead = true
1b50: 3b 0a 09 09 74 75 72 6e 20 2b 3d 20 31 3b 0a 09 ;...turn += 1;..
1b60: 7d 0a 0a 09 4d 61 70 20 6d 61 70 3b 0a 09 57 61 }...Map map;..Wa
1b70: 74 65 72 20 77 61 74 65 72 3b 0a 09 4f 75 74 70 ter water;..Outp
1b80: 75 74 20 6f 75 74 70 75 74 3b 0a 09 69 6e 74 20 ut output;..int
1b90: 20 74 75 72 6e 20 3d 20 30 3b 0a 09 62 6f 6f 6c turn = 0;..bool
1ba0: 20 64 65 61 64 20 3d 20 66 61 6c 73 65 3b 0a 09 dead = false;..
1bb0: 69 6e 74 20 20 6c 61 6d 62 64 61 20 3d 20 30 3b int lambda = 0;
1bc0: 0a 09 69 6e 74 20 20 65 78 69 74 5f 62 6f 6e 75 ..int exit_bonu
1bd0: 73 20 3d 20 30 3b 0a 09 69 6e 74 20 20 75 6e 64 s = 0;..int und
1be0: 65 72 5f 77 61 74 65 72 20 3d 20 30 3b 0a 09 2f er_water = 0;../
1bf0: 2f 20 54 4f 44 4f 3a 20 77 68 65 6e 20 61 64 64 / TODO: when add
1c00: 69 6e 67 20 6d 65 6d 62 65 72 73 2c 20 74 61 6b ing members, tak
1c10: 65 20 63 61 72 65 20 6f 66 20 63 6c 6f 6e 65 28 e care of clone(
1c20: 29 2e 0a 09 2f 2f 20 54 4f 44 4f 3a 20 66 69 78 )...// TODO: fix
1c30: 20 74 68 69 73 20 70 6f 6f 72 20 64 65 73 69 67 this poor desig
1c40: 6e 2e 0a 0a 09 40 70 72 6f 70 65 72 74 79 20 7b n....@property {
1c50: 0a 09 09 6c 6f 6e 67 20 73 63 6f 72 65 28 29 20 ...long score()
1c60: 7b 20 72 65 74 75 72 6e 20 6c 61 6d 62 64 61 2a { return lambda*
1c70: 32 35 4c 2a 28 31 2b 65 78 69 74 5f 62 6f 6e 75 25L*(1+exit_bonu
1c80: 73 29 20 2d 20 74 75 72 6e 3b 20 7d 0a 09 09 69 s) - turn; }...i
1c90: 6e 74 20 77 61 74 65 72 5f 6c 65 76 65 6c 28 29 nt water_level()
1ca0: 20 7b 20 72 65 74 75 72 6e 20 77 61 74 65 72 2e { return water.
1cb0: 6c 65 76 65 6c 28 74 75 72 6e 29 3b 20 7d 0a 09 level(turn); }..
1cc0: 09 69 6e 74 20 77 61 74 65 72 5f 75 6e 74 69 6c .int water_until
1cd0: 5f 72 69 73 65 28 29 20 7b 20 72 65 74 75 72 6e _rise() { return
1ce0: 20 77 61 74 65 72 2e 75 6e 74 69 6c 5f 72 69 73 water.until_ris
1cf0: 65 28 74 75 72 6e 29 3b 20 7d 0a 09 09 62 6f 6f e(turn); }...boo
1d00: 6c 20 63 6c 65 61 72 65 64 28 29 20 7b 20 72 65 l cleared() { re
1d10: 74 75 72 6e 20 65 78 69 74 5f 62 6f 6e 75 73 3e turn exit_bonus>
1d20: 30 3b 20 7d 0a 09 09 69 6e 74 20 68 70 28 29 20 0; }...int hp()
1d30: 7b 20 72 65 74 75 72 6e 20 6d 61 70 2e 77 61 74 { return map.wat
1d40: 65 72 70 72 6f 6f 66 20 2d 20 75 6e 64 65 72 5f erproof - under_
1d50: 77 61 74 65 72 3b 20 7d 0a 09 09 6c 6f 6e 67 20 water; }...long
1d60: 73 63 6f 72 65 5f 69 66 5f 61 62 6f 72 74 5f 6e score_if_abort_n
1d70: 6f 77 28 29 20 7b 20 72 65 74 75 72 6e 20 6c 61 ow() { return la
1d80: 6d 62 64 61 2a 32 35 2a 28 31 2b 6d 61 78 28 31 mbda*25*(1+max(1
1d90: 2c 65 78 69 74 5f 62 6f 6e 75 73 29 29 20 2d 20 ,exit_bonus)) -
1da0: 74 75 72 6e 3b 20 7d 0a 09 7d 0a 7d 0a 0a 75 6e turn; }..}.}..un
1db0: 69 74 74 65 73 74 0a 7b 0a 09 47 61 6d 65 2e 6c ittest.{..Game.l
1dc0: 6f 61 64 28 5b 22 23 23 23 22 2c 22 2e 2e 2e 22 oad(["###","..."
1dd0: 2c 22 23 52 4c 22 5d 2c 20 5b 22 78 78 78 22 3a ,"#RL"], ["xxx":
1de0: 22 79 79 79 22 5d 29 3b 0a 7d 0a "yyy"]);.}.