【bzoj1610】Line连线游戏

Description

Farmer John最近发明了一个游戏，来考验自命不凡的贝茜。游戏开始的时 候，FJ会给贝茜一块画着N (2 <= N <= 200)个不重合的点的木板，其中第i个点 的横、纵坐标分别为X_i和Y_i (-1,000 <= X_i <=1,000； -1,000 <= Y_i <= 1,000)。 贝茜可以选两个点画一条过它们的直线，当且仅当平面上不存在与画出直线 平行的直线。游戏结束时贝茜的得分，就是她画出的直线的总条数。为了在游戏 中胜出，贝茜找到了你，希望你帮她计算一下最大可能得分。

Input

* 第1行: 输入1个正整数：N

* 第2..N+1行: 第i+1行用2个用空格隔开的整数X_i、Y_i，描述了点i的坐标

Output

第1行: 输出1个整数，表示贝茜的最大得分，即她能画出的互不平行的直线数

Sample Input

4
-1 1
-2 0
0 0
1 1

Sample Output

4

HINT

 

输出说明: 贝茜能画出以下4种斜率的直线：-1，0，1/3以及1。

Solution

简单的模拟。。但是我连模拟都写不好简直ORZ

O(N^2)，把两个点之间的斜率算出来，最后去重一下就好。

（注：要注意tan 90为无穷大,tan 0为0）

var
  i,j,k,n,tot,ans:longint;
  x,y:array[1..200] of integer;
  d:array[1..40000] of double;
procedure qs(N,M:LONGINT);
var
  i,j:longint;
  k,t:double;
  t2:boolean;
begin
  i:=n;
  j:=m;
  k:=d[(n+m) div 2];
  repeat
    while d[i]<k do inc(i);
    while d[j]>k do dec(j);
    if i<=j then
    begin
      t:=d[i];
      d[i]:=d[j];
      d[j]:=t;
      inc(i);
      dec(j);
    end;
  until i>j;
  if i<m then qs(i,m);
  if n<j then qs(n,j);
end;

begin
  readln(n);
  for i:=1 to n do
    readln(x[i],y[i]);
  for i:=1 to n do
    for j:=1 to n do
      if i<>j then
      begin
        inc(tot);
        if y[j]=y[i] then
          d[tot]:=0
        else
          if x[i]=x[j] then
            d[tot]:=1e30
          else
            d[tot]:=(y[j]-y[i])/(x[j]-x[i]);
      end;
  qs(1,tot);
  i:=0;
  while i<tot do
  begin
    inc(i);
    inc(ans);
    while d[i+1]=d[i] do
      inc(i);
  end;
  writeln(ans);
end.