bzoj1670

第一道凸包

采用Andrew算法，不论实现还是理解都非常简单

var q,x,y:array[0..5010] of longint;
    i,j,k,m,n:longint;
    ans:double;

procedure swap(var a,b:longint);
  var c:longint;
  begin
    c:=a;
    a:=b;
    b:=c;
  end;

procedure sort(l,r: longint);
  var i,j,p,q: longint;
  begin
    i:=l;
    j:=r;
    p:=x[(l+r) shr 1];
    q:=y[(l+r) shr 1];
    repeat
      while (x[i]<p) or (x[i]=p) and (y[i]<q) do inc(i);
      while (p<x[j]) or (p=x[j]) and (q<y[j]) do dec(j);
      if not(i>j) then
      begin
        swap(x[i],x[j]);
        swap(y[i],y[j]);
        inc(i);
        j:=j-1;
      end;
    until i>j;
    if l<j then sort(l,j);
    if i<r then sort(i,r);
  end;

function check(i,j,k:longint):longint;
  begin
    exit((y[i]-y[k])*(x[j]-x[k])-(y[j]-y[k])*(x[i]-x[k]));
  end;

function calc(i,j:longint):double;
  begin
    exit(sqrt(sqr(x[i]-x[j])+sqr(y[i]-y[j])));
  end;

begin
  readln(n);
  for i:=1 to n do
    readln(x[i],y[i]);
  sort(1,n);
  m:=1;
  q[1]:=1;
  for i:=2 to n do
  begin
    while (m>1) and (check(i,q[m],q[m-1])<0) do dec(m);
    inc(m);
    q[m]:=i;
  end;
  k:=m-1;
  for i:=n-1 downto 1 do
  begin
    while (m>k) and (check(i,q[m],q[m-1])<0) do dec(m);
    inc(m);
    q[m]:=i;
  end;
  for i:=2 to m do
    ans:=ans+calc(q[i],q[i-1]);
  writeln(ans:0:2);
end.