Hex Artifact Content
Not logged in

Artifact fe18e86f2be2ed9515d5ee1dcda418d0b73a2cb6:


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 0a 09  .x+dx] == ' ')..
24b0: 09 09 09 09 09 09 77 72 69 74 65 28 70 2e 79 2b  ......write(p.y+
24c0: 64 79 2c 70 2e 78 2b 64 78 2c 27 57 27 29 3b 0a  dy,p.x+dx,'W');.
24d0: 09 09 09 09 7d 0a 09 09 09 7d 0a 09 09 7d 0a 0a  ....}....}...}..
24e0: 09 09 72 65 74 75 72 6e 20 64 65 61 64 3b 0a 09  ..return dead;..
24f0: 7d 0a 7d 0a 0a 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 2f 2f 2f 2f  ////////////////
2520: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
2530: 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f 2f  ////////////////
2540: 2f 2f 2f 2f 2f 0a 0a 63 6c 61 73 73 20 47 61 6d  /////..class Gam
2550: 65 0a 7b 0a 09 6d 69 78 69 6e 20 44 65 72 69 76  e.{..mixin Deriv
2560: 65 53 68 6f 77 3b 0a 0a 09 74 68 69 73 28 46 69  eShow;...this(Fi
2570: 6c 65 20 69 6e 70 75 74 29 0a 09 7b 0a 09 09 73  le input)..{...s
2580: 74 72 69 6e 67 5b 5d 20 20 20 20 20 20 20 72 61  tring[]       ra
2590: 77 5f 64 61 74 61 3b 0a 09 09 73 74 72 69 6e 67  w_data;...string
25a0: 5b 73 74 72 69 6e 67 5d 20 70 61 72 61 6d 73 3b  [string] params;
25b0: 0a 0a 09 09 2f 2f 20 52 61 77 20 6d 61 70 20 64  ....// Raw map d
25c0: 61 74 61 3b 20 72 65 61 64 20 75 6e 74 69 6c 20  ata; read until 
25d0: 65 6d 70 74 79 20 6c 69 6e 65 2e 0a 09 09 66 6f  empty line....fo
25e0: 72 28 73 74 72 69 6e 67 20 6c 69 6e 65 3b 20 21  r(string line; !
25f0: 28 6c 69 6e 65 3d 69 6e 70 75 74 2e 72 65 61 64  (line=input.read
2600: 6c 6e 28 29 2e 63 68 6f 6d 70 28 29 29 2e 65 6d  ln().chomp()).em
2610: 70 74 79 3b 20 29 0a 09 09 09 72 61 77 5f 64 61  pty; )....raw_da
2620: 74 61 20 7e 3d 20 6c 69 6e 65 3b 0a 0a 09 09 2f  ta ~= line;..../
2630: 2f 20 41 64 64 69 74 69 6f 6e 61 6c 20 63 6f 6d  / Additional com
2640: 6d 61 6e 64 73 3b 20 72 65 61 64 20 75 6e 74 69  mands; read unti
2650: 6c 20 45 4f 46 2e 0a 09 09 63 68 61 72 5b 63 68  l EOF....char[ch
2660: 61 72 5d 20 74 72 61 6d 70 6f 3b 0a 09 09 66 6f  ar] trampo;...fo
2670: 72 28 73 74 72 69 6e 67 20 6c 69 6e 65 3b 20 21  r(string line; !
2680: 28 6c 69 6e 65 3d 69 6e 70 75 74 2e 72 65 61 64  (line=input.read
2690: 6c 6e 28 29 29 2e 65 6d 70 74 79 3b 20 29 20 7b  ln()).empty; ) {
26a0: 0a 09 09 09 73 74 72 69 6e 67 5b 5d 20 73 73 20  ....string[] ss 
26b0: 3d 20 6c 69 6e 65 2e 73 70 6c 69 74 28 29 3b 0a  = line.split();.
26c0: 09 09 09 69 66 28 20 73 73 2e 6c 65 6e 67 74 68  ...if( ss.length
26d0: 20 3d 3d 20 32 20 29 0a 09 09 09 09 70 61 72 61   == 2 ).....para
26e0: 6d 73 5b 73 73 5b 30 5d 5d 20 3d 20 73 73 5b 31  ms[ss[0]] = ss[1
26f0: 5d 3b 0a 09 09 09 69 66 28 20 73 73 2e 6c 65 6e  ];....if( ss.len
2700: 67 74 68 20 3d 3d 20 34 20 26 26 20 73 73 5b 30  gth == 4 && ss[0
2710: 5d 3d 3d 22 54 72 61 6d 70 6f 6c 69 6e 65 22 20  ]=="Trampoline" 
2720: 26 26 20 73 73 5b 32 5d 3d 3d 22 74 61 72 67 65  && ss[2]=="targe
2730: 74 73 22 20 29 0a 09 09 09 09 74 72 61 6d 70 6f  ts" ).....trampo
2740: 5b 73 73 5b 31 5d 5b 30 5d 5d 20 3d 20 73 73 5b  [ss[1][0]] = ss[
2750: 33 5d 5b 30 5d 3b 0a 09 09 7d 0a 0a 09 09 74 68  3][0];...}....th
2760: 69 73 2e 6d 61 70 20 20 20 3d 20 6e 65 77 20 4d  is.map   = new M
2770: 61 70 28 72 61 77 5f 64 61 74 61 2c 20 70 61 72  ap(raw_data, par
2780: 61 6d 73 2c 20 74 72 61 6d 70 6f 29 3b 0a 09 09  ams, trampo);...
2790: 74 68 69 73 2e 77 61 74 65 72 20 3d 20 57 61 74  this.water = Wat
27a0: 65 72 2e 6c 6f 61 64 28 70 61 72 61 6d 73 29 3b  er.load(params);
27b0: 0a 09 09 74 68 69 73 2e 68 69 67 65 20 20 3d 20  ...this.hige  = 
27c0: 48 69 67 65 2e 6c 6f 61 64 28 70 61 72 61 6d 73  Hige.load(params
27d0: 29 3b 0a 09 09 74 68 69 73 2e 74 72 20 20 20 20  );...this.tr    
27e0: 3d 20 6e 65 77 20 54 72 61 6d 70 6f 6c 69 6e 65  = new Trampoline
27f0: 28 74 68 69 73 2e 6d 61 70 2c 20 74 72 61 6d 70  (this.map, tramp
2800: 6f 29 3b 0a 09 7d 0a 0a 09 47 61 6d 65 20 63 6c  o);..}...Game cl
2810: 6f 6e 65 28 29 20 63 6f 6e 73 74 20 7b 20 72 65  one() const { re
2820: 74 75 72 6e 20 6e 65 77 20 47 61 6d 65 28 74 68  turn new Game(th
2830: 69 73 29 3b 20 7d 0a 09 74 68 69 73 28 69 6e 20  is); }..this(in 
2840: 47 61 6d 65 20 67 29 20 7b 0a 09 09 6d 61 70 20  Game g) {...map 
2850: 20 20 3d 20 67 2e 6d 61 70 2e 63 6c 6f 6e 65 28    = g.map.clone(
2860: 29 3b 0a 09 09 77 61 74 65 72 20 3d 20 67 2e 77  );...water = g.w
2870: 61 74 65 72 2e 63 6c 6f 6e 65 28 29 3b 0a 09 09  ater.clone();...
2880: 68 69 67 65 20 20 3d 20 67 2e 68 69 67 65 2e 63  hige  = g.hige.c
2890: 6c 6f 6e 65 28 29 3b 0a 09 09 74 72 20 20 20 20  lone();...tr    
28a0: 3d 20 67 2e 74 72 2e 63 6c 6f 6e 65 28 29 3b 0a  = g.tr.clone();.
28b0: 09 09 74 75 72 6e 20 20 3d 20 67 2e 74 75 72 6e  ..turn  = g.turn
28c0: 3b 0a 09 09 64 65 61 64 20 20 3d 20 67 2e 64 65  ;...dead  = g.de
28d0: 61 64 3b 0a 09 09 75 6e 64 65 72 5f 77 61 74 65  ad;...under_wate
28e0: 72 20 3d 20 67 2e 75 6e 64 65 72 5f 77 61 74 65  r = g.under_wate
28f0: 72 3b 0a 09 7d 0a 0a 09 76 6f 69 64 20 63 6f 6d  r;..}...void com
2900: 6d 61 6e 64 28 63 68 61 72 20 63 29 0a 09 7b 0a  mand(char c)..{.
2910: 09 09 61 73 73 65 72 74 28 63 20 21 3d 20 27 41  ..assert(c != 'A
2920: 27 29 3b 0a 09 09 69 66 28 64 65 61 64 20 7c 7c  ');...if(dead ||
2930: 20 63 6c 65 61 72 65 64 29 0a 09 09 09 72 65 74   cleared)....ret
2940: 75 72 6e 3b 0a 0a 09 09 2f 2f 20 54 4f 44 4f 3a  urn;....// TODO:
2950: 20 63 6c 61 72 69 66 79 20 74 68 65 20 65 76 65   clarify the eve
2960: 6e 74 20 6f 72 64 65 72 0a 09 09 62 6f 6f 6c 20  nt order...bool 
2970: 64 65 61 64 5f 6e 6f 77 20 3d 20 6d 61 70 2e 63  dead_now = map.c
2980: 6f 6d 6d 61 6e 64 28 63 2c 20 74 75 72 6e 2c 20  ommand(c, turn, 
2990: 68 69 67 65 2e 69 73 5f 67 72 6f 77 69 6e 67 5f  hige.is_growing_
29a0: 74 75 72 6e 28 74 75 72 6e 29 2c 20 74 72 29 3b  turn(turn), tr);
29b0: 0a 09 09 69 66 28 20 64 65 61 64 5f 6e 6f 77 20  ...if( dead_now 
29c0: 29 0a 09 09 09 64 65 61 64 20 3d 20 74 72 75 65  )....dead = true
29d0: 3b 0a 09 09 69 66 28 21 6d 61 70 2e 63 6c 65 61  ;...if(!map.clea
29e0: 72 65 64 29 20 7b 0a 09 09 09 69 66 28 20 6d 61  red) {....if( ma
29f0: 70 2e 72 6f 62 6f 74 2e 79 20 3c 3d 20 77 61 74  p.robot.y <= wat
2a00: 65 72 5f 6c 65 76 65 6c 20 29 0a 09 09 09 09 2b  er_level ).....+
2a10: 2b 75 6e 64 65 72 5f 77 61 74 65 72 3b 0a 09 09  +under_water;...
2a20: 09 65 6c 73 65 0a 09 09 09 09 75 6e 64 65 72 5f  .else.....under_
2a30: 77 61 74 65 72 20 3d 20 30 3b 0a 09 09 09 69 66  water = 0;....if
2a40: 28 20 75 6e 64 65 72 5f 77 61 74 65 72 20 3e 20  ( under_water > 
2a50: 6d 61 70 2e 77 61 74 65 72 70 72 6f 6f 66 20 29  map.waterproof )
2a60: 0a 09 09 09 09 64 65 61 64 20 3d 20 74 72 75 65  .....dead = true
2a70: 3b 0a 09 09 7d 0a 09 09 74 75 72 6e 20 2b 3d 20  ;...}...turn += 
2a80: 31 3b 0a 09 7d 0a 0a 09 4d 61 70 20 6d 61 70 3b  1;..}...Map map;
2a90: 0a 09 57 61 74 65 72 20 77 61 74 65 72 3b 0a 09  ..Water water;..
2aa0: 48 69 67 65 20 68 69 67 65 3b 0a 09 54 72 61 6d  Hige hige;..Tram
2ab0: 70 6f 6c 69 6e 65 20 74 72 3b 0a 09 69 6e 74 20  poline tr;..int 
2ac0: 20 74 75 72 6e 20 3d 20 30 3b 0a 09 62 6f 6f 6c   turn = 0;..bool
2ad0: 20 64 65 61 64 20 3d 20 66 61 6c 73 65 3b 0a 09   dead = false;..
2ae0: 69 6e 74 20 20 75 6e 64 65 72 5f 77 61 74 65 72  int  under_water
2af0: 20 3d 20 30 3b 0a 09 2f 2f 20 54 4f 44 4f 3a 20   = 0;..// TODO: 
2b00: 77 68 65 6e 20 61 64 64 69 6e 67 20 6d 65 6d 62  when adding memb
2b10: 65 72 73 2c 20 74 61 6b 65 20 63 61 72 65 20 6f  ers, take care o
2b20: 66 20 63 6c 6f 6e 65 28 29 2e 0a 09 2f 2f 20 54  f clone()...// T
2b30: 4f 44 4f 3a 20 66 69 78 20 74 68 69 73 20 70 6f  ODO: fix this po
2b40: 6f 72 20 64 65 73 69 67 6e 2e 0a 0a 40 70 72 6f  or design...@pro
2b50: 70 65 72 74 79 20 63 6f 6e 73 74 3a 0a 09 6c 6f  perty const:..lo
2b60: 6e 67 20 73 63 6f 72 65 28 29 20 20 20 20 20 20  ng score()      
2b70: 20 20 20 20 20 7b 20 72 65 74 75 72 6e 20 6d 61       { return ma
2b80: 70 2e 63 6f 6c 6c 65 63 74 65 64 5f 6c 61 6d 62  p.collected_lamb
2b90: 64 61 2a 28 64 65 61 64 3f 32 35 4c 3a 63 6c 65  da*(dead?25L:cle
2ba0: 61 72 65 64 3f 37 35 4c 3a 35 30 4c 29 2d 74 75  ared?75L:50L)-tu
2bb0: 72 6e 3b 20 7d 0a 09 69 6e 74 20 77 61 74 65 72  rn; }..int water
2bc0: 5f 6c 65 76 65 6c 28 29 20 20 20 20 20 20 7b 20  _level()      { 
2bd0: 72 65 74 75 72 6e 20 77 61 74 65 72 2e 6c 65 76  return water.lev
2be0: 65 6c 28 74 75 72 6e 29 3b 20 7d 0a 09 69 6e 74  el(turn); }..int
2bf0: 20 77 61 74 65 72 5f 75 6e 74 69 6c 5f 72 69 73   water_until_ris
2c00: 65 28 29 20 7b 20 72 65 74 75 72 6e 20 77 61 74  e() { return wat
2c10: 65 72 2e 75 6e 74 69 6c 5f 72 69 73 65 28 74 75  er.until_rise(tu
2c20: 72 6e 29 3b 20 7d 0a 09 69 6e 74 20 68 69 67 65  rn); }..int hige
2c30: 5f 75 6e 74 69 6c 5f 72 69 73 65 28 29 20 20 7b  _until_rise()  {
2c40: 20 72 65 74 75 72 6e 20 68 69 67 65 2e 75 6e 74   return hige.unt
2c50: 69 6c 5f 72 69 73 65 28 74 75 72 6e 29 3b 20 7d  il_rise(turn); }
2c60: 0a 09 69 6e 74 20 68 70 28 29 20 20 20 20 20 20  ..int hp()      
2c70: 20 20 20 20 20 20 20 20 20 7b 20 72 65 74 75 72           { retur
2c80: 6e 20 6d 61 70 2e 77 61 74 65 72 70 72 6f 6f 66  n map.waterproof
2c90: 20 2d 20 75 6e 64 65 72 5f 77 61 74 65 72 3b 20   - under_water; 
2ca0: 7d 0a 09 62 6f 6f 6c 20 63 6c 65 61 72 65 64 28  }..bool cleared(
2cb0: 29 20 20 20 20 20 20 20 20 20 7b 20 72 65 74 75  )         { retu
2cc0: 72 6e 20 6d 61 70 2e 63 6c 65 61 72 65 64 3b 20  rn map.cleared; 
2cd0: 7d 0a 7d 0a                                      }.}.