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: 62 6f 6f 6c 20 69 73 5f 73 70 61 63 79 28 63 68 bool is_spacy(ch
0070: 61 72 20 63 29 0a 7b 0a 09 72 65 74 75 72 6e 20 ar c).{..return
0080: 63 3d 3d 27 20 27 20 7c 7c 20 63 3d 3d 27 2e 27 c==' ' || c=='.'
0090: 20 7c 7c 20 63 3d 3d 27 52 27 20 7c 7c 20 63 3d || c=='R' || c=
00a0: 3d 27 21 27 20 7c 7c 20 63 3d 3d 27 5c 5c 27 20 ='!' || c=='\\'
00b0: 7c 7c 20 63 3d 3d 27 4f 27 3b 0a 7d 0a 0a 62 6f || c=='O';.}..bo
00c0: 6f 6c 20 69 73 5f 72 6f 63 6b 79 28 63 68 61 72 ol is_rocky(char
00d0: 20 63 29 0a 7b 0a 09 72 65 74 75 72 6e 20 63 3d c).{..return c=
00e0: 3d 27 2a 27 20 7c 7c 20 63 3d 3d 27 40 27 3b 0a ='*' || c=='@';.
00f0: 7d 0a 0a 62 6f 6f 6c 20 69 73 5f 74 72 75 65 5f }..bool is_true_
0100: 73 70 61 63 65 28 63 68 61 72 20 63 29 0a 7b 0a space(char c).{.
0110: 09 72 65 74 75 72 6e 20 63 3d 3d 27 20 27 3b 0a .return c==' ';.
0120: 7d 0a 0a 62 6f 6f 6c 20 69 73 5f 74 72 61 6d 70 }..bool is_tramp
0130: 6f 6c 69 6e 65 5f 73 6f 75 72 63 65 28 63 68 61 oline_source(cha
0140: 72 20 63 29 0a 7b 0a 09 72 65 74 75 72 6e 20 27 r c).{..return '
0150: 41 27 3c 3d 63 20 26 26 20 63 3c 3d 27 49 27 3b A'<=c && c<='I';
0160: 0a 7d 0a 0a 62 6f 6f 6c 20 69 73 5f 72 6f 63 6b .}..bool is_rock
0170: 6c 61 6d 62 64 61 28 63 68 61 72 20 63 29 0a 7b lambda(char c).{
0180: 0a 09 72 65 74 75 72 6e 20 69 73 5f 72 6f 63 6b ..return is_rock
0190: 79 28 63 29 20 7c 7c 20 63 3d 3d 27 5c 5c 27 3b y(c) || c=='\\';
01a0: 0a 7d 0a 0a 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f .}..////////////
01b0: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
01c0: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
01d0: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
01e0: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
01f0: 2f 2f 2f 2f 0a 0a 63 6c 61 73 73 20 50 6f 73 0a ////..class Pos.
0200: 7b 0a 09 70 75 62 6c 69 63 20 69 6d 6d 75 74 61 {..public immuta
0210: 62 6c 65 20 69 6e 74 20 79 2c 20 78 3b 0a 09 6d ble int y, x;..m
0220: 69 78 69 6e 20 44 65 72 69 76 65 43 72 65 61 74 ixin DeriveCreat
0230: 65 3b 0a 09 6d 69 78 69 6e 20 44 65 72 69 76 65 e;..mixin Derive
0240: 43 6f 6d 70 61 72 65 3b 0a 09 6d 69 78 69 6e 20 Compare;..mixin
0250: 44 65 72 69 76 65 53 68 6f 77 3b 0a 09 50 6f 73 DeriveShow;..Pos
0260: 20 63 6c 6f 6e 65 28 29 20 63 6f 6e 73 74 20 7b clone() const {
0270: 20 72 65 74 75 72 6e 20 63 61 73 74 28 50 6f 73 return cast(Pos
0280: 29 20 74 68 69 73 3b 20 7d 0a 0a 63 6f 6e 73 74 ) this; }..const
0290: 20 40 70 72 6f 70 65 72 74 79 3a 0a 09 50 6f 73 @property:..Pos
02a0: 20 77 61 69 74 28 29 20 20 7b 20 72 65 74 75 72 wait() { retur
02b0: 6e 20 74 68 69 73 2e 63 6c 6f 6e 65 28 29 3b 20 n this.clone();
02c0: 7d 0a 09 50 6f 73 20 75 70 28 29 20 20 20 20 7b }..Pos up() {
02d0: 20 72 65 74 75 72 6e 20 6e 65 77 20 50 6f 73 28 return new Pos(
02e0: 79 2b 31 2c 20 78 29 3b 20 7d 0a 09 50 6f 73 20 y+1, x); }..Pos
02f0: 64 6f 77 6e 28 29 20 20 7b 20 72 65 74 75 72 6e down() { return
0300: 20 6e 65 77 20 50 6f 73 28 79 2d 31 2c 20 78 29 new Pos(y-1, x)
0310: 3b 20 7d 0a 09 50 6f 73 20 6c 65 66 74 28 29 20 ; }..Pos left()
0320: 20 7b 20 72 65 74 75 72 6e 20 6e 65 77 20 50 6f { return new Po
0330: 73 28 79 2c 20 78 2d 31 29 3b 20 7d 0a 09 50 6f s(y, x-1); }..Po
0340: 73 20 72 69 67 68 74 28 29 20 7b 20 72 65 74 75 s right() { retu
0350: 72 6e 20 6e 65 77 20 50 6f 73 28 79 2c 20 78 2b rn new Pos(y, x+
0360: 31 29 3b 20 7d 0a 09 61 6c 69 61 73 20 77 61 69 1); }..alias wai
0370: 74 20 20 57 2c 77 3b 0a 09 61 6c 69 61 73 20 75 t W,w;..alias u
0380: 70 20 20 20 20 55 2c 75 3b 0a 09 61 6c 69 61 73 p U,u;..alias
0390: 20 64 6f 77 6e 20 20 44 2c 64 3b 0a 09 61 6c 69 down D,d;..ali
03a0: 61 73 20 6c 65 66 74 20 20 4c 2c 6c 3b 0a 09 61 as left L,l;..a
03b0: 6c 69 61 73 20 72 69 67 68 74 20 52 2c 72 3b 0a lias right R,r;.
03c0: 7d 0a 0a 75 6e 69 74 74 65 73 74 0a 7b 0a 09 61 }..unittest.{..a
03d0: 73 73 65 72 74 28 20 28 6e 65 77 20 50 6f 73 28 ssert( (new Pos(
03e0: 32 2c 31 29 29 2e 55 20 3d 3d 20 6e 65 77 20 50 2,1)).U == new P
03f0: 6f 73 28 33 2c 31 29 20 29 3b 0a 09 61 73 73 65 os(3,1) );..asse
0400: 72 74 28 20 28 6e 65 77 20 50 6f 73 28 30 2c 31 rt( (new Pos(0,1
0410: 29 29 2e 44 20 3d 3d 20 6e 65 77 20 50 6f 73 28 )).D == new Pos(
0420: 2d 31 2c 31 29 20 29 3b 0a 09 61 73 73 65 72 74 -1,1) );..assert
0430: 28 20 28 6e 65 77 20 50 6f 73 28 32 2c 31 29 29 ( (new Pos(2,1))
0440: 2e 4c 20 3d 3d 20 6e 65 77 20 50 6f 73 28 32 2c .L == new Pos(2,
0450: 30 29 20 29 3b 0a 09 61 73 73 65 72 74 28 20 28 0) );..assert( (
0460: 6e 65 77 20 50 6f 73 28 32 2c 31 29 29 2e 52 20 new Pos(2,1)).R
0470: 3d 3d 20 6e 65 77 20 50 6f 73 28 32 2c 32 29 20 == new Pos(2,2)
0480: 29 3b 0a 09 69 6e 74 5b 50 6f 73 5d 20 61 61 3b );..int[Pos] aa;
0490: 0a 09 61 61 5b 6e 65 77 20 50 6f 73 28 31 2c 32 ..aa[new Pos(1,2
04a0: 29 5d 20 3d 20 31 3b 0a 09 61 61 5b 6e 65 77 20 )] = 1;..aa[new
04b0: 50 6f 73 28 31 2c 32 29 5d 20 3d 20 32 3b 0a 09 Pos(1,2)] = 2;..
04c0: 61 61 5b 6e 65 77 20 50 6f 73 28 32 2c 31 29 5d aa[new Pos(2,1)]
04d0: 20 3d 20 33 3b 0a 09 61 73 73 65 72 74 28 20 61 = 3;..assert( a
04e0: 61 2e 6c 65 6e 67 74 68 3d 3d 32 20 29 3b 0a 09 a.length==2 );..
04f0: 61 73 73 65 72 74 28 20 61 61 5b 6e 65 77 20 50 assert( aa[new P
0500: 6f 73 28 31 2c 32 29 5d 3d 3d 32 20 29 3b 0a 7d os(1,2)]==2 );.}
0510: 0a 0a 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ..//////////////
0520: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
0530: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
0540: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
0550: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
0560: 2f 2f 0a 0a 63 6c 61 73 73 20 57 61 74 65 72 0a //..class Water.
0570: 7b 0a 09 6d 69 78 69 6e 20 44 65 72 69 76 65 53 {..mixin DeriveS
0580: 68 6f 77 3b 0a 0a 70 72 69 76 61 74 65 3a 0a 09 how;..private:..
0590: 69 6d 6d 75 74 61 62 6c 65 20 69 6e 74 20 62 61 immutable int ba
05a0: 73 65 2c 20 70 61 63 65 3b 0a 09 6d 69 78 69 6e se, pace;..mixin
05b0: 20 44 65 72 69 76 65 43 72 65 61 74 65 3b 0a 09 DeriveCreate;..
05c0: 57 61 74 65 72 20 63 6c 6f 6e 65 28 29 20 63 6f Water clone() co
05d0: 6e 73 74 20 7b 20 72 65 74 75 72 6e 20 63 61 73 nst { return cas
05e0: 74 28 57 61 74 65 72 29 20 74 68 69 73 3b 20 7d t(Water) this; }
05f0: 0a 0a 09 73 74 61 74 69 63 20 6c 6f 61 64 28 73 ...static load(s
0600: 74 72 69 6e 67 5b 73 74 72 69 6e 67 5d 20 70 61 tring[string] pa
0610: 72 61 6d 73 29 0a 09 7b 0a 09 09 72 65 74 75 72 rams)..{...retur
0620: 6e 20 6e 65 77 20 57 61 74 65 72 28 70 61 72 61 n new Water(para
0630: 6d 73 2e 67 65 74 28 22 57 61 74 65 72 22 2c 20 ms.get("Water",
0640: 20 20 20 22 30 22 29 2e 74 6f 21 69 6e 74 28 29 "0").to!int()
0650: 2c 0a 09 09 20 20 20 20 20 20 20 20 20 20 20 20 ,...
0660: 20 20 20 20 20 70 61 72 61 6d 73 2e 67 65 74 28 params.get(
0670: 22 46 6c 6f 6f 64 69 6e 67 22 2c 20 22 30 22 29 "Flooding", "0")
0680: 2e 74 6f 21 69 6e 74 28 29 29 3b 0a 09 7d 0a 0a .to!int());..}..
0690: 09 69 6e 74 20 6c 65 76 65 6c 28 69 6e 74 20 74 .int level(int t
06a0: 75 72 6e 29 20 63 6f 6e 73 74 0a 09 7b 0a 09 09 urn) const..{...
06b0: 72 65 74 75 72 6e 20 70 61 63 65 20 3f 20 62 61 return pace ? ba
06c0: 73 65 2b 28 74 75 72 6e 2f 70 61 63 65 29 20 3a se+(turn/pace) :
06d0: 20 62 61 73 65 3b 0a 09 7d 0a 0a 09 69 6e 74 20 base;..}...int
06e0: 75 6e 74 69 6c 5f 72 69 73 65 28 69 6e 74 20 74 until_rise(int t
06f0: 75 72 6e 29 20 63 6f 6e 73 74 0a 09 7b 0a 09 09 urn) const..{...
0700: 72 65 74 75 72 6e 20 70 61 63 65 20 3f 20 70 61 return pace ? pa
0710: 63 65 2d 74 75 72 6e 25 70 61 63 65 20 3a 20 69 ce-turn%pace : i
0720: 6e 74 2e 6d 61 78 3b 0a 09 7d 0a 7d 0a 0a 75 6e nt.max;..}.}..un
0730: 69 74 74 65 73 74 0a 7b 0a 09 57 61 74 65 72 20 ittest.{..Water
0740: 77 20 3d 20 6e 65 77 20 57 61 74 65 72 28 31 2c w = new Water(1,
0750: 20 33 29 3b 0a 09 61 73 73 65 72 74 28 20 31 20 3);..assert( 1
0760: 3d 3d 20 77 2e 6c 65 76 65 6c 28 30 29 20 29 3b == w.level(0) );
0770: 0a 09 61 73 73 65 72 74 28 20 31 20 3d 3d 20 77 ..assert( 1 == w
0780: 2e 6c 65 76 65 6c 28 31 29 20 29 3b 0a 09 61 73 .level(1) );..as
0790: 73 65 72 74 28 20 31 20 3d 3d 20 77 2e 6c 65 76 sert( 1 == w.lev
07a0: 65 6c 28 32 29 20 29 3b 0a 09 61 73 73 65 72 74 el(2) );..assert
07b0: 28 20 32 20 3d 3d 20 77 2e 6c 65 76 65 6c 28 33 ( 2 == w.level(3
07c0: 29 20 29 3b 0a 09 61 73 73 65 72 74 28 20 32 20 ) );..assert( 2
07d0: 3d 3d 20 77 2e 6c 65 76 65 6c 28 34 29 20 29 3b == w.level(4) );
07e0: 0a 09 61 73 73 65 72 74 28 20 32 20 3d 3d 20 77 ..assert( 2 == w
07f0: 2e 6c 65 76 65 6c 28 35 29 20 29 3b 0a 09 61 73 .level(5) );..as
0800: 73 65 72 74 28 20 33 20 3d 3d 20 77 2e 6c 65 76 sert( 3 == w.lev
0810: 65 6c 28 36 29 20 29 3b 0a 0a 09 77 20 3d 20 6e el(6) );...w = n
0820: 65 77 20 57 61 74 65 72 28 31 2c 20 30 29 3b 0a ew Water(1, 0);.
0830: 09 61 73 73 65 72 74 28 20 31 20 3d 3d 20 77 2e .assert( 1 == w.
0840: 6c 65 76 65 6c 28 30 29 20 29 3b 0a 09 61 73 73 level(0) );..ass
0850: 65 72 74 28 20 31 20 3d 3d 20 77 2e 6c 65 76 65 ert( 1 == w.leve
0860: 6c 28 31 29 20 29 3b 0a 09 61 73 73 65 72 74 28 l(1) );..assert(
0870: 20 31 20 3d 3d 20 77 2e 6c 65 76 65 6c 28 32 29 1 == w.level(2)
0880: 20 29 3b 0a 09 61 73 73 65 72 74 28 20 31 20 3d );..assert( 1 =
0890: 3d 20 77 2e 6c 65 76 65 6c 28 33 29 20 29 3b 0a = w.level(3) );.
08a0: 09 61 73 73 65 72 74 28 20 31 20 3d 3d 20 77 2e .assert( 1 == w.
08b0: 6c 65 76 65 6c 28 34 29 20 29 3b 0a 09 61 73 73 level(4) );..ass
08c0: 65 72 74 28 20 31 20 3d 3d 20 77 2e 6c 65 76 65 ert( 1 == w.leve
08d0: 6c 28 35 29 20 29 3b 0a 7d 0a 0a 2f 2f 2f 2f 2f l(5) );.}../////
08e0: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
08f0: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
0900: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
0910: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
0920: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 0a 0a 63 6c 61 ///////////..cla
0930: 73 73 20 48 69 67 65 0a 7b 0a 09 6d 69 78 69 6e ss Hige.{..mixin
0940: 20 44 65 72 69 76 65 53 68 6f 77 3b 0a 0a 70 72 DeriveShow;..pr
0950: 69 76 61 74 65 3a 0a 09 69 6d 6d 75 74 61 62 6c ivate:..immutabl
0960: 65 20 69 6e 74 20 70 61 63 65 3b 0a 09 6d 69 78 e int pace;..mix
0970: 69 6e 20 44 65 72 69 76 65 43 72 65 61 74 65 3b in DeriveCreate;
0980: 0a 09 48 69 67 65 20 63 6c 6f 6e 65 28 29 20 63 ..Hige clone() c
0990: 6f 6e 73 74 20 7b 20 72 65 74 75 72 6e 20 63 61 onst { return ca
09a0: 73 74 28 48 69 67 65 29 74 68 69 73 3b 20 7d 0a st(Hige)this; }.
09b0: 0a 09 73 74 61 74 69 63 20 6c 6f 61 64 28 73 74 ..static load(st
09c0: 72 69 6e 67 5b 73 74 72 69 6e 67 5d 20 70 61 72 ring[string] par
09d0: 61 6d 73 29 0a 09 7b 0a 09 09 72 65 74 75 72 6e ams)..{...return
09e0: 20 6e 65 77 20 48 69 67 65 28 70 61 72 61 6d 73 new Hige(params
09f0: 2e 67 65 74 28 22 47 72 6f 77 74 68 22 2c 20 22 .get("Growth", "
0a00: 32 35 22 29 2e 74 6f 21 69 6e 74 28 29 29 3b 0a 25").to!int());.
0a10: 09 7d 0a 0a 09 62 6f 6f 6c 20 69 73 5f 67 72 6f .}...bool is_gro
0a20: 77 69 6e 67 5f 74 75 72 6e 28 69 6e 74 20 74 75 wing_turn(int tu
0a30: 72 6e 29 20 63 6f 6e 73 74 0a 09 7b 0a 09 09 72 rn) const..{...r
0a40: 65 74 75 72 6e 20 70 61 63 65 20 3f 20 74 75 72 eturn pace ? tur
0a50: 6e 25 70 61 63 65 20 3d 3d 20 70 61 63 65 2d 31 n%pace == pace-1
0a60: 20 3a 20 66 61 6c 73 65 3b 0a 09 7d 0a 0a 09 69 : false;..}...i
0a70: 6e 74 20 75 6e 74 69 6c 5f 72 69 73 65 28 69 6e nt until_rise(in
0a80: 74 20 74 75 72 6e 29 20 63 6f 6e 73 74 0a 09 7b t turn) const..{
0a90: 0a 09 09 72 65 74 75 72 6e 20 70 61 63 65 20 3f ...return pace ?
0aa0: 20 70 61 63 65 2d 74 75 72 6e 25 70 61 63 65 20 pace-turn%pace
0ab0: 3a 20 69 6e 74 2e 6d 61 78 3b 0a 09 7d 0a 7d 0a : int.max;..}.}.
0ac0: 0a 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f .///////////////
0ad0: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
0ae0: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
0af0: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
0b00: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
0b10: 2f 0a 0a 63 6c 61 73 73 20 54 72 61 6d 70 6f 6c /..class Trampol
0b20: 69 6e 65 0a 7b 0a 09 6d 69 78 69 6e 20 44 65 72 ine.{..mixin Der
0b30: 69 76 65 53 68 6f 77 3b 0a 0a 70 72 69 76 61 74 iveShow;..privat
0b40: 65 3a 0a 09 69 6d 6d 75 74 61 62 6c 65 20 63 68 e:..immutable ch
0b50: 61 72 5b 5d 20 20 20 74 61 72 67 65 74 5f 6f 66 ar[] target_of
0b60: 5f 3b 0a 09 69 6d 6d 75 74 61 62 6c 65 20 63 68 _;..immutable ch
0b70: 61 72 5b 5d 5b 5d 20 73 6f 75 72 63 65 5f 6f 66 ar[][] source_of
0b80: 5f 3b 0a 09 69 6d 6d 75 74 61 62 6c 65 20 50 6f _;..immutable Po
0b90: 73 5b 5d 20 20 20 20 70 6f 73 69 74 69 6f 6e 5f s[] position_
0ba0: 6f 66 5f 3b 0a 09 69 6d 6d 75 74 61 62 6c 65 20 of_;..immutable
0bb0: 63 68 61 72 5b 5d 20 20 20 73 6f 75 72 63 65 5f char[] source_
0bc0: 6c 69 73 74 5f 3b 0a 09 69 6d 6d 75 74 61 62 6c list_;..immutabl
0bd0: 65 20 63 68 61 72 5b 5d 20 20 20 74 61 72 67 65 e char[] targe
0be0: 74 5f 6c 69 73 74 5f 3b 0a 09 54 72 61 6d 70 6f t_list_;..Trampo
0bf0: 6c 69 6e 65 20 63 6c 6f 6e 65 28 29 20 63 6f 6e line clone() con
0c00: 73 74 20 7b 20 72 65 74 75 72 6e 20 63 61 73 74 st { return cast
0c10: 28 54 72 61 6d 70 6f 6c 69 6e 65 29 20 74 68 69 (Trampoline) thi
0c20: 73 3b 20 7d 0a 0a 09 74 68 69 73 28 69 6e 20 4d s; }...this(in M
0c30: 61 70 20 6d 2c 20 63 68 61 72 5b 63 68 61 72 5d ap m, char[char]
0c40: 20 74 72 61 6d 70 61 72 61 6d 29 0a 09 7b 0a 09 tramparam)..{..
0c50: 09 61 75 74 6f 20 74 61 20 3d 20 6e 65 77 20 63 .auto ta = new c
0c60: 68 61 72 5b 27 49 27 2b 31 5d 3b 0a 09 09 61 75 har['I'+1];...au
0c70: 74 6f 20 73 72 20 3d 20 6e 65 77 20 63 68 61 72 to sr = new char
0c80: 5b 5d 5b 27 39 27 2b 31 5d 3b 0a 09 09 61 75 74 []['9'+1];...aut
0c90: 6f 20 70 6f 20 3d 20 6e 65 77 20 50 6f 73 5b 6d o po = new Pos[m
0ca0: 61 78 28 27 49 27 2c 27 39 27 29 2b 31 5d 3b 0a ax('I','9')+1];.
0cb0: 09 09 63 68 61 72 5b 5d 20 73 6c 2c 20 74 6c 3b ..char[] sl, tl;
0cc0: 0a 09 09 66 6f 72 65 61 63 68 28 66 72 2c 74 6f ...foreach(fr,to
0cd0: 3b 20 74 72 61 6d 70 61 72 61 6d 29 20 7b 0a 09 ; tramparam) {..
0ce0: 09 09 74 61 5b 66 72 5d 20 20 3d 20 74 6f 3b 0a ..ta[fr] = to;.
0cf0: 09 09 09 73 72 5b 74 6f 5d 20 7e 3d 20 66 72 3b ...sr[to] ~= fr;
0d00: 0a 09 09 7d 0a 09 09 66 6f 72 28 69 6e 74 20 79 ...}...for(int y
0d10: 3d 31 3b 20 79 3c 3d 6d 2e 48 3b 20 2b 2b 79 29 =1; y<=m.H; ++y)
0d20: 0a 09 09 66 6f 72 28 69 6e 74 20 78 3d 31 3b 20 ...for(int x=1;
0d30: 78 3c 3d 6d 2e 57 3b 20 2b 2b 78 29 20 7b 0a 09 x<=m.W; ++x) {..
0d40: 09 09 63 68 61 72 20 63 20 3d 20 6d 5b 79 2c 78 ..char c = m[y,x
0d50: 5d 3b 0a 09 09 09 69 66 28 27 41 27 3c 3d 63 20 ];....if('A'<=c
0d60: 26 26 20 63 3c 3d 27 49 27 29 20 7b 0a 09 09 09 && c<='I') {....
0d70: 09 73 6c 20 7e 3d 20 63 3b 0a 09 09 09 09 70 6f .sl ~= c;.....po
0d80: 5b 63 5d 20 3d 20 6e 65 77 20 50 6f 73 28 79 2c [c] = new Pos(y,
0d90: 78 29 3b 0a 09 09 09 7d 0a 09 09 09 69 66 28 27 x);....}....if('
0da0: 31 27 3c 3d 63 20 26 26 20 63 3c 3d 27 39 27 29 1'<=c && c<='9')
0db0: 20 7b 0a 09 09 09 09 74 6c 20 7e 3d 20 63 3b 0a {.....tl ~= c;.
0dc0: 09 09 09 09 70 6f 5b 63 5d 20 3d 20 6e 65 77 20 ....po[c] = new
0dd0: 50 6f 73 28 79 2c 78 29 3b 0a 09 09 09 7d 0a 09 Pos(y,x);....}..
0de0: 09 7d 0a 09 09 74 61 72 67 65 74 5f 6f 66 5f 20 .}...target_of_
0df0: 3d 20 63 61 73 74 28 69 6d 6d 75 74 61 62 6c 65 = cast(immutable
0e00: 29 20 74 61 3b 0a 09 09 73 6f 75 72 63 65 5f 6f ) ta;...source_o
0e10: 66 5f 20 3d 20 63 61 73 74 28 69 6d 6d 75 74 61 f_ = cast(immuta
0e20: 62 6c 65 29 20 73 72 3b 0a 09 09 70 6f 73 69 74 ble) sr;...posit
0e30: 69 6f 6e 5f 6f 66 5f 20 3d 20 63 61 73 74 28 69 ion_of_ = cast(i
0e40: 6d 6d 75 74 61 62 6c 65 29 20 70 6f 3b 0a 09 09 mmutable) po;...
0e50: 73 6f 75 72 63 65 5f 6c 69 73 74 5f 20 3d 20 63 source_list_ = c
0e60: 61 73 74 28 69 6d 6d 75 74 61 62 6c 65 29 20 73 ast(immutable) s
0e70: 6c 3b 0a 09 09 74 61 72 67 65 74 5f 6c 69 73 74 l;...target_list
0e80: 5f 20 3d 20 63 61 73 74 28 69 6d 6d 75 74 61 62 _ = cast(immutab
0e90: 6c 65 29 20 74 6c 3b 0a 09 7d 0a 0a 70 75 62 6c le) tl;..}..publ
0ea0: 69 63 20 40 70 72 6f 70 65 72 74 79 20 63 6f 6e ic @property con
0eb0: 73 74 3a 0a 09 63 6f 6e 73 74 28 63 68 61 72 5b st:..const(char[
0ec0: 5d 29 20 73 6f 75 72 63 65 5f 6c 69 73 74 28 29 ]) source_list()
0ed0: 20 7b 20 72 65 74 75 72 6e 20 73 6f 75 72 63 65 { return source
0ee0: 5f 6c 69 73 74 5f 3b 20 7d 0a 09 63 6f 6e 73 74 _list_; }..const
0ef0: 28 63 68 61 72 5b 5d 29 20 74 61 72 67 65 74 5f (char[]) target_
0f00: 6c 69 73 74 28 29 20 7b 20 72 65 74 75 72 6e 20 list() { return
0f10: 74 61 72 67 65 74 5f 6c 69 73 74 5f 3b 20 7d 0a target_list_; }.
0f20: 09 63 6f 6e 73 74 28 63 68 61 72 5b 5d 29 20 73 .const(char[]) s
0f30: 6f 75 72 63 65 5f 6f 66 28 63 68 61 72 20 63 29 ource_of(char c)
0f40: 20 7b 20 72 65 74 75 72 6e 20 73 6f 75 72 63 65 { return source
0f50: 5f 6f 66 5f 5b 63 5d 3b 20 7d 0a 09 63 68 61 72 _of_[c]; }..char
0f60: 20 74 61 72 67 65 74 5f 6f 66 28 63 68 61 72 20 target_of(char
0f70: 63 29 20 7b 20 72 65 74 75 72 6e 20 74 61 72 67 c) { return targ
0f80: 65 74 5f 6f 66 5f 5b 63 5d 3b 20 7d 0a 09 50 6f et_of_[c]; }..Po
0f90: 73 5b 5d 20 73 6f 75 72 63 65 5f 70 6f 73 28 63 s[] source_pos(c
0fa0: 68 61 72 20 63 29 20 7b 0a 09 09 50 6f 73 5b 5d har c) {...Pos[]
0fb0: 20 70 73 3b 0a 09 09 66 6f 72 65 61 63 68 28 73 ps;...foreach(s
0fc0: 3b 20 73 6f 75 72 63 65 5f 6f 66 28 63 29 29 0a ; source_of(c)).
0fd0: 09 09 09 70 73 20 7e 3d 20 70 6f 73 69 74 69 6f ...ps ~= positio
0fe0: 6e 5f 6f 66 5f 5b 73 5d 2e 63 6c 6f 6e 65 28 29 n_of_[s].clone()
0ff0: 3b 0a 09 09 72 65 74 75 72 6e 20 70 73 3b 0a 09 ;...return ps;..
1000: 7d 0a 09 50 6f 73 20 74 61 72 67 65 74 5f 70 6f }..Pos target_po
1010: 73 28 63 68 61 72 20 63 29 20 7b 20 72 65 74 75 s(char c) { retu
1020: 72 6e 20 70 6f 73 69 74 69 6f 6e 5f 6f 66 5f 5b rn position_of_[
1030: 74 61 72 67 65 74 5f 6f 66 5f 5b 63 5d 5d 2e 63 target_of_[c]].c
1040: 6c 6f 6e 65 28 29 3b 20 7d 0a 7d 0a 0a 2f 2f 2f lone(); }.}..///
1050: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
1060: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
1070: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
1080: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
1090: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 0a 0a 63 /////////////..c
10a0: 6c 61 73 73 20 4d 61 70 0a 7b 0a 09 6d 69 78 69 lass Map.{..mixi
10b0: 6e 20 44 65 72 69 76 65 53 68 6f 77 3b 0a 0a 09 n DeriveShow;...
10c0: 70 72 69 76 61 74 65 20 63 68 61 72 5b 5d 5b 5d private char[][]
10d0: 20 64 61 74 61 3b 0a 09 50 6f 73 20 72 6f 62 6f data;..Pos robo
10e0: 74 3b 0a 09 50 6f 73 20 6c 69 66 74 3b 0a 09 70 t;..Pos lift;..p
10f0: 72 69 76 61 74 65 20 69 6e 74 20 77 61 74 65 72 rivate int water
1100: 70 72 6f 6f 66 3b 0a 09 70 72 69 76 61 74 65 20 proof;..private
1110: 69 6e 74 20 63 6f 6c 6c 65 63 74 65 64 5f 72 61 int collected_ra
1120: 7a 6f 72 3b 0a 09 69 6e 74 20 63 6f 6c 6c 65 63 zor;..int collec
1130: 74 65 64 5f 6c 61 6d 62 64 61 3b 0a 09 69 6e 74 ted_lambda;..int
1140: 20 74 6f 74 61 6c 5f 6c 61 6d 62 64 61 3b 0a 09 total_lambda;..
1150: 70 72 69 76 61 74 65 20 62 6f 6f 6c 20 63 6c 65 private bool cle
1160: 61 72 65 64 3b 0a 09 70 72 69 76 61 74 65 20 50 ared;..private P
1170: 6f 73 5b 5d 20 6d 61 79 5f 75 70 64 61 74 65 3b os[] may_update;
1180: 0a 0a 09 70 72 69 76 61 74 65 20 4d 61 70 20 63 ...private Map c
1190: 6c 6f 6e 65 28 29 20 63 6f 6e 73 74 20 7b 20 72 lone() const { r
11a0: 65 74 75 72 6e 20 6e 65 77 20 4d 61 70 28 74 68 eturn new Map(th
11b0: 69 73 29 3b 20 7d 0a 09 70 72 69 76 61 74 65 20 is); }..private
11c0: 74 68 69 73 28 69 6e 20 4d 61 70 20 6d 29 20 7b this(in Map m) {
11d0: 0a 09 09 66 6f 72 65 61 63 68 28 73 3b 20 6d 2e ...foreach(s; m.
11e0: 64 61 74 61 29 0a 09 09 09 74 68 69 73 2e 64 61 data)....this.da
11f0: 74 61 20 7e 3d 20 73 2e 64 75 70 3b 0a 09 09 74 ta ~= s.dup;...t
1200: 68 69 73 2e 72 6f 62 6f 74 20 20 20 20 20 20 3d his.robot =
1210: 20 6d 2e 72 6f 62 6f 74 2e 63 6c 6f 6e 65 28 29 m.robot.clone()
1220: 3b 0a 09 09 74 68 69 73 2e 6c 69 66 74 20 20 20 ;...this.lift
1230: 20 20 20 20 3d 20 6d 2e 6c 69 66 74 2e 63 6c 6f = m.lift.clo
1240: 6e 65 28 29 3b 0a 09 09 74 68 69 73 2e 77 61 74 ne();...this.wat
1250: 65 72 70 72 6f 6f 66 20 3d 20 6d 2e 77 61 74 65 erproof = m.wate
1260: 72 70 72 6f 6f 66 3b 0a 09 09 74 68 69 73 2e 63 rproof;...this.c
1270: 6f 6c 6c 65 63 74 65 64 5f 72 61 7a 6f 72 20 20 ollected_razor
1280: 3d 20 6d 2e 63 6f 6c 6c 65 63 74 65 64 5f 72 61 = m.collected_ra
1290: 7a 6f 72 3b 0a 09 09 74 68 69 73 2e 63 6f 6c 6c zor;...this.coll
12a0: 65 63 74 65 64 5f 6c 61 6d 62 64 61 20 3d 20 6d ected_lambda = m
12b0: 2e 63 6f 6c 6c 65 63 74 65 64 5f 6c 61 6d 62 64 .collected_lambd
12c0: 61 3b 0a 09 09 74 68 69 73 2e 74 6f 74 61 6c 5f a;...this.total_
12d0: 6c 61 6d 62 64 61 20 20 20 20 20 3d 20 6d 2e 74 lambda = m.t
12e0: 6f 74 61 6c 5f 6c 61 6d 62 64 61 3b 0a 09 09 74 otal_lambda;...t
12f0: 68 69 73 2e 63 6c 65 61 72 65 64 20 20 20 20 3d his.cleared =
1300: 20 6d 2e 63 6c 65 61 72 65 64 3b 0a 09 09 74 68 m.cleared;...th
1310: 69 73 2e 6d 61 79 5f 75 70 64 61 74 65 20 3d 20 is.may_update =
1320: 28 63 61 73 74 28 4d 61 70 29 6d 29 2e 6d 61 79 (cast(Map)m).may
1330: 5f 75 70 64 61 74 65 2e 64 75 70 3b 0a 09 7d 0a _update.dup;..}.
1340: 0a 09 63 6f 6e 73 74 20 7b 0a 09 09 40 70 72 6f ..const {...@pro
1350: 70 65 72 74 79 20 7b 0a 09 09 09 69 6e 74 20 48 perty {....int H
1360: 28 29 20 7b 20 72 65 74 75 72 6e 20 64 61 74 61 () { return data
1370: 2e 6c 65 6e 67 74 68 3b 20 7d 0a 09 09 09 69 6e .length; }....in
1380: 74 20 57 28 29 20 7b 20 72 65 74 75 72 6e 20 64 t W() { return d
1390: 61 74 61 5b 30 5d 2e 6c 65 6e 67 74 68 3b 20 7d ata[0].length; }
13a0: 0a 09 09 09 69 6e 74 20 6e 75 6d 5f 72 61 7a 6f ....int num_razo
13b0: 72 28 29 20 7b 20 72 65 74 75 72 6e 20 63 6f 6c r() { return col
13c0: 6c 65 63 74 65 64 5f 72 61 7a 6f 72 3b 20 7d 0a lected_razor; }.
13d0: 0a 09 09 09 50 6f 73 5b 5d 20 72 61 7a 6f 72 73 ....Pos[] razors
13e0: 28 29 20 20 7b 20 72 65 74 75 72 6e 20 6f 62 6a () { return obj
13f0: 65 63 74 73 28 27 21 27 29 3b 20 7d 0a 09 09 09 ects('!'); }....
1400: 50 6f 73 5b 5d 20 6c 61 6d 62 64 61 73 28 29 20 Pos[] lambdas()
1410: 7b 20 72 65 74 75 72 6e 20 6f 62 6a 65 63 74 73 { return objects
1420: 28 27 5c 5c 27 29 3b 20 7d 0a 09 09 7d 0a 0a 09 ('\\'); }...}...
1430: 09 50 6f 73 5b 5d 20 6f 62 6a 65 63 74 73 28 63 .Pos[] objects(c
1440: 68 61 72 20 63 29 20 7b 0a 09 09 09 50 6f 73 5b har c) {....Pos[
1450: 5d 20 61 6e 73 3b 0a 09 09 09 66 6f 72 28 69 6e ] ans;....for(in
1460: 74 20 79 3d 31 3b 20 79 3c 3d 48 3b 20 2b 2b 79 t y=1; y<=H; ++y
1470: 29 0a 09 09 09 66 6f 72 28 69 6e 74 20 78 3d 31 )....for(int x=1
1480: 3b 20 78 3c 3d 57 3b 20 2b 2b 78 29 0a 09 09 09 ; x<=W; ++x)....
1490: 09 69 66 28 74 68 69 73 5b 79 2c 78 5d 20 3d 3d .if(this[y,x] ==
14a0: 20 63 29 0a 09 09 09 09 61 6e 73 20 7e 3d 20 6e c).....ans ~= n
14b0: 65 77 20 50 6f 73 28 79 2c 78 29 3b 0a 09 09 09 ew Pos(y,x);....
14c0: 72 65 74 75 72 6e 20 61 6e 73 3b 0a 09 09 7d 0a return ans;...}.
14d0: 0a 09 09 63 68 61 72 20 6f 70 49 6e 64 65 78 28 ...char opIndex(
14e0: 69 6e 74 20 79 2c 20 69 6e 74 20 78 29 20 7b 0a int y, int x) {.
14f0: 09 09 09 2d 2d 79 2c 20 2d 2d 78 3b 0a 09 09 09 ...--y, --x;....
1500: 69 66 28 79 3c 30 7c 7c 48 3c 3d 79 7c 7c 78 3c if(y<0||H<=y||x<
1510: 30 7c 7c 57 3c 3d 78 29 0a 09 09 09 09 72 65 74 0||W<=x).....ret
1520: 75 72 6e 20 27 23 27 3b 0a 09 09 09 72 65 74 75 urn '#';....retu
1530: 72 6e 20 64 61 74 61 5b 48 2d 31 2d 79 5d 5b 78 rn data[H-1-y][x
1540: 5d 3b 0a 09 09 7d 0a 0a 09 09 63 68 61 72 20 6f ];...}....char o
1550: 70 49 6e 64 65 78 28 69 6e 20 50 6f 73 20 70 29 pIndex(in Pos p)
1560: 20 7b 0a 09 09 09 72 65 74 75 72 6e 20 74 68 69 {....return thi
1570: 73 5b 70 2e 79 2c 20 70 2e 78 5d 3b 0a 09 09 7d s[p.y, p.x];...}
1580: 0a 09 7d 0a 0a 70 72 69 76 61 74 65 3a 0a 09 74 ..}..private:..t
1590: 68 69 73 28 73 74 72 69 6e 67 5b 5d 20 72 61 77 his(string[] raw
15a0: 5f 64 61 74 61 2c 20 73 74 72 69 6e 67 5b 73 74 _data, string[st
15b0: 72 69 6e 67 5d 20 70 61 72 61 6d 73 2c 20 63 68 ring] params, ch
15c0: 61 72 5b 63 68 61 72 5d 20 74 72 61 6d 70 6f 29 ar[char] trampo)
15d0: 0a 09 7b 0a 09 09 69 6e 74 20 77 69 64 74 68 20 ..{...int width
15e0: 3d 20 30 3b 0a 09 09 66 6f 72 65 61 63 68 28 72 = 0;...foreach(r
15f0: 3b 20 72 61 77 5f 64 61 74 61 29 0a 09 09 09 77 ; raw_data)....w
1600: 69 64 74 68 20 3d 20 6d 61 78 28 77 69 64 74 68 idth = max(width
1610: 2c 20 72 2e 6c 65 6e 67 74 68 29 3b 0a 09 09 66 , r.length);...f
1620: 6f 72 65 61 63 68 28 72 3b 20 72 61 77 5f 64 61 oreach(r; raw_da
1630: 74 61 29 20 7b 0a 09 09 09 74 68 69 73 2e 64 61 ta) {....this.da
1640: 74 61 20 7e 3d 20 72 2e 64 75 70 3b 0a 09 09 09 ta ~= r.dup;....
1650: 74 68 69 73 2e 64 61 74 61 5b 24 2d 31 5d 2e 6c this.data[$-1].l
1660: 65 6e 67 74 68 20 3d 20 77 69 64 74 68 3b 0a 09 ength = width;..
1670: 09 09 74 68 69 73 2e 64 61 74 61 5b 24 2d 31 5d ..this.data[$-1]
1680: 5b 72 2e 6c 65 6e 67 74 68 2e 2e 24 5d 20 3d 20 [r.length..$] =
1690: 27 20 27 3b 0a 09 09 7d 0a 0a 09 09 66 6f 72 28 ' ';...}....for(
16a0: 69 6e 74 20 79 3d 31 3b 20 79 3c 3d 48 3b 20 2b int y=1; y<=H; +
16b0: 2b 79 29 0a 09 09 66 6f 72 28 69 6e 74 20 78 3d +y)...for(int x=
16c0: 31 3b 20 78 3c 3d 57 3b 20 2b 2b 78 29 20 7b 0a 1; x<=W; ++x) {.
16d0: 09 09 09 69 66 28 74 68 69 73 5b 79 2c 78 5d 20 ...if(this[y,x]
16e0: 3d 3d 20 27 52 27 29 0a 09 09 09 09 74 68 69 73 == 'R').....this
16f0: 2e 72 6f 62 6f 74 20 3d 20 6e 65 77 20 50 6f 73 .robot = new Pos
1700: 28 79 2c 78 29 3b 0a 09 09 09 69 66 28 74 68 69 (y,x);....if(thi
1710: 73 5b 79 2c 78 5d 20 3d 3d 20 27 4c 27 20 7c 7c s[y,x] == 'L' ||
1720: 20 74 68 69 73 5b 79 2c 78 5d 20 3d 3d 20 27 4f this[y,x] == 'O
1730: 27 29 0a 09 09 09 09 74 68 69 73 2e 6c 69 66 74 ').....this.lift
1740: 20 3d 20 6e 65 77 20 50 6f 73 28 79 2c 78 29 3b = new Pos(y,x);
1750: 0a 09 09 09 69 66 28 74 68 69 73 5b 79 2c 78 5d ....if(this[y,x]
1760: 20 3d 3d 20 27 5c 5c 27 20 7c 7c 20 74 68 69 73 == '\\' || this
1770: 5b 79 2c 78 5d 20 3d 3d 20 27 40 27 29 0a 09 09 [y,x] == '@')...
1780: 09 09 74 6f 74 61 6c 5f 6c 61 6d 62 64 61 2b 2b ..total_lambda++
1790: 3b 0a 09 09 09 69 66 28 69 73 5f 72 6f 63 6b 79 ;....if(is_rocky
17a0: 28 74 68 69 73 5b 79 2c 78 5d 29 29 0a 09 09 09 (this[y,x]))....
17b0: 09 6d 61 79 5f 75 70 64 61 74 65 20 7e 3d 20 6e .may_update ~= n
17c0: 65 77 20 50 6f 73 28 79 2c 78 29 3b 0a 09 09 7d ew Pos(y,x);...}
17d0: 0a 0a 09 09 74 68 69 73 2e 77 61 74 65 72 70 72 ....this.waterpr
17e0: 6f 6f 66 20 20 20 20 20 20 3d 20 70 61 72 61 6d oof = param
17f0: 73 2e 67 65 74 28 22 57 61 74 65 72 70 72 6f 6f s.get("Waterproo
1800: 66 22 2c 20 22 35 22 29 2e 74 6f 21 69 6e 74 28 f", "5").to!int(
1810: 29 3b 0a 09 09 74 68 69 73 2e 63 6f 6c 6c 65 63 );...this.collec
1820: 74 65 64 5f 72 61 7a 6f 72 20 3d 20 70 61 72 61 ted_razor = para
1830: 6d 73 2e 67 65 74 28 22 52 61 7a 6f 72 73 22 2c ms.get("Razors",
1840: 20 22 30 22 29 2e 74 6f 21 69 6e 74 28 29 3b 0a "0").to!int();.
1850: 09 7d 0a 0a 09 76 6f 69 64 20 6f 70 49 6e 64 65 .}...void opInde
1860: 78 41 73 73 69 67 6e 28 63 68 61 72 20 63 2c 20 xAssign(char c,
1870: 69 6e 74 20 79 2c 20 69 6e 74 20 78 29 0a 09 7b int y, int x)..{
1880: 0a 09 09 2d 2d 79 2c 20 2d 2d 78 3b 0a 09 09 69 ...--y, --x;...i
1890: 66 28 79 3c 30 7c 7c 48 3c 3d 79 7c 7c 78 3c 30 f(y<0||H<=y||x<0
18a0: 7c 7c 57 3c 3d 78 29 0a 09 09 09 72 65 74 75 72 ||W<=x)....retur
18b0: 6e 3b 0a 09 09 64 61 74 61 5b 48 2d 31 2d 79 5d n;...data[H-1-y]
18c0: 5b 78 5d 20 3d 20 63 3b 0a 09 7d 0a 0a 09 76 6f [x] = c;..}...vo
18d0: 69 64 20 6f 70 49 6e 64 65 78 41 73 73 69 67 6e id opIndexAssign
18e0: 28 63 68 61 72 20 63 2c 20 69 6e 20 50 6f 73 20 (char c, in Pos
18f0: 70 29 0a 09 7b 0a 09 09 74 68 69 73 5b 70 2e 79 p)..{...this[p.y
1900: 2c 20 70 2e 78 5d 20 3d 20 63 3b 0a 09 7d 0a 0a , p.x] = c;..}..
1910: 09 62 6f 6f 6c 20 63 6f 6d 6d 61 6e 64 28 63 68 .bool command(ch
1920: 61 72 20 63 2c 20 69 6e 74 20 74 75 72 6e 2c 20 ar c, int turn,
1930: 62 6f 6f 6c 20 68 69 67 65 5f 64 61 79 2c 20 69 bool hige_day, i
1940: 6e 20 54 72 61 6d 70 6f 6c 69 6e 65 20 74 72 29 n Trampoline tr)
1950: 0a 09 7b 0a 09 09 73 77 69 74 63 68 28 63 29 0a ..{...switch(c).
1960: 09 09 7b 0a 09 09 63 61 73 65 20 27 52 27 3a 20 ..{...case 'R':
1970: 72 65 74 75 72 6e 20 6d 6f 76 65 28 20 30 2c 20 return move( 0,
1980: 2b 31 2c 20 68 69 67 65 5f 64 61 79 2c 20 74 72 +1, hige_day, tr
1990: 29 3b 0a 09 09 63 61 73 65 20 27 4c 27 3a 20 72 );...case 'L': r
19a0: 65 74 75 72 6e 20 6d 6f 76 65 28 20 30 2c 20 2d eturn move( 0, -
19b0: 31 2c 20 68 69 67 65 5f 64 61 79 2c 20 74 72 29 1, hige_day, tr)
19c0: 3b 0a 09 09 63 61 73 65 20 27 55 27 3a 20 72 65 ;...case 'U': re
19d0: 74 75 72 6e 20 6d 6f 76 65 28 2b 31 2c 20 20 30 turn move(+1, 0
19e0: 2c 20 68 69 67 65 5f 64 61 79 2c 20 74 72 29 3b , hige_day, tr);
19f0: 0a 09 09 63 61 73 65 20 27 44 27 3a 20 72 65 74 ...case 'D': ret
1a00: 75 72 6e 20 6d 6f 76 65 28 2d 31 2c 20 20 30 2c urn move(-1, 0,
1a10: 20 68 69 67 65 5f 64 61 79 2c 20 74 72 29 3b 0a hige_day, tr);.
1a20: 09 09 63 61 73 65 20 27 57 27 3a 20 72 65 74 75 ..case 'W': retu
1a30: 72 6e 20 6d 6f 76 65 28 20 30 2c 20 20 30 2c 20 rn move( 0, 0,
1a40: 68 69 67 65 5f 64 61 79 2c 20 74 72 29 3b 0a 09 hige_day, tr);..
1a50: 09 63 61 73 65 20 27 53 27 3a 20 72 65 74 75 72 .case 'S': retur
1a60: 6e 20 75 73 65 5f 72 61 7a 6f 72 28 68 69 67 65 n use_razor(hige
1a70: 5f 64 61 79 29 3b 0a 09 09 64 65 66 61 75 6c 74 _day);...default
1a80: 3a 20 20 61 73 73 65 72 74 28 66 61 6c 73 65 29 : assert(false)
1a90: 3b 0a 09 09 7d 0a 09 7d 0a 0a 09 62 6f 6f 6c 20 ;...}..}...bool
1aa0: 75 73 65 5f 72 61 7a 6f 72 28 62 6f 6f 6c 20 68 use_razor(bool h
1ab0: 69 67 65 5f 64 61 79 29 0a 09 7b 0a 09 09 69 66 ige_day)..{...if
1ac0: 28 63 6f 6c 6c 65 63 74 65 64 5f 72 61 7a 6f 72 (collected_razor
1ad0: 20 3e 20 30 29 0a 09 09 7b 0a 09 09 09 63 6f 6c > 0)...{....col
1ae0: 6c 65 63 74 65 64 5f 72 61 7a 6f 72 2d 2d 3b 0a lected_razor--;.
1af0: 09 09 09 66 6f 72 28 69 6e 74 20 64 79 3d 2d 31 ...for(int dy=-1
1b00: 3b 20 64 79 3c 3d 2b 31 3b 20 2b 2b 64 79 29 0a ; dy<=+1; ++dy).
1b10: 09 09 09 66 6f 72 28 69 6e 74 20 64 78 3d 2d 31 ...for(int dx=-1
1b20: 3b 20 64 78 3c 3d 2b 31 3b 20 2b 2b 64 78 29 0a ; dx<=+1; ++dx).
1b30: 09 09 09 09 69 66 28 74 68 69 73 5b 72 6f 62 6f ....if(this[robo
1b40: 74 2e 79 2b 64 79 2c 72 6f 62 6f 74 2e 78 2b 64 t.y+dy,robot.x+d
1b50: 78 5d 20 3d 3d 20 27 57 27 29 0a 09 09 09 09 09 x] == 'W')......
1b60: 65 6d 70 74 69 66 79 28 6e 65 77 20 50 6f 73 28 emptify(new Pos(
1b70: 72 6f 62 6f 74 2e 79 2b 64 79 2c 72 6f 62 6f 74 robot.y+dy,robot
1b80: 2e 78 2b 64 78 29 29 3b 0a 09 09 7d 0a 09 09 72 .x+dx));...}...r
1b90: 65 74 75 72 6e 20 75 70 64 61 74 65 28 68 69 67 eturn update(hig
1ba0: 65 5f 64 61 79 29 3b 0a 09 7d 0a 0a 09 2f 2f 20 e_day);..}...//
1bb0: 52 65 67 69 73 74 65 72 20 61 20 70 6f 73 69 74 Register a posit
1bc0: 69 6f 6e 20 74 68 61 74 20 6d 61 79 20 62 65 63 ion that may bec
1bd0: 6f 6d 65 20 65 6d 70 74 79 20 69 6e 20 74 68 65 ome empty in the
1be0: 20 6c 61 73 74 20 74 75 72 6e 2e 0a 09 76 6f 69 last turn...voi
1bf0: 64 20 65 6d 70 74 69 66 79 28 50 6f 73 20 70 29 d emptify(Pos p)
1c00: 0a 09 7b 0a 09 09 74 68 69 73 5b 70 5d 20 3d 20 ..{...this[p] =
1c10: 27 20 27 3b 0a 09 09 66 6f 72 28 69 6e 74 20 64 ' ';...for(int d
1c20: 79 3d 30 3b 20 20 64 79 3c 3d 2b 31 3b 20 2b 2b y=0; dy<=+1; ++
1c30: 64 79 29 0a 09 09 66 6f 72 28 69 6e 74 20 64 78 dy)...for(int dx
1c40: 3d 2d 31 3b 20 64 78 3c 3d 2b 31 3b 20 2b 2b 64 =-1; dx<=+1; ++d
1c50: 78 29 0a 09 09 09 6d 61 79 5f 75 70 64 61 74 65 x)....may_update
1c60: 20 7e 3d 20 6e 65 77 20 50 6f 73 28 70 2e 79 2b ~= new Pos(p.y+
1c70: 64 79 2c 20 70 2e 78 2b 64 78 29 3b 0a 09 7d 0a dy, p.x+dx);..}.
1c80: 0a 09 62 6f 6f 6c 20 6d 6f 76 65 28 69 6e 74 20 ..bool move(int
1c90: 64 79 2c 20 69 6e 74 20 64 78 2c 20 62 6f 6f 6c dy, int dx, bool
1ca0: 20 68 69 67 65 5f 64 61 79 2c 20 69 6e 20 54 72 hige_day, in Tr
1cb0: 61 6d 70 6f 6c 69 6e 65 20 74 72 29 0a 09 7b 0a ampoline tr)..{.
1cc0: 09 09 50 6f 73 20 6e 65 78 74 20 3d 20 6e 65 77 ..Pos next = new
1cd0: 20 50 6f 73 28 72 6f 62 6f 74 2e 79 2b 64 79 2c Pos(robot.y+dy,
1ce0: 20 72 6f 62 6f 74 2e 78 2b 64 78 29 3b 0a 09 09 robot.x+dx);...
1cf0: 69 6e 74 20 79 3d 72 6f 62 6f 74 2e 79 2c 20 78 int y=robot.y, x
1d00: 3d 72 6f 62 6f 74 2e 78 3b 0a 0a 09 09 69 66 28 =robot.x;....if(
1d10: 20 27 5c 5c 27 20 3d 3d 20 74 68 69 73 5b 6e 65 '\\' == this[ne
1d20: 78 74 5d 20 29 20 63 6f 6c 6c 65 63 74 65 64 5f xt] ) collected_
1d30: 6c 61 6d 62 64 61 2b 2b 3b 0a 09 09 69 66 28 20 lambda++;...if(
1d40: 20 27 21 27 20 3d 3d 20 74 68 69 73 5b 6e 65 78 '!' == this[nex
1d50: 74 5d 20 29 20 63 6f 6c 6c 65 63 74 65 64 5f 72 t] ) collected_r
1d60: 61 7a 6f 72 2b 2b 3b 0a 09 09 69 66 28 20 27 4f azor++;...if( 'O
1d70: 27 20 20 3d 3d 20 74 68 69 73 5b 6e 65 78 74 5d ' == this[next]
1d80: 20 29 20 63 6c 65 61 72 65 64 20 3d 20 74 72 75 ) cleared = tru
1d90: 65 3b 0a 0a 09 09 69 66 28 20 69 73 5f 73 70 61 e;....if( is_spa
1da0: 63 79 28 74 68 69 73 5b 6e 65 78 74 5d 29 20 29 cy(this[next]) )
1db0: 0a 09 09 7b 0a 09 09 09 65 6d 70 74 69 66 79 28 ...{....emptify(
1dc0: 72 6f 62 6f 74 29 3b 0a 09 09 09 72 6f 62 6f 74 robot);....robot
1dd0: 20 3d 20 6e 65 78 74 3b 0a 09 09 09 74 68 69 73 = next;....this
1de0: 5b 6e 65 78 74 5d 20 3d 20 27 52 27 3b 0a 09 09 [next] = 'R';...
1df0: 7d 0a 09 09 65 6c 73 65 20 69 66 28 64 79 3d 3d }...else if(dy==
1e00: 30 20 26 26 20 69 73 5f 72 6f 63 6b 79 28 74 68 0 && is_rocky(th
1e10: 69 73 5b 6e 65 78 74 5d 29 20 26 26 20 27 20 27 is[next]) && ' '
1e20: 3d 3d 74 68 69 73 5b 79 2b 64 79 2a 32 2c 78 2b ==this[y+dy*2,x+
1e30: 64 78 2a 32 5d 29 0a 09 09 7b 0a 09 09 09 63 68 dx*2])...{....ch
1e40: 61 72 20 72 6f 63 6b 20 20 3d 20 74 68 69 73 5b ar rock = this[
1e50: 6e 65 78 74 5d 3b 0a 09 09 09 65 6d 70 74 69 66 next];....emptif
1e60: 79 28 72 6f 62 6f 74 29 3b 0a 09 09 09 72 6f 62 y(robot);....rob
1e70: 6f 74 20 3d 20 6e 65 78 74 3b 0a 09 09 09 74 68 ot = next;....th
1e80: 69 73 5b 6e 65 78 74 5d 20 20 20 20 20 20 20 20 is[next]
1e90: 20 20 3d 20 27 52 27 3b 0a 09 09 09 74 68 69 73 = 'R';....this
1ea0: 5b 79 2b 64 79 2a 32 2c 78 2b 64 78 2a 32 5d 20 [y+dy*2,x+dx*2]
1eb0: 3d 20 72 6f 63 6b 3b 0a 09 09 09 6d 61 79 5f 75 = rock;....may_u
1ec0: 70 64 61 74 65 20 7e 3d 20 6e 65 77 20 50 6f 73 pdate ~= new Pos
1ed0: 28 79 2b 64 79 2a 32 2c 78 2b 64 78 2a 32 29 3b (y+dy*2,x+dx*2);
1ee0: 0a 09 09 7d 0a 09 09 65 6c 73 65 20 69 66 28 69 ...}...else if(i
1ef0: 73 5f 74 72 61 6d 70 6f 6c 69 6e 65 5f 73 6f 75 s_trampoline_sou
1f00: 72 63 65 28 74 68 69 73 5b 6e 65 78 74 5d 29 29 rce(this[next]))
1f10: 0a 09 09 7b 0a 09 09 09 65 6d 70 74 69 66 79 28 ...{....emptify(
1f20: 72 6f 62 6f 74 29 3b 0a 09 09 09 50 6f 73 20 74 robot);....Pos t
1f30: 70 20 3d 20 74 72 2e 74 61 72 67 65 74 5f 70 6f p = tr.target_po
1f40: 73 28 74 68 69 73 5b 6e 65 78 74 5d 29 3b 0a 09 s(this[next]);..
1f50: 09 09 66 6f 72 65 61 63 68 28 70 3b 20 74 72 2e ..foreach(p; tr.
1f60: 73 6f 75 72 63 65 5f 70 6f 73 28 74 68 69 73 5b source_pos(this[
1f70: 74 70 5d 29 29 0a 09 09 09 09 65 6d 70 74 69 66 tp])).....emptif
1f80: 79 28 70 29 3b 0a 09 09 09 74 68 69 73 5b 74 70 y(p);....this[tp
1f90: 5d 20 3d 20 27 52 27 3b 0a 09 09 09 72 6f 62 6f ] = 'R';....robo
1fa0: 74 20 20 20 20 3d 20 74 70 3b 0a 09 09 7d 0a 09 t = tp;...}..
1fb0: 09 72 65 74 75 72 6e 20 75 70 64 61 74 65 28 68 .return update(h
1fc0: 69 67 65 5f 64 61 79 29 3b 0a 09 7d 0a 0a 09 62 ige_day);..}...b
1fd0: 6f 6f 6c 20 75 70 64 61 74 65 28 62 6f 6f 6c 20 ool update(bool
1fe0: 68 69 67 65 5f 64 61 79 29 0a 09 7b 0a 09 09 2f hige_day)..{.../
1ff0: 2f 20 57 72 69 74 65 20 61 66 74 65 72 20 61 6c / Write after al
2000: 6c 20 74 68 65 20 75 70 64 61 74 65 73 20 61 72 l the updates ar
2010: 65 20 70 72 6f 63 65 73 73 65 64 2e 0a 09 09 54 e processed....T
2020: 75 70 6c 65 21 28 69 6e 74 2c 69 6e 74 2c 63 68 uple!(int,int,ch
2030: 61 72 29 5b 5d 20 77 72 69 74 65 5f 62 75 66 66 ar)[] write_buff
2040: 65 72 3b 0a 09 09 76 6f 69 64 20 77 72 69 74 65 er;...void write
2050: 28 69 6e 74 20 79 2c 20 69 6e 74 20 78 2c 20 63 (int y, int x, c
2060: 68 61 72 20 63 29 20 7b 20 77 72 69 74 65 5f 62 har c) { write_b
2070: 75 66 66 65 72 20 7e 3d 20 74 75 70 6c 65 28 79 uffer ~= tuple(y
2080: 2c 78 2c 63 29 3b 20 7d 0a 09 09 76 6f 69 64 20 ,x,c); }...void
2090: 77 72 69 74 65 70 28 50 6f 73 20 70 2c 20 63 68 writep(Pos p, ch
20a0: 61 72 20 63 29 20 7b 20 77 72 69 74 65 5f 62 75 ar c) { write_bu
20b0: 66 66 65 72 20 7e 3d 20 74 75 70 6c 65 28 30 2b ffer ~= tuple(0+
20c0: 70 2e 79 2c 30 2b 70 2e 78 2c 63 29 3b 20 7d 0a p.y,0+p.x,c); }.
20d0: 09 09 73 63 6f 70 65 28 65 78 69 74 29 20 7b 0a ..scope(exit) {.
20e0: 09 09 09 6d 61 79 5f 75 70 64 61 74 65 2e 6c 65 ...may_update.le
20f0: 6e 67 74 68 20 3d 20 30 3b 0a 09 09 09 66 6f 72 ngth = 0;....for
2100: 65 61 63 68 28 77 72 3b 20 77 72 69 74 65 5f 62 each(wr; write_b
2110: 75 66 66 65 72 29 20 7b 0a 09 09 09 09 74 68 69 uffer) {.....thi
2120: 73 5b 77 72 5b 30 5d 2c 77 72 5b 31 5d 5d 20 3d s[wr[0],wr[1]] =
2130: 20 77 72 5b 32 5d 3b 0a 09 09 09 09 69 66 28 69 wr[2];.....if(i
2140: 73 5f 72 6f 63 6b 79 28 77 72 5b 32 5d 29 29 0a s_rocky(wr[2])).
2150: 09 09 09 09 09 6d 61 79 5f 75 70 64 61 74 65 20 .....may_update
2160: 7e 3d 20 6e 65 77 20 50 6f 73 28 77 72 5b 30 5d ~= new Pos(wr[0]
2170: 2c 77 72 5b 31 5d 29 3b 0a 09 09 09 09 69 66 28 ,wr[1]);.....if(
2180: 77 72 5b 32 5d 3d 3d 27 20 27 29 0a 09 09 09 09 wr[2]==' ').....
2190: 09 65 6d 70 74 69 66 79 28 6e 65 77 20 50 6f 73 .emptify(new Pos
21a0: 28 77 72 5b 30 5d 2c 20 77 72 5b 31 5d 29 29 3b (wr[0], wr[1]));
21b0: 0a 09 09 09 7d 0a 09 09 7d 0a 0a 09 09 69 66 28 ....}...}....if(
21c0: 63 6f 6c 6c 65 63 74 65 64 5f 6c 61 6d 62 64 61 collected_lambda
21d0: 20 3d 3d 20 74 6f 74 61 6c 5f 6c 61 6d 62 64 61 == total_lambda
21e0: 29 0a 09 09 09 69 66 28 74 68 69 73 5b 6c 69 66 )....if(this[lif
21f0: 74 5d 3d 3d 27 4c 27 29 0a 09 09 09 09 74 68 69 t]=='L').....thi
2200: 73 5b 6c 69 66 74 5d 20 3d 20 27 4f 27 3b 0a 0a s[lift] = 'O';..
2210: 09 09 62 6f 6f 6c 20 64 65 61 64 20 3d 20 66 61 ..bool dead = fa
2220: 6c 73 65 3b 0a 09 09 69 66 28 20 68 69 67 65 5f lse;...if( hige_
2230: 64 61 79 20 29 20 7b 0a 09 09 09 66 6f 72 28 69 day ) {....for(i
2240: 6e 74 20 79 3d 31 3b 20 79 3c 3d 48 3b 20 2b 2b nt y=1; y<=H; ++
2250: 79 29 0a 09 09 09 66 6f 72 28 69 6e 74 20 78 3d y)....for(int x=
2260: 31 3b 20 78 3c 3d 57 3b 20 2b 2b 78 29 0a 09 09 1; x<=W; ++x)...
2270: 09 09 69 66 28 74 68 69 73 5b 79 2c 78 5d 3d 3d ..if(this[y,x]==
2280: 27 57 27 29 0a 09 09 09 09 09 6d 61 79 5f 75 70 'W')......may_up
2290: 64 61 74 65 20 7e 3d 20 6e 65 77 20 50 6f 73 28 date ~= new Pos(
22a0: 79 2c 78 29 3b 0a 09 09 7d 0a 0a 09 09 73 6f 72 y,x);...}....sor
22b0: 74 28 6d 61 79 5f 75 70 64 61 74 65 29 3b 0a 09 t(may_update);..
22c0: 09 66 6f 72 65 61 63 68 28 70 3b 20 6d 61 79 5f .foreach(p; may_
22d0: 75 70 64 61 74 65 29 20 7b 0a 09 09 09 69 6e 74 update) {....int
22e0: 20 79 20 3d 20 70 2e 79 2c 20 78 20 3d 20 70 2e y = p.y, x = p.
22f0: 78 3b 0a 09 09 09 63 68 61 72 20 72 6f 63 6b 20 x;....char rock
2300: 3d 20 74 68 69 73 5b 70 5d 3b 0a 09 09 09 69 66 = this[p];....if
2310: 28 69 73 5f 72 6f 63 6b 79 28 74 68 69 73 5b 70 (is_rocky(this[p
2320: 5d 29 29 20 7b 0a 09 09 09 09 69 66 28 74 68 69 ])) {.....if(thi
2330: 73 5b 70 2e 44 5d 3d 3d 27 20 27 29 20 7b 0a 09 s[p.D]==' ') {..
2340: 09 09 09 09 77 72 69 74 65 70 28 70 2c 20 27 20 ....writep(p, '
2350: 27 29 3b 0a 09 09 09 09 09 77 72 69 74 65 70 28 ');......writep(
2360: 70 2e 44 2c 20 28 72 6f 63 6b 3d 3d 27 40 27 26 p.D, (rock=='@'&
2370: 26 74 68 69 73 5b 70 2e 44 2e 44 5d 21 3d 27 20 &this[p.D.D]!='
2380: 27 20 3f 20 27 5c 5c 27 20 3a 20 72 6f 63 6b 29 ' ? '\\' : rock)
2390: 29 3b 0a 09 09 09 09 09 69 66 28 72 6f 62 6f 74 );......if(robot
23a0: 20 3d 3d 20 70 2e 44 2e 44 29 0a 09 09 09 09 09 == p.D.D)......
23b0: 09 64 65 61 64 3d 74 72 75 65 3b 0a 09 09 09 09 .dead=true;.....
23c0: 7d 0a 09 09 09 09 65 6c 73 65 20 69 66 28 28 69 }.....else if((i
23d0: 73 5f 72 6f 63 6b 79 28 74 68 69 73 5b 70 2e 44 s_rocky(this[p.D
23e0: 5d 29 20 7c 7c 20 74 68 69 73 5b 70 2e 44 5d 3d ]) || this[p.D]=
23f0: 3d 27 5c 5c 27 29 20 26 26 20 74 68 69 73 5b 70 ='\\') && this[p
2400: 2e 52 5d 3d 3d 27 20 27 20 26 26 20 74 68 69 73 .R]==' ' && this
2410: 5b 70 2e 52 2e 44 5d 3d 3d 27 20 27 29 20 7b 0a [p.R.D]==' ') {.
2420: 09 09 09 09 09 77 72 69 74 65 70 28 70 2c 20 27 .....writep(p, '
2430: 20 27 29 3b 0a 09 09 09 09 09 77 72 69 74 65 70 ');......writep
2440: 28 70 2e 52 2e 44 2c 28 72 6f 63 6b 3d 3d 27 40 (p.R.D,(rock=='@
2450: 27 26 26 74 68 69 73 5b 70 2e 52 2e 44 2e 44 5d '&&this[p.R.D.D]
2460: 21 3d 27 20 27 20 3f 20 27 5c 5c 27 20 3a 20 72 !=' ' ? '\\' : r
2470: 6f 63 6b 29 29 3b 0a 09 09 09 09 09 69 66 28 72 ock));......if(r
2480: 6f 62 6f 74 20 3d 3d 20 70 2e 52 2e 44 2e 44 29 obot == p.R.D.D)
2490: 0a 09 09 09 09 09 09 64 65 61 64 3d 74 72 75 65 .......dead=true
24a0: 3b 0a 09 09 09 09 7d 0a 09 09 09 09 65 6c 73 65 ;.....}.....else
24b0: 20 69 66 28 69 73 5f 72 6f 63 6b 79 28 74 68 69 if(is_rocky(thi
24c0: 73 5b 70 2e 44 5d 29 20 26 26 20 74 68 69 73 5b s[p.D]) && this[
24d0: 70 2e 4c 5d 3d 3d 27 20 27 20 26 26 20 74 68 69 p.L]==' ' && thi
24e0: 73 5b 70 2e 4c 2e 44 5d 3d 3d 27 20 27 29 20 7b s[p.L.D]==' ') {
24f0: 0a 09 09 09 09 09 77 72 69 74 65 70 28 70 2c 20 ......writep(p,
2500: 27 20 27 29 3b 0a 09 09 09 09 09 77 72 69 74 65 ' ');......write
2510: 70 28 70 2e 4c 2e 44 2c 20 28 72 6f 63 6b 3d 3d p(p.L.D, (rock==
2520: 27 40 27 26 26 74 68 69 73 5b 70 2e 4c 2e 44 2e '@'&&this[p.L.D.
2530: 44 5d 21 3d 27 20 27 20 3f 20 27 5c 5c 27 20 3a D]!=' ' ? '\\' :
2540: 20 72 6f 63 6b 29 29 3b 0a 09 09 09 09 09 69 66 rock));......if
2550: 28 72 6f 62 6f 74 20 3d 3d 20 70 2e 4c 2e 44 2e (robot == p.L.D.
2560: 44 29 0a 09 09 09 09 09 09 64 65 61 64 3d 74 72 D).......dead=tr
2570: 75 65 3b 0a 09 09 09 09 7d 0a 09 09 09 7d 0a 09 ue;.....}....}..
2580: 09 09 65 6c 73 65 20 69 66 28 74 68 69 73 5b 70 ..else if(this[p
2590: 5d 3d 3d 27 57 27 29 20 7b 0a 09 09 09 09 69 66 ]=='W') {.....if
25a0: 28 68 69 67 65 5f 64 61 79 29 20 7b 0a 09 09 09 (hige_day) {....
25b0: 09 09 66 6f 72 28 69 6e 74 20 64 79 3d 2d 31 3b ..for(int dy=-1;
25c0: 20 64 79 3c 3d 2b 31 3b 20 2b 2b 64 79 29 0a 09 dy<=+1; ++dy)..
25d0: 09 09 09 09 66 6f 72 28 69 6e 74 20 64 78 3d 2d ....for(int dx=-
25e0: 31 3b 20 64 78 3c 3d 2b 31 3b 20 2b 2b 64 78 29 1; dx<=+1; ++dx)
25f0: 0a 09 09 09 09 09 09 69 66 28 74 68 69 73 5b 70 .......if(this[p
2600: 2e 79 2b 64 79 2c 70 2e 78 2b 64 78 5d 20 3d 3d .y+dy,p.x+dx] ==
2610: 20 27 20 27 29 20 7b 0a 09 09 09 09 09 09 09 77 ' ') {........w
2620: 72 69 74 65 28 70 2e 79 2b 64 79 2c 70 2e 78 2b rite(p.y+dy,p.x+
2630: 64 78 2c 27 57 27 29 3b 0a 09 09 09 09 09 09 09 dx,'W');........
2640: 69 66 28 72 6f 62 6f 74 2e 79 3d 3d 70 2e 79 2b if(robot.y==p.y+
2650: 64 79 2d 31 20 26 26 20 72 6f 62 6f 74 2e 78 3d dy-1 && robot.x=
2660: 3d 70 2e 78 2b 64 78 29 0a 09 09 09 09 09 09 09 =p.x+dx)........
2670: 09 64 65 61 64 20 3d 20 66 61 6c 73 65 3b 20 2f .dead = false; /
2680: 2f 20 67 75 61 72 64 65 64 20 62 79 20 68 69 67 / guarded by hig
2690: 65 21 0a 09 09 09 09 09 09 7d 0a 09 09 09 09 7d e!.......}.....}
26a0: 0a 09 09 09 7d 0a 09 09 7d 0a 0a 09 09 72 65 74 ....}...}....ret
26b0: 75 72 6e 20 64 65 61 64 3b 0a 09 7d 0a 7d 0a 0a urn dead;..}.}..
26c0: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
26d0: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
26e0: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
26f0: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
2700: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
2710: 0a 0a 63 6c 61 73 73 20 47 61 6d 65 0a 7b 0a 09 ..class Game.{..
2720: 6d 69 78 69 6e 20 44 65 72 69 76 65 53 68 6f 77 mixin DeriveShow
2730: 3b 0a 0a 09 70 72 69 76 61 74 65 20 7b 0a 09 09 ;...private {...
2740: 4d 61 70 20 6d 61 70 5f 3b 0a 09 09 57 61 74 65 Map map_;...Wate
2750: 72 20 77 61 74 65 72 5f 3b 0a 09 09 48 69 67 65 r water_;...Hige
2760: 20 68 69 67 65 5f 3b 0a 09 09 54 72 61 6d 70 6f hige_;...Trampo
2770: 6c 69 6e 65 20 74 72 5f 3b 0a 09 09 69 6e 74 20 line tr_;...int
2780: 20 74 75 72 6e 20 3d 20 30 3b 0a 09 09 62 6f 6f turn = 0;...boo
2790: 6c 20 64 65 61 64 5f 20 3d 20 66 61 6c 73 65 3b l dead_ = false;
27a0: 0a 09 09 69 6e 74 20 20 75 6e 64 65 72 5f 77 61 ...int under_wa
27b0: 74 65 72 20 3d 20 30 3b 0a 09 7d 0a 0a 09 47 61 ter = 0;..}...Ga
27c0: 6d 65 20 63 6c 6f 6e 65 28 29 20 63 6f 6e 73 74 me clone() const
27d0: 20 7b 20 72 65 74 75 72 6e 20 6e 65 77 20 47 61 { return new Ga
27e0: 6d 65 28 74 68 69 73 29 3b 20 7d 0a 09 74 68 69 me(this); }..thi
27f0: 73 28 69 6e 20 47 61 6d 65 20 67 29 20 7b 0a 09 s(in Game g) {..
2800: 09 6d 61 70 5f 20 20 20 3d 20 67 2e 6d 61 70 5f .map_ = g.map_
2810: 2e 63 6c 6f 6e 65 28 29 3b 0a 09 09 77 61 74 65 .clone();...wate
2820: 72 5f 20 3d 20 67 2e 77 61 74 65 72 5f 2e 63 6c r_ = g.water_.cl
2830: 6f 6e 65 28 29 3b 0a 09 09 68 69 67 65 5f 20 20 one();...hige_
2840: 3d 20 67 2e 68 69 67 65 5f 2e 63 6c 6f 6e 65 28 = g.hige_.clone(
2850: 29 3b 0a 09 09 74 72 5f 20 20 20 20 3d 20 67 2e );...tr_ = g.
2860: 74 72 5f 2e 63 6c 6f 6e 65 28 29 3b 0a 09 09 74 tr_.clone();...t
2870: 75 72 6e 20 20 20 3d 20 67 2e 74 75 72 6e 3b 0a urn = g.turn;.
2880: 09 09 64 65 61 64 5f 20 20 3d 20 67 2e 64 65 61 ..dead_ = g.dea
2890: 64 5f 3b 0a 09 09 75 6e 64 65 72 5f 77 61 74 65 d_;...under_wate
28a0: 72 20 3d 20 67 2e 75 6e 64 65 72 5f 77 61 74 65 r = g.under_wate
28b0: 72 3b 0a 09 7d 0a 0a 09 74 68 69 73 28 46 69 6c r;..}...this(Fil
28c0: 65 20 69 6e 70 75 74 29 0a 09 7b 0a 09 09 73 74 e input)..{...st
28d0: 72 69 6e 67 5b 5d 20 20 20 20 20 20 20 72 61 77 ring[] raw
28e0: 5f 64 61 74 61 3b 0a 09 09 73 74 72 69 6e 67 5b _data;...string[
28f0: 73 74 72 69 6e 67 5d 20 70 61 72 61 6d 73 3b 0a string] params;.
2900: 0a 09 09 2f 2f 20 52 61 77 20 6d 61 70 20 64 61 ...// Raw map da
2910: 74 61 3b 20 72 65 61 64 20 75 6e 74 69 6c 20 65 ta; read until e
2920: 6d 70 74 79 20 6c 69 6e 65 2e 0a 09 09 66 6f 72 mpty line....for
2930: 28 73 74 72 69 6e 67 20 6c 69 6e 65 3b 20 21 28 (string line; !(
2940: 6c 69 6e 65 3d 69 6e 70 75 74 2e 72 65 61 64 6c line=input.readl
2950: 6e 28 29 2e 63 68 6f 6d 70 28 29 29 2e 65 6d 70 n().chomp()).emp
2960: 74 79 3b 20 29 0a 09 09 09 72 61 77 5f 64 61 74 ty; )....raw_dat
2970: 61 20 7e 3d 20 6c 69 6e 65 3b 0a 0a 09 09 2f 2f a ~= line;....//
2980: 20 41 64 64 69 74 69 6f 6e 61 6c 20 63 6f 6d 6d Additional comm
2990: 61 6e 64 73 3b 20 72 65 61 64 20 75 6e 74 69 6c ands; read until
29a0: 20 45 4f 46 2e 0a 09 09 63 68 61 72 5b 63 68 61 EOF....char[cha
29b0: 72 5d 20 74 72 61 6d 70 6f 3b 0a 09 09 66 6f 72 r] trampo;...for
29c0: 28 73 74 72 69 6e 67 20 6c 69 6e 65 3b 20 21 28 (string line; !(
29d0: 6c 69 6e 65 3d 69 6e 70 75 74 2e 72 65 61 64 6c line=input.readl
29e0: 6e 28 29 29 2e 65 6d 70 74 79 3b 20 29 20 7b 0a n()).empty; ) {.
29f0: 09 09 09 73 74 72 69 6e 67 5b 5d 20 73 73 20 3d ...string[] ss =
2a00: 20 6c 69 6e 65 2e 73 70 6c 69 74 28 29 3b 0a 09 line.split();..
2a10: 09 09 69 66 28 20 73 73 2e 6c 65 6e 67 74 68 20 ..if( ss.length
2a20: 3d 3d 20 32 20 29 0a 09 09 09 09 70 61 72 61 6d == 2 ).....param
2a30: 73 5b 73 73 5b 30 5d 5d 20 3d 20 73 73 5b 31 5d s[ss[0]] = ss[1]
2a40: 3b 0a 09 09 09 69 66 28 20 73 73 2e 6c 65 6e 67 ;....if( ss.leng
2a50: 74 68 20 3d 3d 20 34 20 26 26 20 73 73 5b 30 5d th == 4 && ss[0]
2a60: 3d 3d 22 54 72 61 6d 70 6f 6c 69 6e 65 22 20 26 =="Trampoline" &
2a70: 26 20 73 73 5b 32 5d 3d 3d 22 74 61 72 67 65 74 & ss[2]=="target
2a80: 73 22 20 29 0a 09 09 09 09 74 72 61 6d 70 6f 5b s" ).....trampo[
2a90: 73 73 5b 31 5d 5b 30 5d 5d 20 3d 20 73 73 5b 33 ss[1][0]] = ss[3
2aa0: 5d 5b 30 5d 3b 0a 09 09 7d 0a 0a 09 09 74 68 69 ][0];...}....thi
2ab0: 73 2e 6d 61 70 5f 20 20 20 3d 20 6e 65 77 20 4d s.map_ = new M
2ac0: 61 70 28 72 61 77 5f 64 61 74 61 2c 20 70 61 72 ap(raw_data, par
2ad0: 61 6d 73 2c 20 74 72 61 6d 70 6f 29 3b 0a 09 09 ams, trampo);...
2ae0: 74 68 69 73 2e 77 61 74 65 72 5f 20 3d 20 57 61 this.water_ = Wa
2af0: 74 65 72 2e 6c 6f 61 64 28 70 61 72 61 6d 73 29 ter.load(params)
2b00: 3b 0a 09 09 74 68 69 73 2e 68 69 67 65 5f 20 20 ;...this.hige_
2b10: 3d 20 48 69 67 65 2e 6c 6f 61 64 28 70 61 72 61 = Hige.load(para
2b20: 6d 73 29 3b 0a 09 09 74 68 69 73 2e 74 72 5f 20 ms);...this.tr_
2b30: 20 20 20 3d 20 6e 65 77 20 54 72 61 6d 70 6f 6c = new Trampol
2b40: 69 6e 65 28 74 68 69 73 2e 6d 61 70 2c 20 74 72 ine(this.map, tr
2b50: 61 6d 70 6f 29 3b 0a 09 7d 0a 0a 09 76 6f 69 64 ampo);..}...void
2b60: 20 63 6f 6d 6d 61 6e 64 28 63 68 61 72 20 63 29 command(char c)
2b70: 0a 09 7b 0a 09 09 61 73 73 65 72 74 28 63 20 21 ..{...assert(c !
2b80: 3d 20 27 41 27 29 3b 0a 09 09 69 66 28 64 65 61 = 'A');...if(dea
2b90: 64 20 7c 7c 20 63 6c 65 61 72 65 64 29 0a 09 09 d || cleared)...
2ba0: 09 72 65 74 75 72 6e 3b 0a 0a 09 09 2f 2f 20 54 .return;....// T
2bb0: 4f 44 4f 3a 20 63 6c 61 72 69 66 79 20 74 68 65 ODO: clarify the
2bc0: 20 65 76 65 6e 74 20 6f 72 64 65 72 0a 09 09 62 event order...b
2bd0: 6f 6f 6c 20 64 65 61 64 5f 6e 6f 77 20 3d 20 6d ool dead_now = m
2be0: 61 70 5f 2e 63 6f 6d 6d 61 6e 64 28 63 2c 20 74 ap_.command(c, t
2bf0: 75 72 6e 2c 20 68 69 67 65 2e 69 73 5f 67 72 6f urn, hige.is_gro
2c00: 77 69 6e 67 5f 74 75 72 6e 28 74 75 72 6e 29 2c wing_turn(turn),
2c10: 20 74 72 29 3b 0a 09 09 69 66 28 20 64 65 61 64 tr);...if( dead
2c20: 5f 6e 6f 77 20 29 0a 09 09 09 64 65 61 64 5f 20 _now )....dead_
2c30: 3d 20 74 72 75 65 3b 0a 09 09 69 66 28 21 6d 61 = true;...if(!ma
2c40: 70 2e 63 6c 65 61 72 65 64 29 20 7b 0a 09 09 09 p.cleared) {....
2c50: 69 66 28 20 6d 61 70 2e 72 6f 62 6f 74 2e 79 20 if( map.robot.y
2c60: 3c 3d 20 77 61 74 65 72 5f 6c 65 76 65 6c 20 29 <= water_level )
2c70: 0a 09 09 09 09 2b 2b 75 6e 64 65 72 5f 77 61 74 .....++under_wat
2c80: 65 72 3b 0a 09 09 09 65 6c 73 65 0a 09 09 09 09 er;....else.....
2c90: 75 6e 64 65 72 5f 77 61 74 65 72 20 3d 20 30 3b under_water = 0;
2ca0: 0a 09 09 09 69 66 28 20 75 6e 64 65 72 5f 77 61 ....if( under_wa
2cb0: 74 65 72 20 3e 20 6d 61 70 2e 77 61 74 65 72 70 ter > map.waterp
2cc0: 72 6f 6f 66 20 29 0a 09 09 09 09 64 65 61 64 5f roof ).....dead_
2cd0: 20 3d 20 74 72 75 65 3b 0a 09 09 7d 0a 09 09 74 = true;...}...t
2ce0: 75 72 6e 20 2b 3d 20 31 3b 0a 09 7d 0a 0a 40 70 urn += 1;..}..@p
2cf0: 72 6f 70 65 72 74 79 20 63 6f 6e 73 74 3a 0a 09 roperty const:..
2d00: 6c 6f 6e 67 20 73 63 6f 72 65 28 29 20 20 20 20 long score()
2d10: 20 20 20 20 20 20 20 7b 20 72 65 74 75 72 6e 20 { return
2d20: 6d 61 70 2e 63 6f 6c 6c 65 63 74 65 64 5f 6c 61 map.collected_la
2d30: 6d 62 64 61 2a 28 64 65 61 64 3f 32 35 4c 3a 63 mbda*(dead?25L:c
2d40: 6c 65 61 72 65 64 3f 37 35 4c 3a 35 30 4c 29 2d leared?75L:50L)-
2d50: 74 75 72 6e 3b 20 7d 0a 09 69 6e 74 20 77 61 74 turn; }..int wat
2d60: 65 72 5f 6c 65 76 65 6c 28 29 20 20 20 20 20 20 er_level()
2d70: 7b 20 72 65 74 75 72 6e 20 77 61 74 65 72 2e 6c { return water.l
2d80: 65 76 65 6c 28 74 75 72 6e 29 3b 20 7d 0a 09 69 evel(turn); }..i
2d90: 6e 74 20 77 61 74 65 72 5f 75 6e 74 69 6c 5f 72 nt water_until_r
2da0: 69 73 65 28 29 20 7b 20 72 65 74 75 72 6e 20 77 ise() { return w
2db0: 61 74 65 72 2e 75 6e 74 69 6c 5f 72 69 73 65 28 ater.until_rise(
2dc0: 74 75 72 6e 29 3b 20 7d 0a 09 69 6e 74 20 68 69 turn); }..int hi
2dd0: 67 65 5f 75 6e 74 69 6c 5f 72 69 73 65 28 29 20 ge_until_rise()
2de0: 20 7b 20 72 65 74 75 72 6e 20 68 69 67 65 2e 75 { return hige.u
2df0: 6e 74 69 6c 5f 72 69 73 65 28 74 75 72 6e 29 3b ntil_rise(turn);
2e00: 20 7d 0a 09 69 6e 74 20 68 70 28 29 20 20 20 20 }..int hp()
2e10: 20 20 20 20 20 20 20 20 20 20 20 7b 20 72 65 74 { ret
2e20: 75 72 6e 20 6d 61 70 2e 77 61 74 65 72 70 72 6f urn map.waterpro
2e30: 6f 66 20 2d 20 75 6e 64 65 72 5f 77 61 74 65 72 of - under_water
2e40: 3b 20 7d 0a 09 62 6f 6f 6c 20 63 6c 65 61 72 65 ; }..bool cleare
2e50: 64 28 29 20 20 20 20 20 20 20 20 20 7b 20 72 65 d() { re
2e60: 74 75 72 6e 20 6d 61 70 2e 63 6c 65 61 72 65 64 turn map.cleared
2e70: 3b 20 7d 0a 09 62 6f 6f 6c 20 64 65 61 64 28 29 ; }..bool dead()
2e80: 20 20 20 20 20 20 20 20 20 20 20 20 7b 20 72 65 { re
2e90: 74 75 72 6e 20 64 65 61 64 5f 3b 20 7d 0a 09 63 turn dead_; }..c
2ea0: 6f 6e 73 74 28 4d 61 70 29 20 20 20 20 20 20 20 onst(Map)
2eb0: 20 6d 61 70 28 29 20 20 20 7b 20 72 65 74 75 72 map() { retur
2ec0: 6e 20 6d 61 70 5f 3b 20 7d 0a 09 63 6f 6e 73 74 n map_; }..const
2ed0: 28 57 61 74 65 72 29 20 20 20 20 20 20 77 61 74 (Water) wat
2ee0: 65 72 28 29 20 7b 20 72 65 74 75 72 6e 20 77 61 er() { return wa
2ef0: 74 65 72 5f 3b 20 7d 0a 09 63 6f 6e 73 74 28 48 ter_; }..const(H
2f00: 69 67 65 29 20 20 20 20 20 20 20 68 69 67 65 28 ige) hige(
2f10: 29 20 20 7b 20 72 65 74 75 72 6e 20 68 69 67 65 ) { return hige
2f20: 5f 3b 20 7d 0a 09 63 6f 6e 73 74 28 54 72 61 6d _; }..const(Tram
2f30: 70 6f 6c 69 6e 65 29 20 74 72 28 29 20 20 20 20 poline) tr()
2f40: 7b 20 72 65 74 75 72 6e 20 74 72 5f 3b 20 7d 0a { return tr_; }.
2f50: 7d 0a }.