noip2005篝火晚会 2008.10.18

noip2005篝火晚会 2008.10.18

注意：

1.       刚开始，我用的是图来标记这两个人是否已经输出过，一直出错，后来看了标称，方法很好

2.       求出序列后，因为是圆环，要正着求一次差，求相同的最大值，还要倒着求一次差，求最大值，这样才圆满，我只正着求了，故一直出错

3.       不能用abs，若剪出的结果是负数，应加上n；标称的处理方法很好，相减后+n，再mod n

Program:

program noip2005_3;
 const
  maxn=50000;
 var
    n:longint;
    tm,w:array[0..maxn] of longint;
    g:array[1..maxn,0..4] of longint;

 function solve(x,y:longint):boolean;
  var
      i:integer;
  begin
   solve:=true;
   for i:=1 to g[x,0] do
   if y=g[x,i]
   then exit(false);
  end;{判断两个人以前是否出现过}


 procedure init;
  var
     i,x,y:longint;

 begin
  readln(n);
  for i:=1 to n do
  begin
    read(x,y);

    if solve(i,x)
    then begin
         inc(g[x,0]); g[x,g[x,0]]:=i;
         inc(g[i,0]); g[i,g[i,0]]:=x
         end;

    if solve(i,y)
    then begin
         inc(g[y,0]); g[y,g[y,0]]:=i;
         inc(g[i,0]); g[i,g[i,0]]:=y;
         end;

    if (g[x,0]>2) or (g[y,0]>2)
    then begin
         writeln(-1); close(input); close(output);
         halt
         end;{不必读完，出现问题，不再读他，就跳出}
  end;

 end;

 procedure ready;
  var
     i,j:longint;
 begin
   tm[0]:=0; tm[1]:=1;
   for i:=2 to n do
   for j:=1 to g[tm[i-1],0] do
    if g[tm[i-1],j]<>tm[i-2]
    then tm[i]:=g[tm[i-1],j];
 end;

 procedure main;
  var
      i,j,max,ans:longint;
 begin
  max:=0;

  for i:=1 to n do
  inc(w[ (tm[i]+n-i) mod n ]);
  for i:=0 to n-1 do
  if w[i]>max then max:=w[i];

  fillchar(w,sizeof(w),0);
  for i:=n downto 1 do
  inc(w[ (tm[i]+n-(n-i+1)) mod n ]);
  for i:=0 to n-1 do
  if w[i]>max then max:=w[i];

 ans:=n-max;
 writeln(ans);
 end;

 begin
  assign(input,'fire.in');
  assign(output,'fire.out');
  reset(input); rewrite(output);
  init;
  ready;
  main;
  close(input); close(output);
 end.