NEERC/headshot/headshot_rs.dpr

   1 {$r+,q+,o-}\r
   2 {$apptype console}\r
   3 uses\r
   4     SysUtils, Math;\r
   5 \r
   6 type\r
   7     int = longint;\r
   8 \r
   9 procedure check(expr: boolean; msg: string);\r
  10 begin\r
  11     if (not expr) then begin\r
  12         writeln(erroutput, 'Error: ', msg);\r
  13         assert(false);\r
  14     end;\r
  15 end;\r
  16 \r
  17 var\r
  18     n, i, ii, u, v: int;\r
  19     p: array [1..100] of char;\r
  20 \r
  21 begin\r
  22     reset(input, 'headshot.in');\r
  23     rewrite(output, 'headshot.out');\r
  24 \r
  25     n := 0;\r
  26     while (not seekeoln) do begin\r
  27         inc(n);\r
  28         check(n <= 100, 'n is greater than 100');\r
  29         read(p[n]);\r
  30         check((p[n] = '0') or (p[n] = '1'), 'some of chambers != 0 and != 1');\r
  31     end;\r
  32 \r
  33     u := 0;\r
  34     v := 0;\r
  35     for i := 1 to n do begin\r
  36         ii := (i mod n) + 1;\r
  37         if (p[i] = '0') then begin\r
  38             if (p[ii] = '0') then\r
  39                 inc(u);\r
  40 \r
  41             inc(v);\r
  42         end;\r
  43     end;\r
  44 \r
  45     if (u * n = v * v) then\r
  46         writeln('EQUAL')\r
  47     else if (u * n > v * v) then\r
  48         writeln('SHOOT')\r
  49     else\r
  50         writeln('ROTATE');\r
  51 \r
  52     close(input);\r
  53     close(output);\r
  54 end.\r