Hex Artifact Content
Not logged in

Artifact 51a9d789eb377d34d572305f0060f797cc2dcda8:


0000: 69 6d 70 6f 72 74 20 75 74 69 6c 3b 0a 69 6d 70  import util;.imp
0010: 6f 72 74 20 67 61 6d 65 3b 0a 69 6d 70 6f 72 74  ort game;.import
0020: 20 6f 75 74 70 75 74 3b 0a 69 6d 70 6f 72 74 20   output;.import 
0030: 64 72 69 76 65 72 3b 0a 69 6d 70 6f 72 74 20 73  driver;.import s
0040: 6f 6c 76 65 72 3b 0a 0a 63 6c 61 73 73 20 43 55  olver;..class CU
0050: 49 28 53 6f 6c 76 65 72 29 20 3a 20 47 61 6d 65  I(Solver) : Game
0060: 4f 62 73 65 72 76 65 72 0a 7b 0a 09 74 68 69 73  Observer.{..this
0070: 28 69 6e 20 47 61 6d 65 20 67 29 20 7b 20 73 6f  (in Game g) { so
0080: 6c 76 65 72 20 3d 20 6e 65 77 20 53 6f 6c 76 65  lver = new Solve
0090: 72 28 67 29 3b 20 7d 0a 09 53 6f 6c 76 65 72 20  r(g); }..Solver 
00a0: 73 6f 6c 76 65 72 3b 0a 09 62 6f 6f 6c 20 66 69  solver;..bool fi
00b0: 6e 3b 0a 09 6f 76 65 72 72 69 64 65 20 76 6f 69  n;..override voi
00c0: 64 20 6f 6e 5f 67 61 6d 65 5f 63 68 61 6e 67 65  d on_game_change
00d0: 64 28 63 68 61 72 20 63 2c 20 69 6e 20 47 61 6d  d(char c, in Gam
00e0: 65 20 67 2c 20 62 6f 6f 6c 20 66 69 6e 69 73 68  e g, bool finish
00f0: 65 64 29 20 7b 20 66 69 6e 20 3d 20 66 69 6e 69  ed) { fin = fini
0100: 73 68 65 64 3b 20 7d 0a 7d 0a 0a 63 6c 61 73 73  shed; }.}..class
0110: 20 46 6f 72 53 61 66 65 74 79 20 3a 20 47 61 6d   ForSafety : Gam
0120: 65 4f 62 73 65 72 76 65 72 0a 7b 0a 09 74 68 69  eObserver.{..thi
0130: 73 28 69 6e 20 47 61 6d 65 20 67 29 0a 09 7b 0a  s(in Game g)..{.
0140: 09 09 69 66 28 67 2e 6d 61 70 2e 57 2a 67 2e 6d  ..if(g.map.W*g.m
0150: 61 70 2e 48 20 3c 3d 20 31 30 30 30 29 0a 09 09  ap.H <= 1000)...
0160: 7b 0a 09 09 09 74 72 79 20 7b 0a 09 09 09 09 73  {....try {.....s
0170: 63 6f 72 65 5f 6c 6f 67 20 7e 3d 20 67 2e 73 63  core_log ~= g.sc
0180: 6f 72 65 3b 0a 09 09 09 09 61 75 74 6f 20 66 61  ore;.....auto fa
0190: 73 74 5f 73 6f 6c 76 65 72 20 3d 20 6e 65 77 20  st_solver = new 
01a0: 46 61 73 74 53 6f 6c 76 65 72 28 67 29 3b 0a 09  FastSolver(g);..
01b0: 09 09 09 66 6f 72 65 61 63 68 28 5f 3b 20 30 2e  ...foreach(_; 0.
01c0: 2e 67 2e 6d 61 70 2e 57 2a 67 2e 6d 61 70 2e 48  .g.map.W*g.map.H
01d0: 29 20 7b 0a 09 09 09 09 09 63 68 61 72 20 63 20  ) {......char c 
01e0: 3d 20 66 61 73 74 5f 73 6f 6c 76 65 72 2e 73 69  = fast_solver.si
01f0: 6e 67 6c 65 5f 73 74 65 70 28 29 3b 0a 09 09 09  ngle_step();....
0200: 09 09 69 66 28 63 3d 3d 27 41 27 29 20 62 72 65  ..if(c=='A') bre
0210: 61 6b 3b 0a 09 09 09 09 09 63 6f 6e 73 74 28 47  ak;......const(G
0220: 61 6d 65 29 20 67 67 20 3d 20 66 61 73 74 5f 73  ame) gg = fast_s
0230: 6f 6c 76 65 72 2e 63 75 72 72 65 6e 74 5f 67 61  olver.current_ga
0240: 6d 65 3b 0a 09 09 09 09 09 6c 6f 67 20 7e 3d 20  me;......log ~= 
0250: 63 3b 0a 09 09 09 09 09 73 63 6f 72 65 5f 6c 6f  c;......score_lo
0260: 67 20 7e 3d 20 67 67 2e 73 63 6f 72 65 3b 0a 09  g ~= gg.score;..
0270: 09 09 09 09 69 66 28 67 67 2e 63 6c 65 61 72 65  ....if(gg.cleare
0280: 64 20 7c 7c 20 67 67 2e 64 65 61 64 29 20 62 72  d || gg.dead) br
0290: 65 61 6b 3b 0a 09 09 09 09 7d 0a 09 09 09 7d 20  eak;.....}....} 
02a0: 63 61 74 63 68 20 7b 0a 09 09 09 09 6c 6f 67 20  catch {.....log 
02b0: 3d 20 6e 75 6c 6c 3b 0a 09 09 09 09 73 63 6f 72  = null;.....scor
02c0: 65 5f 6c 6f 67 20 3d 20 6e 75 6c 6c 3b 0a 09 09  e_log = null;...
02d0: 09 7d 0a 09 09 7d 0a 09 7d 0a 09 6f 76 65 72 72  .}...}..}..overr
02e0: 69 64 65 20 76 6f 69 64 20 6f 6e 5f 67 61 6d 65  ide void on_game
02f0: 5f 63 68 61 6e 67 65 64 28 63 68 61 72 20 63 2c  _changed(char c,
0300: 20 69 6e 20 47 61 6d 65 20 67 2c 20 62 6f 6f 6c   in Game g, bool
0310: 20 66 69 6e 69 73 68 65 64 29 20 7b 7d 0a 09 73   finished) {}..s
0320: 74 72 69 6e 67 20 6c 6f 67 3b 0a 09 6c 6f 6e 67  tring log;..long
0330: 5b 5d 20 73 63 6f 72 65 5f 6c 6f 67 3b 0a 7d 0a  [] score_log;.}.
0340: 0a 76 6f 69 64 20 6d 61 69 6e 28 29 0a 7b 0a 09  .void main().{..
0350: 61 75 74 6f 20 64 20 3d 20 6e 65 77 20 44 72 69  auto d = new Dri
0360: 76 65 72 28 73 74 64 69 6e 29 3b 0a 09 61 75 74  ver(stdin);..aut
0370: 6f 20 6f 20 3d 20 64 2e 61 64 64 4f 62 73 65 72  o o = d.addObser
0380: 76 65 72 21 28 47 75 61 72 64 65 64 4f 75 74 70  ver!(GuardedOutp
0390: 75 74 29 28 29 3b 0a 09 61 75 74 6f 20 63 20 3d  ut)();..auto c =
03a0: 20 64 2e 61 64 64 4f 62 73 65 72 76 65 72 21 28   d.addObserver!(
03b0: 43 55 49 21 4d 61 69 6e 53 6f 6c 76 65 72 29 28  CUI!MainSolver)(
03c0: 29 3b 0a 09 61 75 74 6f 20 66 20 3d 20 64 2e 61  );..auto f = d.a
03d0: 64 64 4f 62 73 65 72 76 65 72 21 28 46 6f 72 53  ddObserver!(ForS
03e0: 61 66 65 74 79 29 28 29 3b 0a 09 6f 2e 73 61 66  afety)();..o.saf
03f0: 65 74 79 5f 64 61 74 61 28 66 2e 6c 6f 67 2c 20  ety_data(f.log, 
0400: 66 2e 73 63 6f 72 65 5f 6c 6f 67 29 3b 0a 09 77  f.score_log);..w
0410: 68 69 6c 65 28 21 63 2e 66 69 6e 29 0a 09 09 64  hile(!c.fin)...d
0420: 2e 63 6f 6d 6d 61 6e 64 28 63 2e 73 6f 6c 76 65  .command(c.solve
0430: 72 2e 73 69 6e 67 6c 65 5f 73 74 65 70 28 29 29  r.single_step())
0440: 3b 0a 7d 0a                                      ;.}.