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 09 6d 61 79 5f 75 70 64 +dx);....may_upd
1d40: 61 74 65 20 7e 3d 20 6e 65 77 20 50 6f 73 28 79 ate ~= new Pos(y
1d50: 2b 64 79 2a 32 2c 78 2b 64 78 2a 32 29 3b 0a 09 +dy*2,x+dx*2);..
1d60: 09 7d 20 65 6c 73 65 20 69 66 28 27 41 27 3c 3d .} else if('A'<=
1d70: 74 68 69 73 5b 79 2b 64 79 2c 78 2b 64 78 5d 20 this[y+dy,x+dx]
1d80: 26 26 20 74 68 69 73 5b 79 2b 64 79 2c 78 2b 64 && this[y+dy,x+d
1d90: 78 5d 3c 3d 27 49 27 29 20 7b 0a 09 09 09 74 68 x]<='I') {....th
1da0: 69 73 5b 79 2c 78 5d 3d 27 20 27 3b 0a 09 09 09 is[y,x]=' ';....
1db0: 50 6f 73 20 74 70 20 3d 20 74 72 2e 74 61 72 67 Pos tp = tr.targ
1dc0: 65 74 5f 70 6f 73 28 74 68 69 73 5b 79 2b 64 79 et_pos(this[y+dy
1dd0: 2c 78 2b 64 78 5d 29 3b 0a 09 09 09 66 6f 72 65 ,x+dx]);....fore
1de0: 61 63 68 28 70 3b 20 74 72 2e 73 6f 75 72 63 65 ach(p; tr.source
1df0: 5f 70 6f 73 28 74 68 69 73 5b 74 70 5d 29 29 20 _pos(this[tp]))
1e00: 7b 0a 09 09 09 09 65 6d 70 74 69 66 69 65 64 28 {.....emptified(
1e10: 70 29 3b 0a 09 09 09 09 74 68 69 73 5b 70 5d 20 p);.....this[p]
1e20: 3d 20 27 20 27 3b 0a 09 09 09 7d 0a 09 09 09 74 = ' ';....}....t
1e30: 68 69 73 5b 74 70 5d 20 3d 20 27 52 27 3b 0a 09 his[tp] = 'R';..
1e40: 09 09 72 6f 62 6f 74 20 3d 20 74 70 3b 0a 09 09 ..robot = tp;...
1e50: 7d 0a 09 09 72 65 74 75 72 6e 20 75 70 64 61 74 }...return updat
1e60: 65 28 68 69 67 65 5f 64 61 79 29 3b 0a 09 7d 0a e(hige_day);..}.
1e70: 0a 09 62 6f 6f 6c 20 75 70 64 61 74 65 28 62 6f ..bool update(bo
1e80: 6f 6c 20 68 69 67 65 5f 64 61 79 29 0a 09 7b 0a ol hige_day)..{.
1e90: 09 09 2f 2f 20 57 72 69 74 65 20 61 66 74 65 72 ..// Write after
1ea0: 20 61 6c 6c 20 74 68 65 20 75 70 64 61 74 65 73 all the updates
1eb0: 20 61 72 65 20 70 72 6f 63 65 73 73 65 64 2e 0a are processed..
1ec0: 09 09 54 75 70 6c 65 21 28 69 6e 74 2c 69 6e 74 ..Tuple!(int,int
1ed0: 2c 63 68 61 72 29 5b 5d 20 77 72 69 74 65 5f 62 ,char)[] write_b
1ee0: 75 66 66 65 72 3b 0a 09 09 76 6f 69 64 20 77 72 uffer;...void wr
1ef0: 69 74 65 28 69 6e 74 20 79 2c 20 69 6e 74 20 78 ite(int y, int x
1f00: 2c 20 63 68 61 72 20 63 29 20 7b 20 77 72 69 74 , char c) { writ
1f10: 65 5f 62 75 66 66 65 72 20 7e 3d 20 74 75 70 6c e_buffer ~= tupl
1f20: 65 28 79 2c 78 2c 63 29 3b 20 7d 0a 09 09 76 6f e(y,x,c); }...vo
1f30: 69 64 20 77 72 69 74 65 70 28 50 6f 73 20 70 2c id writep(Pos p,
1f40: 20 63 68 61 72 20 63 29 20 7b 20 77 72 69 74 65 char c) { write
1f50: 5f 62 75 66 66 65 72 20 7e 3d 20 74 75 70 6c 65 _buffer ~= tuple
1f60: 28 30 2b 70 2e 79 2c 30 2b 70 2e 78 2c 63 29 3b (0+p.y,0+p.x,c);
1f70: 20 7d 0a 09 09 73 63 6f 70 65 28 65 78 69 74 29 }...scope(exit)
1f80: 20 7b 0a 09 09 09 6d 61 79 5f 75 70 64 61 74 65 {....may_update
1f90: 2e 6c 65 6e 67 74 68 20 3d 20 30 3b 0a 09 09 09 .length = 0;....
1fa0: 66 6f 72 65 61 63 68 28 77 72 3b 20 77 72 69 74 foreach(wr; writ
1fb0: 65 5f 62 75 66 66 65 72 29 20 7b 0a 09 09 09 09 e_buffer) {.....
1fc0: 74 68 69 73 5b 77 72 5b 30 5d 2c 77 72 5b 31 5d this[wr[0],wr[1]
1fd0: 5d 20 3d 20 77 72 5b 32 5d 3b 0a 09 09 09 09 69 ] = wr[2];.....i
1fe0: 66 28 72 6f 63 6b 79 28 77 72 5b 32 5d 29 29 0a f(rocky(wr[2])).
1ff0: 09 09 09 09 09 6d 61 79 5f 75 70 64 61 74 65 20 .....may_update
2000: 7e 3d 20 6e 65 77 20 50 6f 73 28 77 72 5b 30 5d ~= new Pos(wr[0]
2010: 2c 77 72 5b 31 5d 29 3b 0a 09 09 09 09 69 66 28 ,wr[1]);.....if(
2020: 77 72 5b 32 5d 3d 3d 27 20 27 29 0a 09 09 09 09 wr[2]==' ').....
2030: 09 65 6d 70 74 69 66 69 65 64 28 6e 65 77 20 50 .emptified(new P
2040: 6f 73 28 77 72 5b 30 5d 2c 20 77 72 5b 31 5d 29 os(wr[0], wr[1])
2050: 29 3b 0a 09 09 09 7d 0a 09 09 7d 0a 0a 09 09 69 );....}...}....i
2060: 66 28 63 6f 6c 6c 65 63 74 65 64 5f 6c 61 6d 62 f(collected_lamb
2070: 64 61 20 3d 3d 20 74 6f 74 61 6c 5f 6c 61 6d 62 da == total_lamb
2080: 64 61 29 0a 09 09 09 69 66 28 74 68 69 73 5b 6c da)....if(this[l
2090: 69 66 74 5d 3d 3d 27 4c 27 29 0a 09 09 09 09 74 ift]=='L').....t
20a0: 68 69 73 5b 6c 69 66 74 5d 20 3d 20 27 4f 27 3b his[lift] = 'O';
20b0: 0a 0a 09 09 62 6f 6f 6c 20 64 65 61 64 20 3d 20 ....bool dead =
20c0: 66 61 6c 73 65 3b 0a 09 09 69 66 28 20 68 69 67 false;...if( hig
20d0: 65 5f 64 61 79 20 29 20 7b 0a 09 09 09 66 6f 72 e_day ) {....for
20e0: 28 69 6e 74 20 79 3d 31 3b 20 79 3c 3d 48 3b 20 (int y=1; y<=H;
20f0: 2b 2b 79 29 0a 09 09 09 66 6f 72 28 69 6e 74 20 ++y)....for(int
2100: 78 3d 31 3b 20 78 3c 3d 57 3b 20 2b 2b 78 29 0a x=1; x<=W; ++x).
2110: 09 09 09 09 69 66 28 74 68 69 73 5b 79 2c 78 5d ....if(this[y,x]
2120: 3d 3d 27 57 27 29 0a 09 09 09 09 09 6d 61 79 5f =='W')......may_
2130: 75 70 64 61 74 65 20 7e 3d 20 6e 65 77 20 50 6f update ~= new Po
2140: 73 28 79 2c 78 29 3b 0a 09 09 7d 0a 0a 09 09 73 s(y,x);...}....s
2150: 6f 72 74 28 6d 61 79 5f 75 70 64 61 74 65 29 3b ort(may_update);
2160: 0a 09 09 66 6f 72 65 61 63 68 28 70 3b 20 6d 61 ...foreach(p; ma
2170: 79 5f 75 70 64 61 74 65 29 20 7b 0a 09 09 09 69 y_update) {....i
2180: 6e 74 20 79 20 3d 20 70 2e 79 2c 20 78 20 3d 20 nt y = p.y, x =
2190: 70 2e 78 3b 0a 09 09 09 63 68 61 72 20 72 6f 63 p.x;....char roc
21a0: 6b 20 3d 20 74 68 69 73 5b 70 5d 3b 0a 09 09 09 k = this[p];....
21b0: 69 66 28 72 6f 63 6b 79 28 74 68 69 73 5b 70 5d if(rocky(this[p]
21c0: 29 29 20 7b 0a 09 09 09 09 69 66 28 74 68 69 73 )) {.....if(this
21d0: 5b 70 2e 44 5d 3d 3d 27 20 27 29 20 7b 0a 09 09 [p.D]==' ') {...
21e0: 09 09 09 77 72 69 74 65 70 28 70 2c 20 27 20 27 ...writep(p, ' '
21f0: 29 3b 0a 09 09 09 09 09 77 72 69 74 65 70 28 70 );......writep(p
2200: 2e 44 2c 20 28 72 6f 63 6b 3d 3d 27 40 27 26 26 .D, (rock=='@'&&
2210: 74 68 69 73 5b 70 2e 44 2e 44 5d 21 3d 27 20 27 this[p.D.D]!=' '
2220: 20 3f 20 27 5c 5c 27 20 3a 20 72 6f 63 6b 29 29 ? '\\' : rock))
2230: 3b 0a 09 09 09 09 09 69 66 28 72 6f 62 6f 74 20 ;......if(robot
2240: 3d 3d 20 70 2e 44 2e 44 29 0a 09 09 09 09 09 09 == p.D.D).......
2250: 64 65 61 64 3d 74 72 75 65 3b 0a 09 09 09 09 7d dead=true;.....}
2260: 0a 09 09 09 09 65 6c 73 65 20 69 66 28 28 72 6f .....else if((ro
2270: 63 6b 79 28 74 68 69 73 5b 70 2e 44 5d 29 20 7c cky(this[p.D]) |
2280: 7c 20 74 68 69 73 5b 70 2e 44 5d 3d 3d 27 5c 5c | this[p.D]=='\\
2290: 27 29 20 26 26 20 74 68 69 73 5b 70 2e 52 5d 3d ') && this[p.R]=
22a0: 3d 27 20 27 20 26 26 20 74 68 69 73 5b 70 2e 52 =' ' && this[p.R
22b0: 2e 44 5d 3d 3d 27 20 27 29 20 7b 0a 09 09 09 09 .D]==' ') {.....
22c0: 09 77 72 69 74 65 70 28 70 2c 20 27 20 27 29 3b .writep(p, ' ');
22d0: 0a 09 09 09 09 09 77 72 69 74 65 70 28 70 2e 52 ......writep(p.R
22e0: 2e 44 2c 28 72 6f 63 6b 3d 3d 27 40 27 26 26 74 .D,(rock=='@'&&t
22f0: 68 69 73 5b 70 2e 52 2e 44 2e 44 5d 21 3d 27 20 his[p.R.D.D]!='
2300: 27 20 3f 20 27 5c 5c 27 20 3a 20 72 6f 63 6b 29 ' ? '\\' : rock)
2310: 29 3b 0a 09 09 09 09 09 69 66 28 72 6f 62 6f 74 );......if(robot
2320: 20 3d 3d 20 70 2e 52 2e 44 2e 44 29 0a 09 09 09 == p.R.D.D)....
2330: 09 09 09 64 65 61 64 3d 74 72 75 65 3b 0a 09 09 ...dead=true;...
2340: 09 09 7d 0a 09 09 09 09 65 6c 73 65 20 69 66 28 ..}.....else if(
2350: 72 6f 63 6b 79 28 74 68 69 73 5b 70 2e 44 5d 29 rocky(this[p.D])
2360: 20 26 26 20 74 68 69 73 5b 70 2e 4c 5d 3d 3d 27 && this[p.L]=='
2370: 20 27 20 26 26 20 74 68 69 73 5b 70 2e 4c 2e 44 ' && this[p.L.D
2380: 5d 3d 3d 27 20 27 29 20 7b 0a 09 09 09 09 09 77 ]==' ') {......w
2390: 72 69 74 65 70 28 70 2c 20 27 20 27 29 3b 0a 09 ritep(p, ' ');..
23a0: 09 09 09 09 77 72 69 74 65 70 28 70 2e 4c 2e 44 ....writep(p.L.D
23b0: 2c 20 28 72 6f 63 6b 3d 3d 27 40 27 26 26 74 68 , (rock=='@'&&th
23c0: 69 73 5b 70 2e 4c 2e 44 2e 44 5d 21 3d 27 20 27 is[p.L.D.D]!=' '
23d0: 20 3f 20 27 5c 5c 27 20 3a 20 72 6f 63 6b 29 29 ? '\\' : rock))
23e0: 3b 0a 09 09 09 09 09 69 66 28 72 6f 62 6f 74 20 ;......if(robot
23f0: 3d 3d 20 70 2e 4c 2e 44 2e 44 29 0a 09 09 09 09 == p.L.D.D).....
2400: 09 09 64 65 61 64 3d 74 72 75 65 3b 0a 09 09 09 ..dead=true;....
2410: 09 7d 0a 09 09 09 7d 0a 09 09 09 65 6c 73 65 20 .}....}....else
2420: 69 66 28 74 68 69 73 5b 70 5d 3d 3d 27 57 27 29 if(this[p]=='W')
2430: 20 7b 0a 09 09 09 09 69 66 28 68 69 67 65 5f 64 {.....if(hige_d
2440: 61 79 29 20 7b 0a 09 09 09 09 09 66 6f 72 28 69 ay) {......for(i
2450: 6e 74 20 64 79 3d 2d 31 3b 20 64 79 3c 3d 2b 31 nt dy=-1; dy<=+1
2460: 3b 20 2b 2b 64 79 29 0a 09 09 09 09 09 66 6f 72 ; ++dy)......for
2470: 28 69 6e 74 20 64 78 3d 2d 31 3b 20 64 78 3c 3d (int dx=-1; dx<=
2480: 2b 31 3b 20 2b 2b 64 78 29 0a 09 09 09 09 09 09 +1; ++dx).......
2490: 69 66 28 74 68 69 73 5b 70 2e 79 2b 64 79 2c 70 if(this[p.y+dy,p
24a0: 2e 78 2b 64 78 5d 20 3d 3d 20 27 20 27 29 20 7b .x+dx] == ' ') {
24b0: 0a 09 09 09 09 09 09 09 77 72 69 74 65 28 70 2e ........write(p.
24c0: 79 2b 64 79 2c 70 2e 78 2b 64 78 2c 27 57 27 29 y+dy,p.x+dx,'W')
24d0: 3b 0a 09 09 09 09 09 09 09 69 66 28 72 6f 62 6f ;........if(robo
24e0: 74 2e 79 3d 3d 70 2e 79 2b 64 79 2d 31 20 26 26 t.y==p.y+dy-1 &&
24f0: 20 72 6f 62 6f 74 2e 78 3d 3d 70 2e 78 2b 64 78 robot.x==p.x+dx
2500: 29 0a 09 09 09 09 09 09 09 09 64 65 61 64 20 3d ).........dead =
2510: 20 66 61 6c 73 65 3b 20 2f 2f 20 67 75 61 72 64 false; // guard
2520: 65 64 20 62 79 20 68 69 67 65 21 0a 09 09 09 09 ed by hige!.....
2530: 09 09 7d 0a 09 09 09 09 7d 0a 09 09 09 7d 0a 09 ..}.....}....}..
2540: 09 7d 0a 0a 09 09 72 65 74 75 72 6e 20 64 65 61 .}....return dea
2550: 64 3b 0a 09 7d 0a 7d 0a 0a 2f 2f 2f 2f 2f 2f 2f d;..}.}..///////
2560: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
2570: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
2580: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
2590: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f ////////////////
25a0: 2f 2f 2f 2f 2f 2f 2f 2f 2f 0a 0a 63 6c 61 73 73 /////////..class
25b0: 20 47 61 6d 65 0a 7b 0a 09 6d 69 78 69 6e 20 44 Game.{..mixin D
25c0: 65 72 69 76 65 53 68 6f 77 3b 0a 0a 09 74 68 69 eriveShow;...thi
25d0: 73 28 46 69 6c 65 20 69 6e 70 75 74 29 0a 09 7b s(File input)..{
25e0: 0a 09 09 73 74 72 69 6e 67 5b 5d 20 20 20 20 20 ...string[]
25f0: 20 20 72 61 77 5f 64 61 74 61 3b 0a 09 09 73 74 raw_data;...st
2600: 72 69 6e 67 5b 73 74 72 69 6e 67 5d 20 70 61 72 ring[string] par
2610: 61 6d 73 3b 0a 0a 09 09 2f 2f 20 52 61 77 20 6d ams;....// Raw m
2620: 61 70 20 64 61 74 61 3b 20 72 65 61 64 20 75 6e ap data; read un
2630: 74 69 6c 20 65 6d 70 74 79 20 6c 69 6e 65 2e 0a til empty line..
2640: 09 09 66 6f 72 28 73 74 72 69 6e 67 20 6c 69 6e ..for(string lin
2650: 65 3b 20 21 28 6c 69 6e 65 3d 69 6e 70 75 74 2e e; !(line=input.
2660: 72 65 61 64 6c 6e 28 29 2e 63 68 6f 6d 70 28 29 readln().chomp()
2670: 29 2e 65 6d 70 74 79 3b 20 29 0a 09 09 09 72 61 ).empty; )....ra
2680: 77 5f 64 61 74 61 20 7e 3d 20 6c 69 6e 65 3b 0a w_data ~= line;.
2690: 0a 09 09 2f 2f 20 41 64 64 69 74 69 6f 6e 61 6c ...// Additional
26a0: 20 63 6f 6d 6d 61 6e 64 73 3b 20 72 65 61 64 20 commands; read
26b0: 75 6e 74 69 6c 20 45 4f 46 2e 0a 09 09 63 68 61 until EOF....cha
26c0: 72 5b 63 68 61 72 5d 20 74 72 61 6d 70 6f 3b 0a r[char] trampo;.
26d0: 09 09 66 6f 72 28 73 74 72 69 6e 67 20 6c 69 6e ..for(string lin
26e0: 65 3b 20 21 28 6c 69 6e 65 3d 69 6e 70 75 74 2e e; !(line=input.
26f0: 72 65 61 64 6c 6e 28 29 29 2e 65 6d 70 74 79 3b readln()).empty;
2700: 20 29 20 7b 0a 09 09 09 73 74 72 69 6e 67 5b 5d ) {....string[]
2710: 20 73 73 20 3d 20 6c 69 6e 65 2e 73 70 6c 69 74 ss = line.split
2720: 28 29 3b 0a 09 09 09 69 66 28 20 73 73 2e 6c 65 ();....if( ss.le
2730: 6e 67 74 68 20 3d 3d 20 32 20 29 0a 09 09 09 09 ngth == 2 ).....
2740: 70 61 72 61 6d 73 5b 73 73 5b 30 5d 5d 20 3d 20 params[ss[0]] =
2750: 73 73 5b 31 5d 3b 0a 09 09 09 69 66 28 20 73 73 ss[1];....if( ss
2760: 2e 6c 65 6e 67 74 68 20 3d 3d 20 34 20 26 26 20 .length == 4 &&
2770: 73 73 5b 30 5d 3d 3d 22 54 72 61 6d 70 6f 6c 69 ss[0]=="Trampoli
2780: 6e 65 22 20 26 26 20 73 73 5b 32 5d 3d 3d 22 74 ne" && ss[2]=="t
2790: 61 72 67 65 74 73 22 20 29 0a 09 09 09 09 74 72 argets" ).....tr
27a0: 61 6d 70 6f 5b 73 73 5b 31 5d 5b 30 5d 5d 20 3d ampo[ss[1][0]] =
27b0: 20 73 73 5b 33 5d 5b 30 5d 3b 0a 09 09 7d 0a 0a ss[3][0];...}..
27c0: 09 09 74 68 69 73 2e 6d 61 70 20 20 20 3d 20 6e ..this.map = n
27d0: 65 77 20 4d 61 70 28 72 61 77 5f 64 61 74 61 2c ew Map(raw_data,
27e0: 20 70 61 72 61 6d 73 2c 20 74 72 61 6d 70 6f 29 params, trampo)
27f0: 3b 0a 09 09 74 68 69 73 2e 77 61 74 65 72 20 3d ;...this.water =
2800: 20 57 61 74 65 72 2e 6c 6f 61 64 28 70 61 72 61 Water.load(para
2810: 6d 73 29 3b 0a 09 09 74 68 69 73 2e 68 69 67 65 ms);...this.hige
2820: 20 20 3d 20 48 69 67 65 2e 6c 6f 61 64 28 70 61 = Hige.load(pa
2830: 72 61 6d 73 29 3b 0a 09 09 74 68 69 73 2e 74 72 rams);...this.tr
2840: 20 20 20 20 3d 20 6e 65 77 20 54 72 61 6d 70 6f = new Trampo
2850: 6c 69 6e 65 28 74 68 69 73 2e 6d 61 70 2c 20 74 line(this.map, t
2860: 72 61 6d 70 6f 29 3b 0a 09 7d 0a 0a 09 47 61 6d rampo);..}...Gam
2870: 65 20 63 6c 6f 6e 65 28 29 20 63 6f 6e 73 74 20 e clone() const
2880: 7b 20 72 65 74 75 72 6e 20 6e 65 77 20 47 61 6d { return new Gam
2890: 65 28 74 68 69 73 29 3b 20 7d 0a 09 74 68 69 73 e(this); }..this
28a0: 28 69 6e 20 47 61 6d 65 20 67 29 20 7b 0a 09 09 (in Game g) {...
28b0: 6d 61 70 20 20 20 3d 20 67 2e 6d 61 70 2e 63 6c map = g.map.cl
28c0: 6f 6e 65 28 29 3b 0a 09 09 77 61 74 65 72 20 3d one();...water =
28d0: 20 67 2e 77 61 74 65 72 2e 63 6c 6f 6e 65 28 29 g.water.clone()
28e0: 3b 0a 09 09 68 69 67 65 20 20 3d 20 67 2e 68 69 ;...hige = g.hi
28f0: 67 65 2e 63 6c 6f 6e 65 28 29 3b 0a 09 09 74 72 ge.clone();...tr
2900: 20 20 20 20 3d 20 67 2e 74 72 2e 63 6c 6f 6e 65 = g.tr.clone
2910: 28 29 3b 0a 09 09 74 75 72 6e 20 20 3d 20 67 2e ();...turn = g.
2920: 74 75 72 6e 3b 0a 09 09 64 65 61 64 20 20 3d 20 turn;...dead =
2930: 67 2e 64 65 61 64 3b 0a 09 09 75 6e 64 65 72 5f g.dead;...under_
2940: 77 61 74 65 72 20 3d 20 67 2e 75 6e 64 65 72 5f water = g.under_
2950: 77 61 74 65 72 3b 0a 09 7d 0a 0a 09 76 6f 69 64 water;..}...void
2960: 20 63 6f 6d 6d 61 6e 64 28 63 68 61 72 20 63 29 command(char c)
2970: 0a 09 7b 0a 09 09 61 73 73 65 72 74 28 63 20 21 ..{...assert(c !
2980: 3d 20 27 41 27 29 3b 0a 09 09 69 66 28 64 65 61 = 'A');...if(dea
2990: 64 20 7c 7c 20 63 6c 65 61 72 65 64 29 0a 09 09 d || cleared)...
29a0: 09 72 65 74 75 72 6e 3b 0a 0a 09 09 2f 2f 20 54 .return;....// T
29b0: 4f 44 4f 3a 20 63 6c 61 72 69 66 79 20 74 68 65 ODO: clarify the
29c0: 20 65 76 65 6e 74 20 6f 72 64 65 72 0a 09 09 62 event order...b
29d0: 6f 6f 6c 20 64 65 61 64 5f 6e 6f 77 20 3d 20 6d ool dead_now = m
29e0: 61 70 2e 63 6f 6d 6d 61 6e 64 28 63 2c 20 74 75 ap.command(c, tu
29f0: 72 6e 2c 20 68 69 67 65 2e 69 73 5f 67 72 6f 77 rn, hige.is_grow
2a00: 69 6e 67 5f 74 75 72 6e 28 74 75 72 6e 29 2c 20 ing_turn(turn),
2a10: 74 72 29 3b 0a 09 09 69 66 28 20 64 65 61 64 5f tr);...if( dead_
2a20: 6e 6f 77 20 29 0a 09 09 09 64 65 61 64 20 3d 20 now )....dead =
2a30: 74 72 75 65 3b 0a 09 09 69 66 28 21 6d 61 70 2e true;...if(!map.
2a40: 63 6c 65 61 72 65 64 29 20 7b 0a 09 09 09 69 66 cleared) {....if
2a50: 28 20 6d 61 70 2e 72 6f 62 6f 74 2e 79 20 3c 3d ( map.robot.y <=
2a60: 20 77 61 74 65 72 5f 6c 65 76 65 6c 20 29 0a 09 water_level )..
2a70: 09 09 09 2b 2b 75 6e 64 65 72 5f 77 61 74 65 72 ...++under_water
2a80: 3b 0a 09 09 09 65 6c 73 65 0a 09 09 09 09 75 6e ;....else.....un
2a90: 64 65 72 5f 77 61 74 65 72 20 3d 20 30 3b 0a 09 der_water = 0;..
2aa0: 09 09 69 66 28 20 75 6e 64 65 72 5f 77 61 74 65 ..if( under_wate
2ab0: 72 20 3e 20 6d 61 70 2e 77 61 74 65 72 70 72 6f r > map.waterpro
2ac0: 6f 66 20 29 0a 09 09 09 09 64 65 61 64 20 3d 20 of ).....dead =
2ad0: 74 72 75 65 3b 0a 09 09 7d 0a 09 09 74 75 72 6e true;...}...turn
2ae0: 20 2b 3d 20 31 3b 0a 09 7d 0a 0a 09 4d 61 70 20 += 1;..}...Map
2af0: 6d 61 70 3b 0a 09 57 61 74 65 72 20 77 61 74 65 map;..Water wate
2b00: 72 3b 0a 09 48 69 67 65 20 68 69 67 65 3b 0a 09 r;..Hige hige;..
2b10: 54 72 61 6d 70 6f 6c 69 6e 65 20 74 72 3b 0a 09 Trampoline tr;..
2b20: 69 6e 74 20 20 74 75 72 6e 20 3d 20 30 3b 0a 09 int turn = 0;..
2b30: 62 6f 6f 6c 20 64 65 61 64 20 3d 20 66 61 6c 73 bool dead = fals
2b40: 65 3b 0a 09 69 6e 74 20 20 75 6e 64 65 72 5f 77 e;..int under_w
2b50: 61 74 65 72 20 3d 20 30 3b 0a 09 2f 2f 20 54 4f ater = 0;..// TO
2b60: 44 4f 3a 20 77 68 65 6e 20 61 64 64 69 6e 67 20 DO: when adding
2b70: 6d 65 6d 62 65 72 73 2c 20 74 61 6b 65 20 63 61 members, take ca
2b80: 72 65 20 6f 66 20 63 6c 6f 6e 65 28 29 2e 0a 09 re of clone()...
2b90: 2f 2f 20 54 4f 44 4f 3a 20 66 69 78 20 74 68 69 // TODO: fix thi
2ba0: 73 20 70 6f 6f 72 20 64 65 73 69 67 6e 2e 0a 0a s poor design...
2bb0: 40 70 72 6f 70 65 72 74 79 20 63 6f 6e 73 74 3a @property const:
2bc0: 0a 09 6c 6f 6e 67 20 73 63 6f 72 65 28 29 20 20 ..long score()
2bd0: 20 20 20 20 20 20 20 20 20 7b 20 72 65 74 75 72 { retur
2be0: 6e 20 6d 61 70 2e 63 6f 6c 6c 65 63 74 65 64 5f n map.collected_
2bf0: 6c 61 6d 62 64 61 2a 28 64 65 61 64 3f 32 35 4c lambda*(dead?25L
2c00: 3a 63 6c 65 61 72 65 64 3f 37 35 4c 3a 35 30 4c :cleared?75L:50L
2c10: 29 2d 74 75 72 6e 3b 20 7d 0a 09 69 6e 74 20 77 )-turn; }..int w
2c20: 61 74 65 72 5f 6c 65 76 65 6c 28 29 20 20 20 20 ater_level()
2c30: 20 20 7b 20 72 65 74 75 72 6e 20 77 61 74 65 72 { return water
2c40: 2e 6c 65 76 65 6c 28 74 75 72 6e 29 3b 20 7d 0a .level(turn); }.
2c50: 09 69 6e 74 20 77 61 74 65 72 5f 75 6e 74 69 6c .int water_until
2c60: 5f 72 69 73 65 28 29 20 7b 20 72 65 74 75 72 6e _rise() { return
2c70: 20 77 61 74 65 72 2e 75 6e 74 69 6c 5f 72 69 73 water.until_ris
2c80: 65 28 74 75 72 6e 29 3b 20 7d 0a 09 69 6e 74 20 e(turn); }..int
2c90: 68 69 67 65 5f 75 6e 74 69 6c 5f 72 69 73 65 28 hige_until_rise(
2ca0: 29 20 20 7b 20 72 65 74 75 72 6e 20 68 69 67 65 ) { return hige
2cb0: 2e 75 6e 74 69 6c 5f 72 69 73 65 28 74 75 72 6e .until_rise(turn
2cc0: 29 3b 20 7d 0a 09 69 6e 74 20 68 70 28 29 20 20 ); }..int hp()
2cd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 7b 20 72 { r
2ce0: 65 74 75 72 6e 20 6d 61 70 2e 77 61 74 65 72 70 eturn map.waterp
2cf0: 72 6f 6f 66 20 2d 20 75 6e 64 65 72 5f 77 61 74 roof - under_wat
2d00: 65 72 3b 20 7d 0a 09 62 6f 6f 6c 20 63 6c 65 61 er; }..bool clea
2d10: 72 65 64 28 29 20 20 20 20 20 20 20 20 20 7b 20 red() {
2d20: 72 65 74 75 72 6e 20 6d 61 70 2e 63 6c 65 61 72 return map.clear
2d30: 65 64 3b 20 7d 0a 7d 0a ed; }.}.