直角三角形 纪中2543 枚举+hash

Description

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

Input

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

Output

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

分析

 水题 先把每横线和每纵线上有多少个点都统计出来，然后枚举每一个点（坐标很大要用hash） 把这个点的横坐标的线和纵坐标的线上的点数分别-1后相乘 所有点的结果的和就是ans

const  max2=100500;  q=403219;var  h,f,g:array[-5*max2..5*max2] of int64;  h1,f1,g1:array[-5*max2..5*max2] of int64;  x,y:array[1..max2] of longint;  max,max1:longint;  i,j,k:longint;  ans:int64;  n:longint;function hash(x:longint):longint;var  i,j,k:longint;begin  i:=x mod q;  while (h[i]<>0) and (h[i]<>x) do    i:=i mod q+1;  hash:=i;end;function hash1(x:longint):longint;var  i,j,k:longint;begin  i:=x mod q;  while (h1[i]<>0) and (h1[i]<>x) do    i:=i mod q+1;  hash1:=i;end;begin  readln(n);  max:=0;  for i:=1 to n do    begin      readln(x[i],y[i]);      j:=hash(y[i]);      if h[j]<>y[i]        then          begin            max:=max+1;            f[j]:=max;            h[j]:=y[i];            g[f[j]]:=g[f[j]]+1;          end        else          g[f[j]]:=g[f[j]]+1;      j:=hash1(x[i]);      if h1[j]<>x[i]        then          begin            max1:=max1+1;            f1[j]:=max1;            h1[j]:=x[i];            g1[f1[j]]:=g1[f1[j]]+1;          end        else          g1[f1[j]]:=g1[f1[j]]+1;    end;  ans:=0;  for i:=1 to n do    begin      ans:=ans+(g[f[hash(y[i])]]-1)*(g1[f1[hash1(x[i])]]-1);    end;  write(ans);end.