直角三角形_纪中2543_暴力？

Description

　　平面上给定N个两两不同的整点，统计以给定的点为顶点，且直角边平行于坐标轴的直角三角形数。

Input

　　输入文件right.in第一行为一个整数N。
　　以下N行，每行给出一个点的坐标。

Output

　　输出文件名为right.out。输出一个整数表示统计结果。

Hint

[数据规模和约定]

　　30%的数据满足 N ≤ 100；
　　50%的数据满足 N ≤ 1000；
　　100%的数据满足0 < N ≤ 100000，所有坐标不超过32位整数范围。
　　

题意

求互相垂直并平行于坐标轴的线段对数

题解

跟之前做过一题很像，但是有限制条件
用数组记录纵坐标和横坐标上的点的线段数量，空间优化用哈希表，离散似乎不是必要但是也打了
枚举点统计以此为直角顶点的三角形数量
c++神坑数组不能为负数于是换回了fp

code

const
  p=403219;
var
  n:longint;
  hx,hy,vx,vy,x,y,s,t:array[-p..p]of longint;
function hash_x(x:longint):longint;
var
  i:longint;
begin
  i:=(x)mod p;
  while (hx[i]<>0)and(hx[i]<>x) do
  i:=(i+1)mod p;
  exit(i);
end;
function hash_y(y:longint):longint;
var
  i:longint;
begin
  i:=(y)mod p;
  while (hy[i]<>0)and(hy[i]<>y) do
  i:=(i+1)mod p;
  exit(i);
end;
procedure init;
var
  i,g,ans,a,b:longint;
begin
  a:=0;
  b:=0;
  ans:=0;
  readln(n);
  for i:=1 to n do
  begin
    readln(x[i],y[i]);
    g:=hash_x(x[i]);

    if (hx[g]<>x[i]) then
    begin
      inc(a);
      hx[g]:=x[i];
      s[g]:=a;
      inc(vx[s[g]]);
    end
    else
    inc(vx[s[g]]);

    g:=hash_y(y[i]);
    if (hy[g]<>y[i]) then
    begin
      inc(b);
      hy[g]:=y[i];
      t[g]:=b;
      inc(vy[t[g]]);
    end
    else
    inc(vy[t[g]]);
  end;
  for i:=1 to n do
  begin
    ans:=ans+(vx[s[hash_x(x[i])]]-1)*(vy[t[hash_y(y[i])]]-1);
  end;
  writeln(ans);
end;
begin
  init;
end.