直角三角形 (Standard IO)

题意/Description:

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

 

读入/Input：

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

 

输出/Output：

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

 

题解/solution：

       枚举直角顶点(x,y)，设横坐标为x的点有a个，纵坐标为y的点有b个。那么对答案的贡献为(a-1) * (b-1)。a和b可以事先全部统计出来，最后累加统计。

 

代码/Code：

const
  maxn=137127;
var
  n,ans:longint;
  a,b,x,y,xnum,dx,ynum,dy:array [0..maxn] of longint;
function hashx(o:longint):longint;
var
  i:longint;
begin
  i:=o mod maxn;
  while (x[i]<>0) and (x[i]<>o) do
    i:=i mod maxn+1;
  exit(i);
end;

function hashy(o:longint):longint;
var
  i:longint;
begin
  i:=o mod maxn;
  while (y[i]<>0) and (y[i]<>o) do
    i:=i mod maxn+1;
  exit(i);
end;

procedure init;
var
  i,o,p,numx,numy:longint;
begin
  readln(n);
  numx:=0; numy:=0;
  for i:=1 to n do
    begin
      readln(a[i],b[i]);
      o:=hashx(b[i]);
      if x[o]<>b[i] then
        begin
          inc(numx);
          xnum[o]:=numx;
          inc(dx[xnum[o]]);
          x[o]:=b[i];
        end else inc(dx[xnum[o]]);
      p:=hashy(a[i]);
      if y[p]<>a[i] then
        begin
          inc(numy);
          ynum[p]:=numy;
          inc(dy[ynum[p]]);
          y[p]:=a[i];
        end else inc(dy[ynum[p]]);
    end;
  ans:=0;
end;

procedure main;
var
  i:longint;
begin
  for i:=1 to n do
    ans:=(dx[xnum[hashx(b[i])]]-1)*(dy[ynum[hashy(a[i])]]-1)+ans;
  write(ans);
end;

begin
  init;
  main;
end.