NEERC/headshot/check.dpr

   1 (*\r
   2     Checker for NEERC'2009 Problem H: Headshot\r
   3     (C) Roman Elizarov\r
   4 *)\r
   5 \r
   6 {$O+,Q+,R+}\r
   7 {$APPTYPE CONSOLE}\r
   8 \r
   9 program Check;\r
  10 \r
  11 uses\r
  12   TestLib, SysUtils;\r
  13 \r
  14 function NextOutput(var strm: InStream): String;\r
  15 begin\r
  16   Result := strm.ReadString;\r
  17   if (Result <> 'SHOOT') and (Result <> 'ROTATE') and (Result <> 'EQUAL') then\r
  18     strm.Quit(_PE, Format('Invalid string: %s', [Result]));\r
  19   if not strm.SeekEof then\r
  20     strm.Quit(_PE, 'Extra data in output');\r
  21 end;\r
  22 \r
  23 var\r
  24   ja, pa: String;\r
  25 \r
  26 begin \r
  27   ja := NextOutput(ans);\r
  28   pa := NextOutput(ouf);\r
  29 \r
  30   if pa <> ja then\r
  31     Quit(_WA, Format('%s istead of %s', [pa, ja]));\r
  32 \r
  33   Quit(_OK, Format('%s', [pa]));\r
  34 end.\r