0000: 69 6d 70 6f 72 74 20 75 74 69 6c 3b 0a 0a 2f 2f import util;..//
0010: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
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 0a 0a //////////////..
0060: 63 6c 61 73 73 20 50 6f 73 0a 7b 0a 09 70 75 62 class Pos.{..pub
0070: 6c 69 63 20 69 6d 6d 75 74 61 62 6c 65 20 69 6e lic immutable in
0080: 74 20 79 2c 20 78 3b 0a 09 6d 69 78 69 6e 20 44 t y, x;..mixin D
0090: 65 72 69 76 65 43 72 65 61 74 65 3b 0a 09 6d 69 eriveCreate;..mi
00a0: 78 69 6e 20 44 65 72 69 76 65 43 6f 6d 70 61 72 xin DeriveCompar
00b0: 65 3b 0a 09 6d 69 78 69 6e 20 44 65 72 69 76 65 e;..mixin Derive
00c0: 53 68 6f 77 3b 0a 09 50 6f 73 20 63 6c 6f 6e 65 Show;..Pos clone
00d0: 28 29 20 63 6f 6e 73 74 20 7b 20 72 65 74 75 72 () const { retur
00e0: 6e 20 63 61 73 74 28 50 6f 73 29 20 74 68 69 73 n cast(Pos) this
00f0: 3b 20 7d 0a 0a 63 6f 6e 73 74 20 40 70 72 6f 70 ; }..const @prop
0100: 65 72 74 79 3a 0a 09 50 6f 73 20 77 61 69 74 28 erty:..Pos wait(
0110: 29 20 20 7b 20 72 65 74 75 72 6e 20 74 68 69 73 ) { return this
0120: 2e 63 6c 6f 6e 65 28 29 3b 20 7d 0a 09 50 6f 73 .clone(); }..Pos
0130: 20 75 70 28 29 20 20 20 20 7b 20 72 65 74 75 72 up() { retur
0140: 6e 20 6e 65 77 20 50 6f 73 28 79 2b 31 2c 20 78 n new Pos(y+1, x
0150: 29 3b 20 7d 0a 09 50 6f 73 20 64 6f 77 6e 28 29 ); }..Pos down()
0160: 20 20 7b 20 72 65 74 75 72 6e 20 6e 65 77 20 50 { return new P
0170: 6f 73 28 79 2d 31 2c 20 78 29 3b 20 7d 0a 09 50 os(y-1, x); }..P
0180: 6f 73 20 6c 65 66 74 28 29 20 20 7b 20 72 65 74 os left() { ret
0190: 75 72 6e 20 6e 65 77 20 50 6f 73 28 79 2c 20 78 urn new Pos(y, x
01a0: 2d 31 29 3b 20 7d 0a 09 50 6f 73 20 72 69 67 68 -1); }..Pos righ
01b0: 74 28 29 20 7b 20 72 65 74 75 72 6e 20 6e 65 77 t() { return new
01c0: 20 50 6f 73 28 79 2c 20 78 2b 31 29 3b 20 7d 0a Pos(y, x+1); }.
01d0: 09 61 6c 69 61 73 20 77 61 69 74 20 20 57 2c 77 .alias wait W,w
01e0: 3b 0a 09 61 6c 69 61 73 20 75 70 20 20 20 20 55 ;..alias up U
01f0: 2c 75 3b 0a 09 61 6c 69 61 73 20 64 6f 77 6e 20 ,u;..alias down
0200: 20 44 2c 64 3b 0a 09 61 6c 69 61 73 20 6c 65 66 D,d;..alias lef
0210: 74 20 20 4c 2c 6c 3b 0a 09 61 6c 69 61 73 20 72 t L,l;..alias r
0220: 69 67 68 74 20 52 2c 72 3b 0a 7d 0a 0a 75 6e 69 ight R,r;.}..uni
0230: 74 74 65 73 74 0a 7b 0a 09 61 73 73 65 72 74 28 ttest.{..assert(
0240: 20 28 6e 65 77 20 50 6f 73 28 32 2c 31 29 29 2e (new Pos(2,1)).
0250: 55 20 3d 3d 20 6e 65 77 20 50 6f 73 28 33 2c 31 U == new Pos(3,1
0260: 29 20 29 3b 0a 09 61 73 73 65 72 74 28 20 28 6e ) );..assert( (n
0270: 65 77 20 50 6f 73 28 30 2c 31 29 29 2e 44 20 3d ew Pos(0,1)).D =
0280: 3d 20 6e 65 77 20 50 6f 73 28 2d 31 2c 31 29 20 = new Pos(-1,1)
0290: 29 3b 0a 09 61 73 73 65 72 74 28 20 28 6e 65 77 );..assert( (new
02a0: 20 50 6f 73 28 32 2c 31 29 29 2e 4c 20 3d 3d 20 Pos(2,1)).L ==
02b0: 6e 65 77 20 50 6f 73 28 32 2c 30 29 20 29 3b 0a new Pos(2,0) );.
02c0: 09 61 73 73 65 72 74 28 20 28 6e 65 77 20 50 6f .assert( (new Po
02d0: 73 28 32 2c 31 29 29 2e 52 20 3d 3d 20 6e 65 77 s(2,1)).R == new
02e0: 20 50 6f 73 28 32 2c 32 29 20 29 3b 0a 09 69 6e Pos(2,2) );..in
02f0: 74 5b 50 6f 73 5d 20 61 61 3b 0a 09 61 61 5b 6e t[Pos] aa;..aa[n
0300: 65 77 20 50 6f 73 28 31 2c 32 29 5d 20 3d 20 31 ew Pos(1,2)] = 1
0310: 3b 0a 09 61 61 5b 6e 65 77 20 50 6f 73 28 31 2c ;..aa[new Pos(1,
0320: 32 29 5d 20 3d 20 32 3b 0a 09 61 61 5b 6e 65 77 2)] = 2;..aa[new
0330: 20 50 6f 73 28 32 2c 31 29 5d 20 3d 20 33 3b 0a Pos(2,1)] = 3;.
0340: 09 61 73 73 65 72 74 28 20 61 61 2e 6c 65 6e 67 .assert( aa.leng
0350: 74 68 3d 3d 32 20 29 3b 0a 09 61 73 73 65 72 74 th==2 );..assert
0360: 28 20 61 61 5b 6e 65 77 20 50 6f 73 28 31 2c 32 ( aa[new Pos(1,2
0370: 29 5d 3d 3d 32 20 29 3b 0a 7d 0a 0a 2f 2f 2f 2f )]==2 );.}..////
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 2f 2f 2f ////////////////
03c0: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 0a 0a 63 6c ////////////..cl
03d0: 61 73 73 20 57 61 74 65 72 0a 7b 0a 09 70 75 62 ass Water.{..pub
03e0: 6c 69 63 20 69 6d 6d 75 74 61 62 6c 65 20 69 6e lic immutable in
03f0: 74 20 62 61 73 65 2c 20 70 61 63 65 3b 0a 09 6d t base, pace;..m
0400: 69 78 69 6e 20 44 65 72 69 76 65 43 72 65 61 74 ixin DeriveCreat
0410: 65 3b 0a 09 6d 69 78 69 6e 20 44 65 72 69 76 65 e;..mixin Derive
0420: 53 68 6f 77 3b 0a 09 57 61 74 65 72 20 63 6c 6f Show;..Water clo
0430: 6e 65 28 29 20 63 6f 6e 73 74 20 7b 20 72 65 74 ne() const { ret
0440: 75 72 6e 20 63 61 73 74 28 57 61 74 65 72 29 20 urn cast(Water)
0450: 74 68 69 73 3b 20 7d 0a 0a 09 73 74 61 74 69 63 this; }...static
0460: 20 6c 6f 61 64 28 73 74 72 69 6e 67 5b 73 74 72 load(string[str
0470: 69 6e 67 5d 20 70 61 72 61 6d 73 29 0a 09 7b 0a ing] params)..{.
0480: 09 09 72 65 74 75 72 6e 20 6e 65 77 20 57 61 74 ..return new Wat
0490: 65 72 28 70 61 72 61 6d 73 2e 67 65 74 28 22 57 er(params.get("W
04a0: 61 74 65 72 22 2c 20 20 20 20 22 30 22 29 2e 74 ater", "0").t
04b0: 6f 21 69 6e 74 28 29 2c 0a 09 09 20 20 20 20 20 o!int(),...
04c0: 20 20 20 20 20 20 20 20 20 20 20 20 70 61 72 61 para
04d0: 6d 73 2e 67 65 74 28 22 46 6c 6f 6f 64 69 6e 67 ms.get("Flooding
04e0: 22 2c 20 22 30 22 29 2e 74 6f 21 69 6e 74 28 29 ", "0").to!int()
04f0: 29 3b 0a 09 7d 0a 0a 09 69 6e 74 20 6c 65 76 65 );..}...int leve
0500: 6c 28 69 6e 74 20 74 75 72 6e 29 20 63 6f 6e 73 l(int turn) cons
0510: 74 0a 09 7b 0a 09 09 72 65 74 75 72 6e 20 70 61 t..{...return pa
0520: 63 65 20 3f 20 62 61 73 65 2b 28 74 75 72 6e 2f ce ? base+(turn/
0530: 70 61 63 65 29 20 3a 20 62 61 73 65 3b 0a 09 7d pace) : base;..}
0540: 0a 0a 09 69 6e 74 20 75 6e 74 69 6c 5f 72 69 73 ...int until_ris
0550: 65 28 69 6e 74 20 74 75 72 6e 29 20 63 6f 6e 73 e(int turn) cons
0560: 74 0a 09 7b 0a 09 09 72 65 74 75 72 6e 20 70 61 t..{...return pa
0570: 63 65 20 3f 20 70 61 63 65 2d 74 75 72 6e 25 70 ce ? pace-turn%p
0580: 61 63 65 20 3a 20 69 6e 74 2e 6d 61 78 3b 0a 09 ace : int.max;..
0590: 7d 0a 7d 0a 0a 75 6e 69 74 74 65 73 74 0a 7b 0a }.}..unittest.{.
05a0: 09 57 61 74 65 72 20 77 20 3d 20 6e 65 77 20 57 .Water w = new W
05b0: 61 74 65 72 28 31 2c 20 33 29 3b 0a 09 61 73 73 ater(1, 3);..ass
05c0: 65 72 74 28 20 31 20 3d 3d 20 77 2e 6c 65 76 65 ert( 1 == w.leve
05d0: 6c 28 30 29 20 29 3b 0a 09 61 73 73 65 72 74 28 l(0) );..assert(
05e0: 20 31 20 3d 3d 20 77 2e 6c 65 76 65 6c 28 31 29 1 == w.level(1)
05f0: 20 29 3b 0a 09 61 73 73 65 72 74 28 20 31 20 3d );..assert( 1 =
0600: 3d 20 77 2e 6c 65 76 65 6c 28 32 29 20 29 3b 0a = w.level(2) );.
0610: 09 61 73 73 65 72 74 28 20 32 20 3d 3d 20 77 2e .assert( 2 == w.
0620: 6c 65 76 65 6c 28 33 29 20 29 3b 0a 09 61 73 73 level(3) );..ass
0630: 65 72 74 28 20 32 20 3d 3d 20 77 2e 6c 65 76 65 ert( 2 == w.leve
0640: 6c 28 34 29 20 29 3b 0a 09 61 73 73 65 72 74 28 l(4) );..assert(
0650: 20 32 20 3d 3d 20 77 2e 6c 65 76 65 6c 28 35 29 2 == w.level(5)
0660: 20 29 3b 0a 09 61 73 73 65 72 74 28 20 33 20 3d );..assert( 3 =
0670: 3d 20 77 2e 6c 65 76 65 6c 28 36 29 20 29 3b 0a = w.level(6) );.
0680: 0a 09 77 20 3d 20 6e 65 77 20 57 61 74 65 72 28 ..w = new Water(
0690: 31 2c 20 30 29 3b 0a 09 61 73 73 65 72 74 28 20 1, 0);..assert(
06a0: 31 20 3d 3d 20 77 2e 6c 65 76 65 6c 28 30 29 20 1 == w.level(0)
06b0: 29 3b 0a 09 61 73 73 65 72 74 28 20 31 20 3d 3d );..assert( 1 ==
06c0: 20 77 2e 6c 65 76 65 6c 28 31 29 20 29 3b 0a 09 w.level(1) );..
06d0: 61 73 73 65 72 74 28 20 31 20 3d 3d 20 77 2e 6c assert( 1 == w.l
06e0: 65 76 65 6c 28 32 29 20 29 3b 0a 09 61 73 73 65 evel(2) );..asse
06f0: 72 74 28 20 31 20 3d 3d 20 77 2e 6c 65 76 65 6c rt( 1 == w.level
0700: 28 33 29 20 29 3b 0a 09 61 73 73 65 72 74 28 20 (3) );..assert(
0710: 31 20 3d 3d 20 77 2e 6c 65 76 65 6c 28 34 29 20 1 == w.level(4)
0720: 29 3b 0a 09 61 73 73 65 72 74 28 20 31 20 3d 3d );..assert( 1 ==
0730: 20 77 2e 6c 65 76 65 6c 28 35 29 20 29 3b 0a 7d w.level(5) );.}
0740: 0a 0a 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ..//////////////
0750: 2f 2f 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 0a 0a 63 6c 61 73 73 20 48 69 67 65 0a 7b //..class Hige.{
07a0: 0a 09 70 75 62 6c 69 63 20 69 6d 6d 75 74 61 62 ..public immutab
07b0: 6c 65 20 69 6e 74 20 70 61 63 65 3b 0a 09 6d 69 le int pace;..mi
07c0: 78 69 6e 20 44 65 72 69 76 65 43 72 65 61 74 65 xin DeriveCreate
07d0: 3b 0a 09 6d 69 78 69 6e 20 44 65 72 69 76 65 53 ;..mixin DeriveS
07e0: 68 6f 77 3b 0a 09 48 69 67 65 20 63 6c 6f 6e 65 how;..Hige clone
07f0: 28 29 20 63 6f 6e 73 74 20 7b 20 72 65 74 75 72 () const { retur
0800: 6e 20 63 61 73 74 28 48 69 67 65 29 74 68 69 73 n cast(Hige)this
0810: 3b 20 7d 0a 0a 09 73 74 61 74 69 63 20 6c 6f 61 ; }...static loa
0820: 64 28 73 74 72 69 6e 67 5b 73 74 72 69 6e 67 5d d(string[string]
0830: 20 70 61 72 61 6d 73 29 0a 09 7b 0a 09 09 72 65 params)..{...re
0840: 74 75 72 6e 20 6e 65 77 20 48 69 67 65 28 70 61 turn new Hige(pa
0850: 72 61 6d 73 2e 67 65 74 28 22 47 72 6f 77 74 68 rams.get("Growth
0860: 22 2c 20 22 32 35 22 29 2e 74 6f 21 69 6e 74 28 ", "25").to!int(
0870: 29 29 3b 0a 09 7d 0a 0a 09 62 6f 6f 6c 20 69 73 ));..}...bool is
0880: 5f 67 72 6f 77 69 6e 67 5f 74 75 72 6e 28 69 6e _growing_turn(in
0890: 74 20 74 75 72 6e 29 20 63 6f 6e 73 74 0a 09 7b t turn) const..{
08a0: 0a 09 09 72 65 74 75 72 6e 20 70 61 63 65 20 3f ...return pace ?
08b0: 20 74 75 72 6e 25 70 61 63 65 20 3d 3d 20 70 61 turn%pace == pa
08c0: 63 65 2d 31 20 3a 20 66 61 6c 73 65 3b 0a 09 7d ce-1 : false;..}
08d0: 0a 0a 09 69 6e 74 20 75 6e 74 69 6c 5f 72 69 73 ...int until_ris
08e0: 65 28 69 6e 74 20 74 75 72 6e 29 20 63 6f 6e 73 e(int turn) cons
08f0: 74 0a 09 7b 0a 09 09 72 65 74 75 72 6e 20 70 61 t..{...return pa
0900: 63 65 20 3f 20 70 61 63 65 2d 74 75 72 6e 25 70 ce ? pace-turn%p
0910: 61 63 65 20 3a 20 69 6e 74 2e 6d 61 78 3b 0a 09 ace : int.max;..
0920: 7d 0a 7d 0a 0a 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f }.}..///////////
0930: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
0940: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
0950: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
0960: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
0970: 2f 2f 2f 2f 2f 0a 0a 63 6c 61 73 73 20 54 72 61 /////..class Tra
0980: 6d 70 6f 6c 69 6e 65 0a 7b 0a 09 70 72 69 76 61 mpoline.{..priva
0990: 74 65 20 69 6d 6d 75 74 61 62 6c 65 20 63 68 61 te immutable cha
09a0: 72 5b 5d 20 20 20 74 61 72 67 65 74 5f 6f 66 5f r[] target_of_
09b0: 3b 0a 09 70 72 69 76 61 74 65 20 69 6d 6d 75 74 ;..private immut
09c0: 61 62 6c 65 20 63 68 61 72 5b 5d 5b 5d 20 73 6f able char[][] so
09d0: 75 72 63 65 5f 6f 66 5f 3b 0a 09 70 72 69 76 61 urce_of_;..priva
09e0: 74 65 20 69 6d 6d 75 74 61 62 6c 65 20 50 6f 73 te immutable Pos
09f0: 5b 5d 20 20 20 20 70 6f 73 69 74 69 6f 6e 5f 6f [] position_o
0a00: 66 5f 3b 0a 09 70 72 69 76 61 74 65 20 69 6d 6d f_;..private imm
0a10: 75 74 61 62 6c 65 20 63 68 61 72 5b 5d 20 20 20 utable char[]
0a20: 73 6f 75 72 63 65 5f 6c 69 73 74 5f 3b 0a 09 70 source_list_;..p
0a30: 72 69 76 61 74 65 20 69 6d 6d 75 74 61 62 6c 65 rivate immutable
0a40: 20 63 68 61 72 5b 5d 20 20 20 74 61 72 67 65 74 char[] target
0a50: 5f 6c 69 73 74 5f 3b 0a 09 6d 69 78 69 6e 20 44 _list_;..mixin D
0a60: 65 72 69 76 65 53 68 6f 77 3b 0a 09 54 72 61 6d eriveShow;..Tram
0a70: 70 6f 6c 69 6e 65 20 63 6c 6f 6e 65 28 29 20 63 poline clone() c
0a80: 6f 6e 73 74 20 7b 20 72 65 74 75 72 6e 20 63 61 onst { return ca
0a90: 73 74 28 54 72 61 6d 70 6f 6c 69 6e 65 29 20 74 st(Trampoline) t
0aa0: 68 69 73 3b 20 7d 0a 09 74 68 69 73 28 4d 61 70 his; }..this(Map
0ab0: 20 6d 2c 20 63 68 61 72 5b 63 68 61 72 5d 20 74 m, char[char] t
0ac0: 72 61 6d 70 61 72 61 6d 29 0a 09 7b 0a 09 09 61 ramparam)..{...a
0ad0: 75 74 6f 20 74 61 20 3d 20 6e 65 77 20 63 68 61 uto ta = new cha
0ae0: 72 5b 27 49 27 2b 31 5d 3b 0a 09 09 61 75 74 6f r['I'+1];...auto
0af0: 20 73 72 20 3d 20 6e 65 77 20 63 68 61 72 5b 5d sr = new char[]
0b00: 5b 27 39 27 2b 31 5d 3b 0a 09 09 61 75 74 6f 20 ['9'+1];...auto
0b10: 70 6f 20 3d 20 6e 65 77 20 50 6f 73 5b 6d 61 78 po = new Pos[max
0b20: 28 27 49 27 2c 27 39 27 29 2b 31 5d 3b 0a 09 09 ('I','9')+1];...
0b30: 63 68 61 72 5b 5d 20 73 6c 2c 20 74 6c 3b 0a 09 char[] sl, tl;..
0b40: 09 66 6f 72 65 61 63 68 28 66 72 2c 74 6f 3b 20 .foreach(fr,to;
0b50: 74 72 61 6d 70 61 72 61 6d 29 20 7b 0a 09 09 09 tramparam) {....
0b60: 74 61 5b 66 72 5d 20 20 3d 20 74 6f 3b 0a 09 09 ta[fr] = to;...
0b70: 09 73 72 5b 74 6f 5d 20 7e 3d 20 66 72 3b 0a 09 .sr[to] ~= fr;..
0b80: 09 7d 0a 09 09 66 6f 72 28 69 6e 74 20 79 3d 31 .}...for(int y=1
0b90: 3b 20 79 3c 3d 6d 2e 48 3b 20 2b 2b 79 29 0a 09 ; y<=m.H; ++y)..
0ba0: 09 66 6f 72 28 69 6e 74 20 78 3d 31 3b 20 78 3c .for(int x=1; x<
0bb0: 3d 6d 2e 57 3b 20 2b 2b 78 29 20 7b 0a 09 09 09 =m.W; ++x) {....
0bc0: 63 68 61 72 20 63 20 3d 20 6d 5b 79 2c 78 5d 3b char c = m[y,x];
0bd0: 0a 09 09 09 69 66 28 27 41 27 3c 3d 63 20 26 26 ....if('A'<=c &&
0be0: 20 63 3c 3d 27 49 27 29 20 7b 0a 09 09 09 09 73 c<='I') {.....s
0bf0: 6c 20 7e 3d 20 63 3b 0a 09 09 09 09 70 6f 5b 63 l ~= c;.....po[c
0c00: 5d 20 3d 20 6e 65 77 20 50 6f 73 28 79 2c 78 29 ] = new Pos(y,x)
0c10: 3b 0a 09 09 09 7d 0a 09 09 09 69 66 28 27 31 27 ;....}....if('1'
0c20: 3c 3d 63 20 26 26 20 63 3c 3d 27 39 27 29 20 7b <=c && c<='9') {
0c30: 0a 09 09 09 09 74 6c 20 7e 3d 20 63 3b 0a 09 09 .....tl ~= c;...
0c40: 09 09 70 6f 5b 63 5d 20 3d 20 6e 65 77 20 50 6f ..po[c] = new Po
0c50: 73 28 79 2c 78 29 3b 0a 09 09 09 7d 0a 09 09 7d s(y,x);....}...}
0c60: 0a 09 09 74 61 72 67 65 74 5f 6f 66 5f 20 3d 20 ...target_of_ =
0c70: 63 61 73 74 28 69 6d 6d 75 74 61 62 6c 65 29 20 cast(immutable)
0c80: 74 61 3b 0a 09 09 73 6f 75 72 63 65 5f 6f 66 5f ta;...source_of_
0c90: 20 3d 20 63 61 73 74 28 69 6d 6d 75 74 61 62 6c = cast(immutabl
0ca0: 65 29 20 73 72 3b 0a 09 09 70 6f 73 69 74 69 6f e) sr;...positio
0cb0: 6e 5f 6f 66 5f 20 3d 20 63 61 73 74 28 69 6d 6d n_of_ = cast(imm
0cc0: 75 74 61 62 6c 65 29 20 70 6f 3b 0a 09 09 73 6f utable) po;...so
0cd0: 75 72 63 65 5f 6c 69 73 74 5f 20 3d 20 63 61 73 urce_list_ = cas
0ce0: 74 28 69 6d 6d 75 74 61 62 6c 65 29 20 73 6c 3b t(immutable) sl;
0cf0: 0a 09 09 74 61 72 67 65 74 5f 6c 69 73 74 5f 20 ...target_list_
0d00: 3d 20 63 61 73 74 28 69 6d 6d 75 74 61 62 6c 65 = cast(immutable
0d10: 29 20 74 6c 3b 0a 09 7d 0a 0a 40 70 72 6f 70 65 ) tl;..}..@prope
0d20: 72 74 79 20 63 6f 6e 73 74 3a 0a 09 63 6f 6e 73 rty const:..cons
0d30: 74 28 63 68 61 72 5b 5d 29 20 73 6f 75 72 63 65 t(char[]) source
0d40: 5f 6c 69 73 74 28 29 20 7b 20 72 65 74 75 72 6e _list() { return
0d50: 20 73 6f 75 72 63 65 5f 6c 69 73 74 5f 3b 20 7d source_list_; }
0d60: 0a 09 63 6f 6e 73 74 28 63 68 61 72 5b 5d 29 20 ..const(char[])
0d70: 74 61 72 67 65 74 5f 6c 69 73 74 28 29 20 7b 20 target_list() {
0d80: 72 65 74 75 72 6e 20 74 61 72 67 65 74 5f 6c 69 return target_li
0d90: 73 74 5f 3b 20 7d 0a 09 63 6f 6e 73 74 28 63 68 st_; }..const(ch
0da0: 61 72 5b 5d 29 20 73 6f 75 72 63 65 5f 6f 66 28 ar[]) source_of(
0db0: 63 68 61 72 20 63 29 20 7b 20 72 65 74 75 72 6e char c) { return
0dc0: 20 73 6f 75 72 63 65 5f 6f 66 5f 5b 63 5d 3b 20 source_of_[c];
0dd0: 7d 0a 09 63 68 61 72 20 74 61 72 67 65 74 5f 6f }..char target_o
0de0: 66 28 63 68 61 72 20 63 29 20 7b 20 72 65 74 75 f(char c) { retu
0df0: 72 6e 20 74 61 72 67 65 74 5f 6f 66 5f 5b 63 5d rn target_of_[c]
0e00: 3b 20 7d 0a 09 50 6f 73 5b 5d 20 73 6f 75 72 63 ; }..Pos[] sourc
0e10: 65 5f 70 6f 73 28 63 68 61 72 20 63 29 20 7b 0a e_pos(char c) {.
0e20: 09 09 50 6f 73 5b 5d 20 70 73 3b 0a 09 09 66 6f ..Pos[] ps;...fo
0e30: 72 65 61 63 68 28 73 3b 20 73 6f 75 72 63 65 5f reach(s; source_
0e40: 6f 66 28 63 29 29 0a 09 09 09 70 73 20 7e 3d 20 of(c))....ps ~=
0e50: 70 6f 73 69 74 69 6f 6e 5f 6f 66 5f 5b 73 5d 2e position_of_[s].
0e60: 63 6c 6f 6e 65 28 29 3b 0a 09 09 72 65 74 75 72 clone();...retur
0e70: 6e 20 70 73 3b 0a 09 7d 0a 09 50 6f 73 20 74 61 n ps;..}..Pos ta
0e80: 72 67 65 74 5f 70 6f 73 28 63 68 61 72 20 63 29 rget_pos(char c)
0e90: 20 7b 20 72 65 74 75 72 6e 20 70 6f 73 69 74 69 { return positi
0ea0: 6f 6e 5f 6f 66 5f 5b 74 61 72 67 65 74 5f 6f 66 on_of_[target_of
0eb0: 5f 5b 63 5d 5d 2e 63 6c 6f 6e 65 28 29 3b 20 7d _[c]].clone(); }
0ec0: 0a 7d 0a 0a 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f .}..////////////
0ed0: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
0ee0: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
0ef0: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
0f00: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
0f10: 2f 2f 2f 2f 0a 0a 63 6c 61 73 73 20 4d 61 70 0a ////..class Map.
0f20: 7b 0a 09 6d 69 78 69 6e 20 44 65 72 69 76 65 53 {..mixin DeriveS
0f30: 68 6f 77 3b 0a 0a 09 63 68 61 72 5b 5d 5b 5d 20 how;...char[][]
0f40: 64 61 74 61 3b 0a 09 50 6f 73 20 72 6f 62 6f 74 data;..Pos robot
0f50: 3b 0a 09 50 6f 73 20 6c 69 66 74 3b 0a 09 69 6e ;..Pos lift;..in
0f60: 74 20 77 61 74 65 72 70 72 6f 6f 66 3b 0a 09 69 t waterproof;..i
0f70: 6e 74 20 72 61 7a 6f 72 3b 0a 09 69 6e 74 20 63 nt razor;..int c
0f80: 6f 6c 6c 65 63 74 65 64 5f 6c 61 6d 62 64 61 3b ollected_lambda;
0f90: 0a 09 69 6e 74 20 74 6f 74 61 6c 5f 6c 61 6d 62 ..int total_lamb
0fa0: 64 61 3b 0a 09 62 6f 6f 6c 20 63 6c 65 61 72 65 da;..bool cleare
0fb0: 64 3b 0a 09 50 6f 73 5b 5d 20 6d 61 79 5f 75 70 d;..Pos[] may_up
0fc0: 64 61 74 65 3b 0a 0a 09 4d 61 70 20 63 6c 6f 6e date;...Map clon
0fd0: 65 28 29 20 63 6f 6e 73 74 20 7b 20 72 65 74 75 e() const { retu
0fe0: 72 6e 20 6e 65 77 20 4d 61 70 28 74 68 69 73 29 rn new Map(this)
0ff0: 3b 20 7d 0a 09 74 68 69 73 28 69 6e 20 4d 61 70 ; }..this(in Map
1000: 20 6d 29 20 7b 0a 09 09 66 6f 72 65 61 63 68 28 m) {...foreach(
1010: 73 3b 20 6d 2e 64 61 74 61 29 0a 09 09 09 74 68 s; m.data)....th
1020: 69 73 2e 64 61 74 61 20 7e 3d 20 73 2e 64 75 70 is.data ~= s.dup
1030: 3b 0a 09 09 74 68 69 73 2e 72 6f 62 6f 74 20 3d ;...this.robot =
1040: 20 6d 2e 72 6f 62 6f 74 2e 63 6c 6f 6e 65 28 29 m.robot.clone()
1050: 3b 0a 09 09 74 68 69 73 2e 6c 69 66 74 20 3d 20 ;...this.lift =
1060: 6d 2e 6c 69 66 74 2e 63 6c 6f 6e 65 28 29 3b 0a m.lift.clone();.
1070: 09 09 74 68 69 73 2e 77 61 74 65 72 70 72 6f 6f ..this.waterproo
1080: 66 20 3d 20 6d 2e 77 61 74 65 72 70 72 6f 6f 66 f = m.waterproof
1090: 3b 0a 09 09 74 68 69 73 2e 72 61 7a 6f 72 20 3d ;...this.razor =
10a0: 20 6d 2e 72 61 7a 6f 72 3b 0a 09 09 74 68 69 73 m.razor;...this
10b0: 2e 63 6f 6c 6c 65 63 74 65 64 5f 6c 61 6d 62 64 .collected_lambd
10c0: 61 20 3d 20 6d 2e 63 6f 6c 6c 65 63 74 65 64 5f a = m.collected_
10d0: 6c 61 6d 62 64 61 3b 0a 09 09 74 68 69 73 2e 74 lambda;...this.t
10e0: 6f 74 61 6c 5f 6c 61 6d 62 64 61 20 3d 20 6d 2e otal_lambda = m.
10f0: 74 6f 74 61 6c 5f 6c 61 6d 62 64 61 3b 0a 09 09 total_lambda;...
1100: 74 68 69 73 2e 6d 61 79 5f 75 70 64 61 74 65 20 this.may_update
1110: 3d 20 28 63 61 73 74 28 4d 61 70 29 6d 29 2e 6d = (cast(Map)m).m
1120: 61 79 5f 75 70 64 61 74 65 2e 64 75 70 3b 0a 09 ay_update.dup;..
1130: 09 74 68 69 73 2e 63 6c 65 61 72 65 64 20 3d 20 .this.cleared =
1140: 6d 2e 63 6c 65 61 72 65 64 3b 0a 09 7d 0a 0a 09 m.cleared;..}...
1150: 74 68 69 73 28 73 74 72 69 6e 67 5b 5d 20 72 61 this(string[] ra
1160: 77 5f 64 61 74 61 2c 20 73 74 72 69 6e 67 5b 73 w_data, string[s
1170: 74 72 69 6e 67 5d 20 70 61 72 61 6d 73 2c 20 63 tring] params, c
1180: 68 61 72 5b 63 68 61 72 5d 20 74 72 61 6d 70 6f har[char] trampo
1190: 29 0a 09 7b 0a 09 09 69 6e 74 20 77 69 64 74 68 )..{...int width
11a0: 20 3d 20 30 3b 0a 09 09 66 6f 72 65 61 63 68 28 = 0;...foreach(
11b0: 72 3b 20 72 61 77 5f 64 61 74 61 29 0a 09 09 09 r; raw_data)....
11c0: 77 69 64 74 68 20 3d 20 6d 61 78 28 77 69 64 74 width = max(widt
11d0: 68 2c 20 72 2e 6c 65 6e 67 74 68 29 3b 0a 09 09 h, r.length);...
11e0: 66 6f 72 65 61 63 68 28 72 3b 20 72 61 77 5f 64 foreach(r; raw_d
11f0: 61 74 61 29 20 7b 0a 09 09 09 74 68 69 73 2e 64 ata) {....this.d
1200: 61 74 61 20 7e 3d 20 72 2e 64 75 70 3b 0a 09 09 ata ~= r.dup;...
1210: 09 74 68 69 73 2e 64 61 74 61 5b 24 2d 31 5d 2e .this.data[$-1].
1220: 6c 65 6e 67 74 68 20 3d 20 77 69 64 74 68 3b 0a length = width;.
1230: 09 09 09 74 68 69 73 2e 64 61 74 61 5b 24 2d 31 ...this.data[$-1
1240: 5d 5b 72 2e 6c 65 6e 67 74 68 2e 2e 24 5d 20 3d ][r.length..$] =
1250: 20 27 20 27 3b 0a 09 09 7d 0a 0a 09 09 66 6f 72 ' ';...}....for
1260: 28 69 6e 74 20 79 3d 31 3b 20 79 3c 3d 48 3b 20 (int y=1; y<=H;
1270: 2b 2b 79 29 0a 09 09 66 6f 72 28 69 6e 74 20 78 ++y)...for(int x
1280: 3d 31 3b 20 78 3c 3d 57 3b 20 2b 2b 78 29 20 7b =1; x<=W; ++x) {
1290: 0a 09 09 09 69 66 28 74 68 69 73 5b 79 2c 78 5d ....if(this[y,x]
12a0: 20 3d 3d 20 27 52 27 29 0a 09 09 09 09 74 68 69 == 'R').....thi
12b0: 73 2e 72 6f 62 6f 74 20 3d 20 6e 65 77 20 50 6f s.robot = new Po
12c0: 73 28 79 2c 78 29 3b 0a 09 09 09 69 66 28 74 68 s(y,x);....if(th
12d0: 69 73 5b 79 2c 78 5d 20 3d 3d 20 27 4c 27 20 7c is[y,x] == 'L' |
12e0: 7c 20 74 68 69 73 5b 79 2c 78 5d 20 3d 3d 20 27 | this[y,x] == '
12f0: 4f 27 29 0a 09 09 09 09 74 68 69 73 2e 6c 69 66 O').....this.lif
1300: 74 20 3d 20 6e 65 77 20 50 6f 73 28 79 2c 78 29 t = new Pos(y,x)
1310: 3b 0a 09 09 09 69 66 28 74 68 69 73 5b 79 2c 78 ;....if(this[y,x
1320: 5d 20 3d 3d 20 27 5c 5c 27 20 7c 7c 20 74 68 69 ] == '\\' || thi
1330: 73 5b 79 2c 78 5d 20 3d 3d 20 27 40 27 29 0a 09 s[y,x] == '@')..
1340: 09 09 09 74 6f 74 61 6c 5f 6c 61 6d 62 64 61 2b ...total_lambda+
1350: 2b 3b 0a 09 09 09 69 66 28 74 68 69 73 5b 79 2c +;....if(this[y,
1360: 78 5d 20 3d 3d 20 27 2a 27 20 7c 7c 20 74 68 69 x] == '*' || thi
1370: 73 5b 79 2c 78 5d 20 3d 3d 20 27 40 27 29 0a 09 s[y,x] == '@')..
1380: 09 09 09 6d 61 79 5f 75 70 64 61 74 65 20 7e 3d ...may_update ~=
1390: 20 6e 65 77 20 50 6f 73 28 79 2c 78 29 3b 0a 09 new Pos(y,x);..
13a0: 09 7d 0a 0a 09 09 74 68 69 73 2e 77 61 74 65 72 .}....this.water
13b0: 70 72 6f 6f 66 20 3d 20 70 61 72 61 6d 73 2e 67 proof = params.g
13c0: 65 74 28 22 57 61 74 65 72 70 72 6f 6f 66 22 2c et("Waterproof",
13d0: 20 22 35 22 29 2e 74 6f 21 69 6e 74 28 29 3b 0a "5").to!int();.
13e0: 09 09 74 68 69 73 2e 72 61 7a 6f 72 20 3d 20 70 ..this.razor = p
13f0: 61 72 61 6d 73 2e 67 65 74 28 22 52 61 7a 6f 72 arams.get("Razor
1400: 73 22 2c 20 22 30 22 29 2e 74 6f 21 69 6e 74 28 s", "0").to!int(
1410: 29 3b 0a 09 7d 0a 0a 09 63 6f 6e 73 74 20 40 70 );..}...const @p
1420: 72 6f 70 65 72 74 79 20 7b 0a 09 09 69 6e 74 20 roperty {...int
1430: 48 28 29 20 7b 20 72 65 74 75 72 6e 20 64 61 74 H() { return dat
1440: 61 2e 6c 65 6e 67 74 68 3b 20 7d 0a 09 09 69 6e a.length; }...in
1450: 74 20 57 28 29 20 7b 20 72 65 74 75 72 6e 20 64 t W() { return d
1460: 61 74 61 5b 30 5d 2e 6c 65 6e 67 74 68 3b 20 7d ata[0].length; }
1470: 0a 09 7d 0a 0a 09 63 6f 6e 73 74 20 7b 0a 09 09 ..}...const {...
1480: 63 68 61 72 20 6f 70 49 6e 64 65 78 28 69 6e 74 char opIndex(int
1490: 20 79 2c 20 69 6e 74 20 78 29 0a 09 09 7b 0a 09 y, int x)...{..
14a0: 09 09 2f 2f 20 41 64 6a 75 73 74 20 63 6f 6f 72 ..// Adjust coor
14b0: 64 69 6e 61 74 65 20 74 6f 20 74 68 65 20 73 70 dinate to the sp
14c0: 65 63 2e 20 62 6f 74 74 6f 6d 2d 6c 65 66 74 20 ec. bottom-left
14d0: 69 73 20 28 31 2c 31 29 2e 0a 09 09 09 2d 2d 79 is (1,1).....--y
14e0: 2c 20 2d 2d 78 3b 0a 09 09 09 69 66 28 79 3c 30 , --x;....if(y<0
14f0: 7c 7c 48 3c 3d 79 7c 7c 78 3c 30 7c 7c 57 3c 3d ||H<=y||x<0||W<=
1500: 78 29 0a 09 09 09 09 72 65 74 75 72 6e 20 27 23 x).....return '#
1510: 27 3b 0a 09 09 09 72 65 74 75 72 6e 20 64 61 74 ';....return dat
1520: 61 5b 48 2d 31 2d 79 5d 5b 78 5d 3b 0a 09 09 7d a[H-1-y][x];...}
1530: 0a 0a 09 09 63 68 61 72 20 6f 70 49 6e 64 65 78 ....char opIndex
1540: 28 69 6e 20 50 6f 73 20 70 29 0a 09 09 7b 0a 09 (in Pos p)...{..
1550: 09 09 72 65 74 75 72 6e 20 74 68 69 73 5b 70 2e ..return this[p.
1560: 79 2c 20 70 2e 78 5d 3b 0a 09 09 7d 0a 09 7d 0a y, p.x];...}..}.
1570: 0a 09 76 6f 69 64 20 6f 70 49 6e 64 65 78 41 73 ..void opIndexAs
1580: 73 69 67 6e 28 63 68 61 72 20 63 2c 20 69 6e 74 sign(char c, int
1590: 20 79 2c 20 69 6e 74 20 78 29 0a 09 7b 0a 09 09 y, int x)..{...
15a0: 2f 2f 20 41 64 6a 75 73 74 20 63 6f 6f 72 64 69 // Adjust coordi
15b0: 6e 61 74 65 20 74 6f 20 74 68 65 20 73 70 65 63 nate to the spec
15c0: 2e 20 62 6f 74 74 6f 6d 2d 6c 65 66 74 20 69 73 . bottom-left is
15d0: 20 28 31 2c 31 29 2e 0a 09 09 2d 2d 79 2c 20 2d (1,1)....--y, -
15e0: 2d 78 3b 0a 09 09 69 66 28 79 3c 30 7c 7c 48 3c -x;...if(y<0||H<
15f0: 3d 79 7c 7c 78 3c 30 7c 7c 57 3c 3d 78 29 0a 09 =y||x<0||W<=x)..
1600: 09 09 72 65 74 75 72 6e 3b 0a 09 09 64 61 74 61 ..return;...data
1610: 5b 48 2d 31 2d 79 5d 5b 78 5d 20 3d 20 63 3b 0a [H-1-y][x] = c;.
1620: 09 7d 0a 0a 09 76 6f 69 64 20 6f 70 49 6e 64 65 .}...void opInde
1630: 78 41 73 73 69 67 6e 28 63 68 61 72 20 63 2c 20 xAssign(char c,
1640: 69 6e 20 50 6f 73 20 70 29 0a 09 7b 0a 09 09 74 in Pos p)..{...t
1650: 68 69 73 5b 70 2e 79 2c 20 70 2e 78 5d 20 3d 20 his[p.y, p.x] =
1660: 63 3b 0a 09 7d 0a 0a 09 50 6f 73 5b 5d 20 6f 62 c;..}...Pos[] ob
1670: 6a 65 63 74 73 28 63 68 61 72 20 63 29 20 63 6f jects(char c) co
1680: 6e 73 74 20 7b 0a 09 09 50 6f 73 5b 5d 20 61 6e nst {...Pos[] an
1690: 73 3b 0a 09 09 66 6f 72 28 69 6e 74 20 79 3d 31 s;...for(int y=1
16a0: 3b 20 79 3c 3d 48 3b 20 2b 2b 79 29 0a 09 09 66 ; y<=H; ++y)...f
16b0: 6f 72 28 69 6e 74 20 78 3d 31 3b 20 78 3c 3d 57 or(int x=1; x<=W
16c0: 3b 20 2b 2b 78 29 0a 09 09 09 69 66 28 74 68 69 ; ++x)....if(thi
16d0: 73 5b 79 2c 78 5d 20 3d 3d 20 63 29 0a 09 09 09 s[y,x] == c)....
16e0: 09 61 6e 73 20 7e 3d 20 6e 65 77 20 50 6f 73 28 .ans ~= new Pos(
16f0: 79 2c 78 29 3b 0a 09 09 72 65 74 75 72 6e 20 61 y,x);...return a
1700: 6e 73 3b 0a 09 7d 0a 0a 09 50 6f 73 5b 5d 20 72 ns;..}...Pos[] r
1710: 61 7a 6f 72 73 28 29 20 63 6f 6e 73 74 20 7b 20 azors() const {
1720: 72 65 74 75 72 6e 20 6f 62 6a 65 63 74 73 28 27 return objects('
1730: 21 27 29 3b 20 7d 0a 09 50 6f 73 5b 5d 20 6c 61 !'); }..Pos[] la
1740: 6d 62 64 61 73 28 29 20 63 6f 6e 73 74 20 7b 20 mbdas() const {
1750: 72 65 74 75 72 6e 20 6f 62 6a 65 63 74 73 28 27 return objects('
1760: 5c 5c 27 29 3b 20 7d 0a 0a 09 62 6f 6f 6c 20 63 \\'); }...bool c
1770: 6f 6d 6d 61 6e 64 28 63 68 61 72 20 63 2c 20 69 ommand(char c, i
1780: 6e 74 20 74 75 72 6e 2c 20 62 6f 6f 6c 20 68 69 nt turn, bool hi
1790: 67 65 5f 64 61 79 2c 20 69 6e 20 54 72 61 6d 70 ge_day, in Tramp
17a0: 6f 6c 69 6e 65 20 74 72 29 0a 09 7b 0a 09 09 61 oline tr)..{...a
17b0: 73 73 65 72 74 28 20 74 68 69 73 5b 72 6f 62 6f ssert( this[robo
17c0: 74 5d 20 3d 3d 20 27 52 27 20 29 3b 0a 09 09 69 t] == 'R' );...i
17d0: 66 28 63 3d 3d 27 52 27 29 20 72 65 74 75 72 6e f(c=='R') return
17e0: 20 6d 6f 76 65 28 20 30 2c 20 2b 31 2c 20 68 69 move( 0, +1, hi
17f0: 67 65 5f 64 61 79 2c 20 74 72 29 3b 0a 09 09 69 ge_day, tr);...i
1800: 66 28 63 3d 3d 27 4c 27 29 20 72 65 74 75 72 6e f(c=='L') return
1810: 20 6d 6f 76 65 28 20 30 2c 20 2d 31 2c 20 68 69 move( 0, -1, hi
1820: 67 65 5f 64 61 79 2c 20 74 72 29 3b 0a 09 09 69 ge_day, tr);...i
1830: 66 28 63 3d 3d 27 55 27 29 20 72 65 74 75 72 6e f(c=='U') return
1840: 20 6d 6f 76 65 28 2b 31 2c 20 20 30 2c 20 68 69 move(+1, 0, hi
1850: 67 65 5f 64 61 79 2c 20 74 72 29 3b 0a 09 09 69 ge_day, tr);...i
1860: 66 28 63 3d 3d 27 44 27 29 20 72 65 74 75 72 6e f(c=='D') return
1870: 20 6d 6f 76 65 28 2d 31 2c 20 20 30 2c 20 68 69 move(-1, 0, hi
1880: 67 65 5f 64 61 79 2c 20 74 72 29 3b 0a 09 09 69 ge_day, tr);...i
1890: 66 28 63 3d 3d 27 57 27 29 20 72 65 74 75 72 6e f(c=='W') return
18a0: 20 6d 6f 76 65 28 20 30 2c 20 20 30 2c 20 68 69 move( 0, 0, hi
18b0: 67 65 5f 64 61 79 2c 20 74 72 29 3b 0a 09 09 69 ge_day, tr);...i
18c0: 66 28 63 3d 3d 27 53 27 29 20 72 65 74 75 72 6e f(c=='S') return
18d0: 20 75 73 65 5f 72 61 7a 6f 72 28 68 69 67 65 5f use_razor(hige_
18e0: 64 61 79 29 3b 0a 09 09 61 73 73 65 72 74 28 66 day);...assert(f
18f0: 61 6c 73 65 29 3b 0a 09 7d 0a 0a 09 62 6f 6f 6c alse);..}...bool
1900: 20 75 73 65 5f 72 61 7a 6f 72 28 62 6f 6f 6c 20 use_razor(bool
1910: 68 69 67 65 5f 64 61 79 29 0a 09 7b 0a 09 09 69 hige_day)..{...i
1920: 66 28 72 61 7a 6f 72 29 20 7b 0a 09 09 09 72 61 f(razor) {....ra
1930: 7a 6f 72 2d 2d 3b 0a 09 09 09 66 6f 72 28 69 6e zor--;....for(in
1940: 74 20 64 79 3d 2d 31 3b 20 64 79 3c 3d 2b 31 3b t dy=-1; dy<=+1;
1950: 20 2b 2b 64 79 29 0a 09 09 09 66 6f 72 28 69 6e ++dy)....for(in
1960: 74 20 64 78 3d 2d 31 3b 20 64 78 3c 3d 2b 31 3b t dx=-1; dx<=+1;
1970: 20 2b 2b 64 78 29 0a 09 09 09 09 69 66 28 74 68 ++dx).....if(th
1980: 69 73 5b 72 6f 62 6f 74 2e 79 2b 64 79 2c 72 6f is[robot.y+dy,ro
1990: 62 6f 74 2e 78 2b 64 78 5d 20 3d 3d 20 27 57 27 bot.x+dx] == 'W'
19a0: 29 20 7b 0a 09 09 09 09 09 65 6d 70 74 69 66 69 ) {......emptifi
19b0: 65 64 28 6e 65 77 20 50 6f 73 28 72 6f 62 6f 74 ed(new Pos(robot
19c0: 2e 79 2b 64 79 2c 72 6f 62 6f 74 2e 78 2b 64 78 .y+dy,robot.x+dx
19d0: 29 29 3b 0a 09 09 09 09 09 74 68 69 73 5b 72 6f ));......this[ro
19e0: 62 6f 74 2e 79 2b 64 79 2c 72 6f 62 6f 74 2e 78 bot.y+dy,robot.x
19f0: 2b 64 78 5d 20 3d 20 27 20 27 3b 0a 09 09 09 09 +dx] = ' ';.....
1a00: 7d 0a 09 09 7d 0a 0a 09 09 72 65 74 75 72 6e 20 }...}....return
1a10: 75 70 64 61 74 65 28 68 69 67 65 5f 64 61 79 29 update(hige_day)
1a20: 3b 0a 09 7d 0a 0a 09 62 6f 6f 6c 20 72 6f 63 6b ;..}...bool rock
1a30: 79 28 63 68 61 72 20 63 29 20 7b 20 72 65 74 75 y(char c) { retu
1a40: 72 6e 20 63 3d 3d 27 2a 27 20 7c 7c 20 63 3d 3d rn c=='*' || c==
1a50: 27 40 27 3b 20 7d 0a 0a 09 09 76 6f 69 64 20 65 '@'; }....void e
1a60: 6d 70 74 69 66 69 65 64 28 50 6f 73 20 70 29 20 mptified(Pos p)
1a70: 7b 0a 09 09 09 66 6f 72 28 69 6e 74 20 64 79 3d {....for(int dy=
1a80: 30 3b 20 64 79 3c 3d 2b 31 3b 20 2b 2b 64 79 29 0; dy<=+1; ++dy)
1a90: 0a 09 09 09 66 6f 72 28 69 6e 74 20 64 78 3d 2d ....for(int dx=-
1aa0: 31 3b 20 64 78 3c 3d 2b 31 3b 20 2b 2b 64 78 29 1; dx<=+1; ++dx)
1ab0: 0a 09 09 09 09 6d 61 79 5f 75 70 64 61 74 65 20 .....may_update
1ac0: 7e 3d 20 6e 65 77 20 50 6f 73 28 70 2e 79 2b 64 ~= new Pos(p.y+d
1ad0: 79 2c 20 70 2e 78 2b 64 78 29 3b 0a 09 09 7d 0a y, p.x+dx);...}.
1ae0: 0a 09 62 6f 6f 6c 20 6d 6f 76 65 28 69 6e 74 20 ..bool move(int
1af0: 64 79 2c 20 69 6e 74 20 64 78 2c 20 62 6f 6f 6c dy, int dx, bool
1b00: 20 68 69 67 65 5f 64 61 79 2c 20 69 6e 20 54 72 hige_day, in Tr
1b10: 61 6d 70 6f 6c 69 6e 65 20 74 72 29 0a 09 7b 0a ampoline tr)..{.
1b20: 09 09 65 6d 70 74 69 66 69 65 64 28 72 6f 62 6f ..emptified(robo
1b30: 74 29 3b 0a 0a 09 09 69 6e 74 20 79 20 3d 20 72 t);....int y = r
1b40: 6f 62 6f 74 2e 79 3b 0a 09 09 69 6e 74 20 78 20 obot.y;...int x
1b50: 3d 20 72 6f 62 6f 74 2e 78 3b 0a 09 09 69 66 28 = robot.x;...if(
1b60: 20 27 5c 5c 27 20 3d 3d 20 74 68 69 73 5b 79 2b '\\' == this[y+
1b70: 64 79 2c 78 2b 64 78 5d 20 29 0a 09 09 09 63 6f dy,x+dx] )....co
1b80: 6c 6c 65 63 74 65 64 5f 6c 61 6d 62 64 61 2b 2b llected_lambda++
1b90: 3b 0a 09 09 69 66 28 20 27 21 27 20 3d 3d 20 74 ;...if( '!' == t
1ba0: 68 69 73 5b 79 2b 64 79 2c 78 2b 64 78 5d 20 29 his[y+dy,x+dx] )
1bb0: 0a 09 09 09 72 61 7a 6f 72 2b 2b 3b 0a 09 09 69 ....razor++;...i
1bc0: 66 28 20 27 4f 27 20 3d 3d 20 74 68 69 73 5b 79 f( 'O' == this[y
1bd0: 2b 64 79 2c 78 2b 64 78 5d 20 29 0a 09 09 09 63 +dy,x+dx] )....c
1be0: 6c 65 61 72 65 64 20 3d 20 74 72 75 65 3b 0a 09 leared = true;..
1bf0: 09 69 66 28 20 22 20 5c 5c 21 2e 4f 22 2e 63 6f .if( " \\!.O".co
1c00: 75 6e 74 28 74 68 69 73 5b 79 2b 64 79 2c 78 2b unt(this[y+dy,x+
1c10: 64 78 5d 29 3d 3d 31 20 29 20 7b 0a 09 09 09 74 dx])==1 ) {....t
1c20: 68 69 73 5b 79 2c 78 5d 3d 27 20 27 3b 0a 09 09 his[y,x]=' ';...
1c30: 09 74 68 69 73 5b 79 2b 64 79 2c 78 2b 64 78 5d .this[y+dy,x+dx]
1c40: 3d 27 52 27 3b 0a 09 09 09 72 6f 62 6f 74 20 3d ='R';....robot =
1c50: 20 6e 65 77 20 50 6f 73 28 79 2b 64 79 2c 78 2b new Pos(y+dy,x+
1c60: 64 78 29 3b 0a 09 09 7d 20 65 6c 73 65 20 69 66 dx);...} else if
1c70: 28 64 79 3d 3d 30 20 26 26 20 72 6f 63 6b 79 28 (dy==0 && rocky(
1c80: 74 68 69 73 5b 79 2b 64 79 2c 78 2b 64 78 5d 29 this[y+dy,x+dx])
1c90: 20 26 26 20 27 20 27 3d 3d 74 68 69 73 5b 79 2b && ' '==this[y+
1ca0: 64 79 2a 32 2c 78 2b 64 78 2a 32 5d 29 20 7b 0a dy*2,x+dx*2]) {.
1cb0: 09 09 09 63 68 61 72 20 72 6f 63 6b 20 3d 20 74 ...char rock = t
1cc0: 68 69 73 5b 79 2b 64 79 2c 78 2b 64 78 5d 3b 0a his[y+dy,x+dx];.
1cd0: 09 09 09 74 68 69 73 5b 79 2c 78 5d 3d 27 20 27 ...this[y,x]=' '
1ce0: 3b 0a 09 09 09 74 68 69 73 5b 79 2b 64 79 2c 78 ;....this[y+dy,x
1cf0: 2b 64 78 5d 3d 27 52 27 3b 0a 09 09 09 74 68 69 +dx]='R';....thi
1d00: 73 5b 79 2b 64 79 2a 32 2c 78 2b 64 78 2a 32 5d s[y+dy*2,x+dx*2]
1d10: 3d 72 6f 63 6b 3b 0a 09 09 09 72 6f 62 6f 74 20 =rock;....robot
1d20: 3d 20 6e 65 77 20 50 6f 73 28 79 2b 64 79 2c 78 = new Pos(y+dy,x
1d30: 2b 64 78 29 3b 0a 09 09 7d 20 65 6c 73 65 20 69 +dx);...} else i
1d40: 66 28 27 41 27 3c 3d 74 68 69 73 5b 79 2b 64 79 f('A'<=this[y+dy
1d50: 2c 78 2b 64 78 5d 20 26 26 20 74 68 69 73 5b 79 ,x+dx] && this[y
1d60: 2b 64 79 2c 78 2b 64 78 5d 3c 3d 27 49 27 29 20 +dy,x+dx]<='I')
1d70: 7b 0a 09 09 09 74 68 69 73 5b 79 2c 78 5d 3d 27 {....this[y,x]='
1d80: 20 27 3b 0a 09 09 09 50 6f 73 20 74 70 20 3d 20 ';....Pos tp =
1d90: 74 72 2e 74 61 72 67 65 74 5f 70 6f 73 28 74 68 tr.target_pos(th
1da0: 69 73 5b 79 2b 64 79 2c 78 2b 64 78 5d 29 3b 0a is[y+dy,x+dx]);.
1db0: 09 09 09 66 6f 72 65 61 63 68 28 70 3b 20 74 72 ...foreach(p; tr
1dc0: 2e 73 6f 75 72 63 65 5f 70 6f 73 28 74 68 69 73 .source_pos(this
1dd0: 5b 74 70 5d 29 29 20 7b 0a 09 09 09 09 65 6d 70 [tp])) {.....emp
1de0: 74 69 66 69 65 64 28 70 29 3b 0a 09 09 09 09 74 tified(p);.....t
1df0: 68 69 73 5b 70 5d 20 3d 20 27 20 27 3b 0a 09 09 his[p] = ' ';...
1e00: 09 7d 0a 09 09 09 74 68 69 73 5b 74 70 5d 20 3d .}....this[tp] =
1e10: 20 27 52 27 3b 0a 09 09 09 72 6f 62 6f 74 20 3d 'R';....robot =
1e20: 20 74 70 3b 0a 09 09 7d 0a 09 09 72 65 74 75 72 tp;...}...retur
1e30: 6e 20 75 70 64 61 74 65 28 68 69 67 65 5f 64 61 n update(hige_da
1e40: 79 29 3b 0a 09 7d 0a 0a 09 62 6f 6f 6c 20 75 70 y);..}...bool up
1e50: 64 61 74 65 28 62 6f 6f 6c 20 68 69 67 65 5f 64 date(bool hige_d
1e60: 61 79 29 0a 09 7b 0a 09 09 2f 2f 20 57 72 69 74 ay)..{...// Writ
1e70: 65 20 61 66 74 65 72 20 61 6c 6c 20 74 68 65 20 e after all the
1e80: 75 70 64 61 74 65 73 20 61 72 65 20 70 72 6f 63 updates are proc
1e90: 65 73 73 65 64 2e 0a 09 09 54 75 70 6c 65 21 28 essed....Tuple!(
1ea0: 69 6e 74 2c 69 6e 74 2c 63 68 61 72 29 5b 5d 20 int,int,char)[]
1eb0: 77 72 69 74 65 5f 62 75 66 66 65 72 3b 0a 09 09 write_buffer;...
1ec0: 76 6f 69 64 20 77 72 69 74 65 28 69 6e 74 20 79 void write(int y
1ed0: 2c 20 69 6e 74 20 78 2c 20 63 68 61 72 20 63 29 , int x, char c)
1ee0: 20 7b 20 77 72 69 74 65 5f 62 75 66 66 65 72 20 { write_buffer
1ef0: 7e 3d 20 74 75 70 6c 65 28 79 2c 78 2c 63 29 3b ~= tuple(y,x,c);
1f00: 20 7d 0a 09 09 76 6f 69 64 20 77 72 69 74 65 70 }...void writep
1f10: 28 50 6f 73 20 70 2c 20 63 68 61 72 20 63 29 20 (Pos p, char c)
1f20: 7b 20 77 72 69 74 65 5f 62 75 66 66 65 72 20 7e { write_buffer ~
1f30: 3d 20 74 75 70 6c 65 28 30 2b 70 2e 79 2c 30 2b = tuple(0+p.y,0+
1f40: 70 2e 78 2c 63 29 3b 20 7d 0a 09 09 73 63 6f 70 p.x,c); }...scop
1f50: 65 28 65 78 69 74 29 20 7b 0a 09 09 09 6d 61 79 e(exit) {....may
1f60: 5f 75 70 64 61 74 65 2e 6c 65 6e 67 74 68 20 3d _update.length =
1f70: 20 30 3b 0a 09 09 09 66 6f 72 65 61 63 68 28 77 0;....foreach(w
1f80: 72 3b 20 77 72 69 74 65 5f 62 75 66 66 65 72 29 r; write_buffer)
1f90: 20 7b 0a 09 09 09 09 74 68 69 73 5b 77 72 5b 30 {.....this[wr[0
1fa0: 5d 2c 77 72 5b 31 5d 5d 20 3d 20 77 72 5b 32 5d ],wr[1]] = wr[2]
1fb0: 3b 0a 09 09 09 09 69 66 28 72 6f 63 6b 79 28 77 ;.....if(rocky(w
1fc0: 72 5b 32 5d 29 29 0a 09 09 09 09 09 6d 61 79 5f r[2]))......may_
1fd0: 75 70 64 61 74 65 20 7e 3d 20 6e 65 77 20 50 6f update ~= new Po
1fe0: 73 28 77 72 5b 30 5d 2c 77 72 5b 31 5d 29 3b 0a s(wr[0],wr[1]);.
1ff0: 09 09 09 09 69 66 28 77 72 5b 32 5d 3d 3d 27 20 ....if(wr[2]=='
2000: 27 29 0a 09 09 09 09 09 65 6d 70 74 69 66 69 65 ')......emptifie
2010: 64 28 6e 65 77 20 50 6f 73 28 77 72 5b 30 5d 2c d(new Pos(wr[0],
2020: 20 77 72 5b 31 5d 29 29 3b 0a 09 09 09 7d 0a 09 wr[1]));....}..
2030: 09 7d 0a 0a 09 09 69 66 28 63 6f 6c 6c 65 63 74 .}....if(collect
2040: 65 64 5f 6c 61 6d 62 64 61 20 3d 3d 20 74 6f 74 ed_lambda == tot
2050: 61 6c 5f 6c 61 6d 62 64 61 29 0a 09 09 09 69 66 al_lambda)....if
2060: 28 74 68 69 73 5b 6c 69 66 74 5d 3d 3d 27 4c 27 (this[lift]=='L'
2070: 29 0a 09 09 09 09 74 68 69 73 5b 6c 69 66 74 5d ).....this[lift]
2080: 20 3d 20 27 4f 27 3b 0a 0a 09 09 62 6f 6f 6c 20 = 'O';....bool
2090: 64 65 61 64 20 3d 20 66 61 6c 73 65 3b 0a 09 09 dead = false;...
20a0: 69 66 28 20 68 69 67 65 5f 64 61 79 20 29 20 7b if( hige_day ) {
20b0: 0a 09 09 09 66 6f 72 28 69 6e 74 20 79 3d 31 3b ....for(int y=1;
20c0: 20 79 3c 3d 48 3b 20 2b 2b 79 29 0a 09 09 09 66 y<=H; ++y)....f
20d0: 6f 72 28 69 6e 74 20 78 3d 31 3b 20 78 3c 3d 57 or(int x=1; x<=W
20e0: 3b 20 2b 2b 78 29 0a 09 09 09 09 69 66 28 74 68 ; ++x).....if(th
20f0: 69 73 5b 79 2c 78 5d 3d 3d 27 57 27 29 0a 09 09 is[y,x]=='W')...
2100: 09 09 09 6d 61 79 5f 75 70 64 61 74 65 20 7e 3d ...may_update ~=
2110: 20 6e 65 77 20 50 6f 73 28 79 2c 78 29 3b 0a 09 new Pos(y,x);..
2120: 09 7d 0a 0a 09 09 73 6f 72 74 28 6d 61 79 5f 75 .}....sort(may_u
2130: 70 64 61 74 65 29 3b 0a 09 09 66 6f 72 65 61 63 pdate);...foreac
2140: 68 28 70 3b 20 6d 61 79 5f 75 70 64 61 74 65 29 h(p; may_update)
2150: 20 7b 0a 09 09 09 69 6e 74 20 79 20 3d 20 70 2e {....int y = p.
2160: 79 2c 20 78 20 3d 20 70 2e 78 3b 0a 09 09 09 63 y, x = p.x;....c
2170: 68 61 72 20 72 6f 63 6b 20 3d 20 74 68 69 73 5b har rock = this[
2180: 70 5d 3b 0a 09 09 09 69 66 28 72 6f 63 6b 79 28 p];....if(rocky(
2190: 74 68 69 73 5b 70 5d 29 29 20 7b 0a 09 09 09 09 this[p])) {.....
21a0: 69 66 28 74 68 69 73 5b 70 2e 44 5d 3d 3d 27 20 if(this[p.D]=='
21b0: 27 29 20 7b 0a 09 09 09 09 09 77 72 69 74 65 70 ') {......writep
21c0: 28 70 2c 20 27 20 27 29 3b 0a 09 09 09 09 09 77 (p, ' ');......w
21d0: 72 69 74 65 70 28 70 2e 44 2c 20 28 72 6f 63 6b ritep(p.D, (rock
21e0: 3d 3d 27 40 27 26 26 74 68 69 73 5b 70 2e 44 2e =='@'&&this[p.D.
21f0: 44 5d 21 3d 27 20 27 20 3f 20 27 5c 5c 27 20 3a D]!=' ' ? '\\' :
2200: 20 72 6f 63 6b 29 29 3b 0a 09 09 09 09 09 69 66 rock));......if
2210: 28 72 6f 62 6f 74 20 3d 3d 20 70 2e 44 2e 44 29 (robot == p.D.D)
2220: 0a 09 09 09 09 09 09 64 65 61 64 3d 74 72 75 65 .......dead=true
2230: 3b 0a 09 09 09 09 7d 0a 09 09 09 09 65 6c 73 65 ;.....}.....else
2240: 20 69 66 28 28 72 6f 63 6b 79 28 74 68 69 73 5b if((rocky(this[
2250: 70 2e 44 5d 29 20 7c 7c 20 74 68 69 73 5b 70 2e p.D]) || this[p.
2260: 44 5d 3d 3d 27 5c 5c 27 29 20 26 26 20 74 68 69 D]=='\\') && thi
2270: 73 5b 70 2e 52 5d 3d 3d 27 20 27 20 26 26 20 74 s[p.R]==' ' && t
2280: 68 69 73 5b 70 2e 52 2e 44 5d 3d 3d 27 20 27 29 his[p.R.D]==' ')
2290: 20 7b 0a 09 09 09 09 09 77 72 69 74 65 70 28 70 {......writep(p
22a0: 2c 20 27 20 27 29 3b 0a 09 09 09 09 09 77 72 69 , ' ');......wri
22b0: 74 65 70 28 70 2e 52 2e 44 2c 28 72 6f 63 6b 3d tep(p.R.D,(rock=
22c0: 3d 27 40 27 26 26 74 68 69 73 5b 70 2e 52 2e 44 ='@'&&this[p.R.D
22d0: 2e 44 5d 21 3d 27 20 27 20 3f 20 27 5c 5c 27 20 .D]!=' ' ? '\\'
22e0: 3a 20 72 6f 63 6b 29 29 3b 0a 09 09 09 09 09 69 : rock));......i
22f0: 66 28 72 6f 62 6f 74 20 3d 3d 20 70 2e 52 2e 44 f(robot == p.R.D
2300: 2e 44 29 0a 09 09 09 09 09 09 64 65 61 64 3d 74 .D).......dead=t
2310: 72 75 65 3b 0a 09 09 09 09 7d 0a 09 09 09 09 65 rue;.....}.....e
2320: 6c 73 65 20 69 66 28 72 6f 63 6b 79 28 74 68 69 lse if(rocky(thi
2330: 73 5b 70 2e 44 5d 29 20 26 26 20 74 68 69 73 5b s[p.D]) && this[
2340: 70 2e 4c 5d 3d 3d 27 20 27 20 26 26 20 74 68 69 p.L]==' ' && thi
2350: 73 5b 70 2e 4c 2e 44 5d 3d 3d 27 20 27 29 20 7b s[p.L.D]==' ') {
2360: 0a 09 09 09 09 09 77 72 69 74 65 70 28 70 2c 20 ......writep(p,
2370: 27 20 27 29 3b 0a 09 09 09 09 09 77 72 69 74 65 ' ');......write
2380: 70 28 70 2e 4c 2e 44 2c 20 28 72 6f 63 6b 3d 3d p(p.L.D, (rock==
2390: 27 40 27 26 26 74 68 69 73 5b 70 2e 4c 2e 44 2e '@'&&this[p.L.D.
23a0: 44 5d 21 3d 27 20 27 20 3f 20 27 5c 5c 27 20 3a D]!=' ' ? '\\' :
23b0: 20 72 6f 63 6b 29 29 3b 0a 09 09 09 09 09 69 66 rock));......if
23c0: 28 72 6f 62 6f 74 20 3d 3d 20 70 2e 4c 2e 44 2e (robot == p.L.D.
23d0: 44 29 0a 09 09 09 09 09 09 64 65 61 64 3d 74 72 D).......dead=tr
23e0: 75 65 3b 0a 09 09 09 09 7d 0a 09 09 09 7d 0a 09 ue;.....}....}..
23f0: 09 09 65 6c 73 65 20 69 66 28 74 68 69 73 5b 70 ..else if(this[p
2400: 5d 3d 3d 27 57 27 29 20 7b 0a 09 09 09 09 69 66 ]=='W') {.....if
2410: 28 68 69 67 65 5f 64 61 79 29 20 7b 0a 09 09 09 (hige_day) {....
2420: 09 09 66 6f 72 28 69 6e 74 20 64 79 3d 2d 31 3b ..for(int dy=-1;
2430: 20 64 79 3c 3d 2b 31 3b 20 2b 2b 64 79 29 0a 09 dy<=+1; ++dy)..
2440: 09 09 09 09 66 6f 72 28 69 6e 74 20 64 78 3d 2d ....for(int dx=-
2450: 31 3b 20 64 78 3c 3d 2b 31 3b 20 2b 2b 64 78 29 1; dx<=+1; ++dx)
2460: 0a 09 09 09 09 09 09 69 66 28 74 68 69 73 5b 70 .......if(this[p
2470: 2e 79 2b 64 79 2c 70 2e 78 2b 64 78 5d 20 3d 3d .y+dy,p.x+dx] ==
2480: 20 27 20 27 29 0a 09 09 09 09 09 09 09 77 72 69 ' ')........wri
2490: 74 65 28 70 2e 79 2b 64 79 2c 70 2e 78 2b 64 78 te(p.y+dy,p.x+dx
24a0: 2c 27 57 27 29 3b 0a 09 09 09 09 7d 0a 09 09 09 ,'W');.....}....
24b0: 7d 0a 09 09 7d 0a 0a 09 09 72 65 74 75 72 6e 20 }...}....return
24c0: 64 65 61 64 3b 0a 09 7d 0a 7d 0a 0a 2f 2f 2f 2f dead;..}.}..////
24d0: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
24e0: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
24f0: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
2500: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
2510: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 0a 0a 63 6c ////////////..cl
2520: 61 73 73 20 47 61 6d 65 0a 7b 0a 09 6d 69 78 69 ass Game.{..mixi
2530: 6e 20 44 65 72 69 76 65 53 68 6f 77 3b 0a 0a 09 n DeriveShow;...
2540: 74 68 69 73 28 46 69 6c 65 20 69 6e 70 75 74 29 this(File input)
2550: 0a 09 7b 0a 09 09 73 74 72 69 6e 67 5b 5d 20 20 ..{...string[]
2560: 20 20 20 20 20 72 61 77 5f 64 61 74 61 3b 0a 09 raw_data;..
2570: 09 73 74 72 69 6e 67 5b 73 74 72 69 6e 67 5d 20 .string[string]
2580: 70 61 72 61 6d 73 3b 0a 0a 09 09 2f 2f 20 52 61 params;....// Ra
2590: 77 20 6d 61 70 20 64 61 74 61 3b 20 72 65 61 64 w map data; read
25a0: 20 75 6e 74 69 6c 20 65 6d 70 74 79 20 6c 69 6e until empty lin
25b0: 65 2e 0a 09 09 66 6f 72 28 73 74 72 69 6e 67 20 e....for(string
25c0: 6c 69 6e 65 3b 20 21 28 6c 69 6e 65 3d 69 6e 70 line; !(line=inp
25d0: 75 74 2e 72 65 61 64 6c 6e 28 29 2e 63 68 6f 6d ut.readln().chom
25e0: 70 28 29 29 2e 65 6d 70 74 79 3b 20 29 0a 09 09 p()).empty; )...
25f0: 09 72 61 77 5f 64 61 74 61 20 7e 3d 20 6c 69 6e .raw_data ~= lin
2600: 65 3b 0a 0a 09 09 2f 2f 20 41 64 64 69 74 69 6f e;....// Additio
2610: 6e 61 6c 20 63 6f 6d 6d 61 6e 64 73 3b 20 72 65 nal commands; re
2620: 61 64 20 75 6e 74 69 6c 20 45 4f 46 2e 0a 09 09 ad until EOF....
2630: 63 68 61 72 5b 63 68 61 72 5d 20 74 72 61 6d 70 char[char] tramp
2640: 6f 3b 0a 09 09 66 6f 72 28 73 74 72 69 6e 67 20 o;...for(string
2650: 6c 69 6e 65 3b 20 21 28 6c 69 6e 65 3d 69 6e 70 line; !(line=inp
2660: 75 74 2e 72 65 61 64 6c 6e 28 29 29 2e 65 6d 70 ut.readln()).emp
2670: 74 79 3b 20 29 20 7b 0a 09 09 09 73 74 72 69 6e ty; ) {....strin
2680: 67 5b 5d 20 73 73 20 3d 20 6c 69 6e 65 2e 73 70 g[] ss = line.sp
2690: 6c 69 74 28 29 3b 0a 09 09 09 69 66 28 20 73 73 lit();....if( ss
26a0: 2e 6c 65 6e 67 74 68 20 3d 3d 20 32 20 29 0a 09 .length == 2 )..
26b0: 09 09 09 70 61 72 61 6d 73 5b 73 73 5b 30 5d 5d ...params[ss[0]]
26c0: 20 3d 20 73 73 5b 31 5d 3b 0a 09 09 09 69 66 28 = ss[1];....if(
26d0: 20 73 73 2e 6c 65 6e 67 74 68 20 3d 3d 20 34 20 ss.length == 4
26e0: 26 26 20 73 73 5b 30 5d 3d 3d 22 54 72 61 6d 70 && ss[0]=="Tramp
26f0: 6f 6c 69 6e 65 22 20 26 26 20 73 73 5b 32 5d 3d oline" && ss[2]=
2700: 3d 22 74 61 72 67 65 74 73 22 20 29 0a 09 09 09 ="targets" )....
2710: 09 74 72 61 6d 70 6f 5b 73 73 5b 31 5d 5b 30 5d .trampo[ss[1][0]
2720: 5d 20 3d 20 73 73 5b 33 5d 5b 30 5d 3b 0a 09 09 ] = ss[3][0];...
2730: 7d 0a 0a 09 09 74 68 69 73 2e 6d 61 70 20 20 20 }....this.map
2740: 3d 20 6e 65 77 20 4d 61 70 28 72 61 77 5f 64 61 = new Map(raw_da
2750: 74 61 2c 20 70 61 72 61 6d 73 2c 20 74 72 61 6d ta, params, tram
2760: 70 6f 29 3b 0a 09 09 74 68 69 73 2e 77 61 74 65 po);...this.wate
2770: 72 20 3d 20 57 61 74 65 72 2e 6c 6f 61 64 28 70 r = Water.load(p
2780: 61 72 61 6d 73 29 3b 0a 09 09 74 68 69 73 2e 68 arams);...this.h
2790: 69 67 65 20 20 3d 20 48 69 67 65 2e 6c 6f 61 64 ige = Hige.load
27a0: 28 70 61 72 61 6d 73 29 3b 0a 09 09 74 68 69 73 (params);...this
27b0: 2e 74 72 20 20 20 20 3d 20 6e 65 77 20 54 72 61 .tr = new Tra
27c0: 6d 70 6f 6c 69 6e 65 28 74 68 69 73 2e 6d 61 70 mpoline(this.map
27d0: 2c 20 74 72 61 6d 70 6f 29 3b 0a 09 7d 0a 0a 09 , trampo);..}...
27e0: 47 61 6d 65 20 63 6c 6f 6e 65 28 29 20 63 6f 6e Game clone() con
27f0: 73 74 20 7b 20 72 65 74 75 72 6e 20 6e 65 77 20 st { return new
2800: 47 61 6d 65 28 74 68 69 73 29 3b 20 7d 0a 09 74 Game(this); }..t
2810: 68 69 73 28 69 6e 20 47 61 6d 65 20 67 29 20 7b his(in Game g) {
2820: 0a 09 09 6d 61 70 20 20 20 3d 20 67 2e 6d 61 70 ...map = g.map
2830: 2e 63 6c 6f 6e 65 28 29 3b 0a 09 09 77 61 74 65 .clone();...wate
2840: 72 20 3d 20 67 2e 77 61 74 65 72 2e 63 6c 6f 6e r = g.water.clon
2850: 65 28 29 3b 0a 09 09 68 69 67 65 20 20 3d 20 67 e();...hige = g
2860: 2e 68 69 67 65 2e 63 6c 6f 6e 65 28 29 3b 0a 09 .hige.clone();..
2870: 09 74 72 20 20 20 20 3d 20 67 2e 74 72 2e 63 6c .tr = g.tr.cl
2880: 6f 6e 65 28 29 3b 0a 09 09 74 75 72 6e 20 20 3d one();...turn =
2890: 20 67 2e 74 75 72 6e 3b 0a 09 09 64 65 61 64 20 g.turn;...dead
28a0: 20 3d 20 67 2e 64 65 61 64 3b 0a 09 09 75 6e 64 = g.dead;...und
28b0: 65 72 5f 77 61 74 65 72 20 3d 20 67 2e 75 6e 64 er_water = g.und
28c0: 65 72 5f 77 61 74 65 72 3b 0a 09 7d 0a 0a 09 76 er_water;..}...v
28d0: 6f 69 64 20 63 6f 6d 6d 61 6e 64 28 63 68 61 72 oid command(char
28e0: 20 63 29 0a 09 7b 0a 09 09 61 73 73 65 72 74 28 c)..{...assert(
28f0: 63 20 21 3d 20 27 41 27 29 3b 0a 09 09 69 66 28 c != 'A');...if(
2900: 64 65 61 64 20 7c 7c 20 63 6c 65 61 72 65 64 29 dead || cleared)
2910: 0a 09 09 09 72 65 74 75 72 6e 3b 0a 0a 09 09 2f ....return;..../
2920: 2f 20 54 4f 44 4f 3a 20 63 6c 61 72 69 66 79 20 / TODO: clarify
2930: 74 68 65 20 65 76 65 6e 74 20 6f 72 64 65 72 0a the event order.
2940: 09 09 62 6f 6f 6c 20 64 65 61 64 5f 6e 6f 77 20 ..bool dead_now
2950: 3d 20 6d 61 70 2e 63 6f 6d 6d 61 6e 64 28 63 2c = map.command(c,
2960: 20 74 75 72 6e 2c 20 68 69 67 65 2e 69 73 5f 67 turn, hige.is_g
2970: 72 6f 77 69 6e 67 5f 74 75 72 6e 28 74 75 72 6e rowing_turn(turn
2980: 29 2c 20 74 72 29 3b 0a 09 09 69 66 28 20 64 65 ), tr);...if( de
2990: 61 64 5f 6e 6f 77 20 29 0a 09 09 09 64 65 61 64 ad_now )....dead
29a0: 20 3d 20 74 72 75 65 3b 0a 09 09 69 66 28 21 6d = true;...if(!m
29b0: 61 70 2e 63 6c 65 61 72 65 64 29 20 7b 0a 09 09 ap.cleared) {...
29c0: 09 69 66 28 20 6d 61 70 2e 72 6f 62 6f 74 2e 79 .if( map.robot.y
29d0: 20 3c 3d 20 77 61 74 65 72 5f 6c 65 76 65 6c 20 <= water_level
29e0: 29 0a 09 09 09 09 2b 2b 75 6e 64 65 72 5f 77 61 ).....++under_wa
29f0: 74 65 72 3b 0a 09 09 09 65 6c 73 65 0a 09 09 09 ter;....else....
2a00: 09 75 6e 64 65 72 5f 77 61 74 65 72 20 3d 20 30 .under_water = 0
2a10: 3b 0a 09 09 09 69 66 28 20 75 6e 64 65 72 5f 77 ;....if( under_w
2a20: 61 74 65 72 20 3e 20 6d 61 70 2e 77 61 74 65 72 ater > map.water
2a30: 70 72 6f 6f 66 20 29 0a 09 09 09 09 64 65 61 64 proof ).....dead
2a40: 20 3d 20 74 72 75 65 3b 0a 09 09 7d 0a 09 09 74 = true;...}...t
2a50: 75 72 6e 20 2b 3d 20 31 3b 0a 09 7d 0a 0a 09 4d urn += 1;..}...M
2a60: 61 70 20 6d 61 70 3b 0a 09 57 61 74 65 72 20 77 ap map;..Water w
2a70: 61 74 65 72 3b 0a 09 48 69 67 65 20 68 69 67 65 ater;..Hige hige
2a80: 3b 0a 09 54 72 61 6d 70 6f 6c 69 6e 65 20 74 72 ;..Trampoline tr
2a90: 3b 0a 09 69 6e 74 20 20 74 75 72 6e 20 3d 20 30 ;..int turn = 0
2aa0: 3b 0a 09 62 6f 6f 6c 20 64 65 61 64 20 3d 20 66 ;..bool dead = f
2ab0: 61 6c 73 65 3b 0a 09 69 6e 74 20 20 75 6e 64 65 alse;..int unde
2ac0: 72 5f 77 61 74 65 72 20 3d 20 30 3b 0a 09 2f 2f r_water = 0;..//
2ad0: 20 54 4f 44 4f 3a 20 77 68 65 6e 20 61 64 64 69 TODO: when addi
2ae0: 6e 67 20 6d 65 6d 62 65 72 73 2c 20 74 61 6b 65 ng members, take
2af0: 20 63 61 72 65 20 6f 66 20 63 6c 6f 6e 65 28 29 care of clone()
2b00: 2e 0a 09 2f 2f 20 54 4f 44 4f 3a 20 66 69 78 20 ...// TODO: fix
2b10: 74 68 69 73 20 70 6f 6f 72 20 64 65 73 69 67 6e this poor design
2b20: 2e 0a 0a 40 70 72 6f 70 65 72 74 79 20 63 6f 6e ...@property con
2b30: 73 74 3a 0a 09 6c 6f 6e 67 20 73 63 6f 72 65 28 st:..long score(
2b40: 29 20 20 20 20 20 20 20 20 20 20 20 7b 20 72 65 ) { re
2b50: 74 75 72 6e 20 6d 61 70 2e 63 6f 6c 6c 65 63 74 turn map.collect
2b60: 65 64 5f 6c 61 6d 62 64 61 2a 28 64 65 61 64 3f ed_lambda*(dead?
2b70: 32 35 4c 3a 63 6c 65 61 72 65 64 3f 37 35 4c 3a 25L:cleared?75L:
2b80: 35 30 4c 29 2d 74 75 72 6e 3b 20 7d 0a 09 69 6e 50L)-turn; }..in
2b90: 74 20 77 61 74 65 72 5f 6c 65 76 65 6c 28 29 20 t water_level()
2ba0: 20 20 20 20 20 7b 20 72 65 74 75 72 6e 20 77 61 { return wa
2bb0: 74 65 72 2e 6c 65 76 65 6c 28 74 75 72 6e 29 3b ter.level(turn);
2bc0: 20 7d 0a 09 69 6e 74 20 77 61 74 65 72 5f 75 6e }..int water_un
2bd0: 74 69 6c 5f 72 69 73 65 28 29 20 7b 20 72 65 74 til_rise() { ret
2be0: 75 72 6e 20 77 61 74 65 72 2e 75 6e 74 69 6c 5f urn water.until_
2bf0: 72 69 73 65 28 74 75 72 6e 29 3b 20 7d 0a 09 69 rise(turn); }..i
2c00: 6e 74 20 68 69 67 65 5f 75 6e 74 69 6c 5f 72 69 nt hige_until_ri
2c10: 73 65 28 29 20 20 7b 20 72 65 74 75 72 6e 20 68 se() { return h
2c20: 69 67 65 2e 75 6e 74 69 6c 5f 72 69 73 65 28 74 ige.until_rise(t
2c30: 75 72 6e 29 3b 20 7d 0a 09 69 6e 74 20 68 70 28 urn); }..int hp(
2c40: 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 )
2c50: 7b 20 72 65 74 75 72 6e 20 6d 61 70 2e 77 61 74 { return map.wat
2c60: 65 72 70 72 6f 6f 66 20 2d 20 75 6e 64 65 72 5f erproof - under_
2c70: 77 61 74 65 72 3b 20 7d 0a 09 62 6f 6f 6c 20 63 water; }..bool c
2c80: 6c 65 61 72 65 64 28 29 20 20 20 20 20 20 20 20 leared()
2c90: 20 7b 20 72 65 74 75 72 6e 20 6d 61 70 2e 63 6c { return map.cl
2ca0: 65 61 72 65 64 3b 20 7d 0a 7d 0a eared; }.}.