pku1113 凸包

wa了半天结果是快排要双关键字排序。。囧

题目大意：

  从前有个国王，这个国王很贪婪，然后让修个围墙，这个围墙要求用料最少，而且距离城堡一定距离。。给你城堡的坐标。让你输出这个最小的长度。

简略题解：

  其实就是凸包+一个以l为半径的圆周长。

附代码：

program pku_1113; var a,b,c:array[0..3000] of longint; n,r:longint; {------------------------} procedure qsort(x,y:longint); var g,t,s,l,r:longint; begin t:=a[(x+y) div 2]; s:=b[(x+y) div 2]; l:=x;r:=y; repeat while (a[l]<t) or ((a[l]=t) and (b[l]<s)) do inc(l); while (a[r]>t) or ((a[r]=t) and (b[r]>s)) do dec(r); if l<=r then begin g:=a[l];a[l]:=a[r];a[r]:=g; g:=b[l];b[l]:=b[r];b[r]:=g; inc(l);dec(r); end; until l>r; if l<y then qsort(l,y); if x<r then qsort(x,r); end; {------------------------} procedure init; var i:longint; begin readln(n,r); for i:=1 to n do readln(a[i],b[i]); qsort(1,n); end; {------------------------} function check(i,j,k:longint):boolean; var tmp:int64; begin tmp:=(a[j]-a[i])*(b[k]-b[i])-(a[k]-a[i])*(b[j]-b[i]); if tmp<0 then exit(false); exit(true); end; {------------------------} procedure main; var i,l:longint; ans:extended; begin l:=2; c[1]:=1;c[2]:=2; for i:=3 to n do begin inc(l);c[l]:=i; while not check(c[l-2],c[l-1],c[l]) and (l>2) do begin dec(l);c[l]:=c[l+1]; end; end; for i:=n-1 downto 1 do begin inc(l);c[l]:=i; while not check(c[l-2],c[l-1],c[l]) and (l>2) do begin dec(l);c[l]:=c[l+1]; end; end; ans:=2*pi*r; for i:=1 to l-1 do ans:=ans+sqrt(sqr(a[c[i]]-a[c[i+1]])+sqr(b[c[i]]-b[c[i+1]])); writeln(ans:0:0); end; {------------------------} begin init; main; end.