NEERC/zero/check.dpr

   1 (*\r
   2     Checker for NEERC'2006 Problem Z: Zero-complexity Transposition\r
   3     (C) Roman Elizarov\r
   4 *)\r
   5 \r
   6 {$O+,Q+,R+}\r
   7 {$APPTYPE CONSOLE}\r
   8 \r
   9 uses\r
  10   TestLib, SysUtils;\r
  11 \r
  12 var\r
  13   n, i, j: Integer;\r
  14   ja, pa: String;\r
  15   wa: String;\r
  16 begin\r
  17   n := inf.readInteger;\r
  18   wa := '';\r
  19 \r
  20   for i := 1 to n do begin\r
  21     if ouf.SeekEoln then\r
  22       Quit(_PE, 'Unexpected line end');\r
  23 \r
  24     ja := ans.readWord(blanks, blanks);\r
  25     pa := ouf.readWord(blanks, blanks);\r
  26 \r
  27     for j := 1 to Length(pa) do begin\r
  28       if not (pa[j] in ['-', '0'..'9']) then\r
  29         Quit(_PE, 'Invalid character'); \r
  30     end;\r
  31 \r
  32     if (wa = '') and (ja <> pa) then\r
  33       wa := Format('%s instead of %s', [pa, ja]);\r
  34   end;\r
  35 \r
  36   if not ouf.SeekEof then \r
  37     Quit(_PE, 'Extra information in the output file');\r
  38 \r
  39   if wa <> '' then\r
  40     Quit(_WA, wa);\r
  41 \r
  42   Quit(_OK, Format('%d', [n]));\r
  43 end.\r