Hex Artifact Content
Not logged in

Artifact b141e39ade797d94d53cc3e064c09b5d5e96d70d:


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