infoarena

procedure binaryx;
var step,i:integer;
begin
step:=1;
while step<n do step:=(step shl 1);
i:=0;
 while step>0 do
  begin
  if(step+i<=n)and((l[step+i].x<xt)or(compar(l[step+i].x,xt))) then i:=i+step;
  step:=step shr 1;
  end;
 if compar(xt,l[i].x) then pz:=i
                      else pz:=1600;

end;

procedure binaryy(li,lo:integer);
var step,i:integer;
begin
step:=1;
while step<lo do step:=step shl 1;
i:=li-1;
 while step>0 do
  begin
  if (i+step<=lo)and((l[i+step].y<yt)or(compar(l[step+i].y,yt))) then i:=i+step;
  step:=step shr 1;
  end;
 if compar(l[i].y,yt) then find:=true
                      else find:=false;
 end;
 

procedure cauta(x,y:real);
begin
xt:=x; yt:=y;
binaryx(1,n);
if pz<>1600 then
 begin
  binaryy(pz-v[pz]+1,pz);
  if find then inc(rez);
  end;
  
end;

#define EPS 0.001
#define HSIZE 30007
int hf(double dst)
{
  int ret;
  ret = dst+EPS;
  return ret%HSIZE;
}

pt i de la 1 la n-1
  pt j de la i+1 la n
    sol <- sol + hsearch(d[i][j], i, j)
    hadd(d[i][j], i, j);

	NR=0;	
	for(i=0;i<n-1;i++)
		for(j=i+1;j<n;j++)
		{
			who1=malloc(sizeof(punct));
			who2=malloc(sizeof(punct));
			ans1=malloc(sizeof(punct));
			ans2=malloc(sizeof(punct));
			*who1=rotate60(a[i],a[j]); // rotate60 roteste pe a[j] in jurul lui a[i] cu 60 de grade in sens trigonometric
			ans1=bsearch(who1,a,n,sizeof(punct),compare_points);
			if(ans1!=NULL)++NR;
			*who2=rotate60(a[j],a[i]);
			ans2=bsearch(who2,a,n,sizeof(punct),compare_points);
			if(ans2!=NULL)++NR;
		}

			ans1=bsearch(who1,a+j+1,n-j,sizeof(punct),compare_points);

#define EPS 0.001
int compare_points(const void *a,const void *b) // for qsort & bsearch
{
	float* arg11=(float*)a;
	float* arg12=(float*)a+sizeof(float);
	float* arg21=(float*)b;
	float* arg22=(float*)b+sizeof(float);
	if(*arg11<*arg21 || (abs(*arg11-*arg21)<EPS && *arg12<*arg22))return -1;
	if(abs(*arg11-*arg21)<EPS && abs(*arg12-*arg22)<EPS)return 0;
	return 1;
}

			ans2=bsearch(who2,a+j,n-j+1,sizeof(punct),compare_points)

x = (-x1+y1*s3+x2+y2*s3)/2;
y = (-y1-x1*s3-x2*s3+y2)/2; //cu s3 am notat radical din 3.