2429: [HAOI2006]聪明的猴子

2429: [HAOI2006]聪明的猴子

Time Limit: 10 Sec Memory Limit: 128 MB
Submit: 448 Solved: 309
[Submit][Status][Discuss]

Description

在一个热带雨林中生存着一群猴子，它们以树上的果子为生。昨天下了一场大雨，现在雨过天晴，但整个雨林的地表还是被大水淹没着，部分植物的树冠露在水面上。猴子不会游泳，但跳跃能力比较强，它们仍然可以在露出水面的不同树冠上来回穿梭，以找到喜欢吃的果实。
现在，在这个地区露出水面的有N棵树，假设每棵树本身的直径都很小，可以忽略不计。我们在这块区域上建立直角坐标系，则每一棵树的位置由其所对应的坐标表示(任意两棵树的坐标都不相同)。
在这个地区住着的猴子有M个，下雨时，它们都躲到了茂密高大的树冠中，没有被大水冲走。由于各个猴子的年龄不同、身体素质不同，它们跳跃的能力不同。有的猴子跳跃的距离比较远(当然也可以跳到较近的树上)，而有些猴子跳跃的距离就比较近。这些猴子非常聪明，它们通过目测就可以准确地判断出自己能否跳到对面的树上。
【问题】　现已知猴子的数量及每一个猴子的最大跳跃距离，还知道露出水面的每一棵树的坐标，你的任务是统计有多少个猴子可以在这个地区露出水面的所有树冠上觅食。

Input

第1行为一个整数，表示猴子的个数M(2<=M<=500)；

第2行为M个整数，依次表示猴子的最大跳跃距离（每个整数值在1--1000之间）；

第3行为一个整数表示树的总棵数N(2<=N<=1000)；

第4行至第N+3行为N棵树的坐标（横纵坐标均为整数，范围为：-1000--1000）。

（同一行的整数间用空格分开）

Output

包括一个整数，表示可以在这个地区的所有树冠上觅食的猴子数

Sample Input

4

1 2 3 4

6

0 0

1 0

1 2

-1 -1

-2 0

2 2

Sample Output

3

HINT

对于40%的数据，保证有2<=N <=100，1<=M<=100

对于全部的数据，保证有2<=N <= 1000，1<=M=500

Source

Day2

题解：一个裸的最小生成树，直接求出来之后判断下就是了= =

/**************************************************************
Problem: 2429
User: HansBug
Language: Pascal
Result: Accepted
Time:396 ms
Memory:11976 kb
****************************************************************/

var
i,j,k,l,m,n,mm:longint;
b:array[0..2000,1..2] of longint;
a:array[0..1000005,1..3] of longint;
c,d:array[0..2000] of longint;
function max(x,y:longint):longint;inline;
begin
if x>y then max:=x else max:=y;
end;
procedure swap(var x,y:longint);inline;
var z:longint;
begin
z:=x;x:=y;y:=z;
end;
procedure sort(l,r:longint);inline;
var i,j,x,y:longint;
begin
i:=l;j:=r;x:=a[(l+r) div 2,3];
repeat
while a[i,3]<x do inc(i);
while a[j,3]>x do dec(j);
if i<=j then
begin
swap(a[i,1],a[j,1]);
swap(a[i,2],a[j,2]);
swap(a[i,3],a[j,3]);
inc(i);dec(j);
end;
until i>j;
if i<r then sort(i,r);
if l<j then sort(l,j);
end;
function getfat(x:longint):longint;inline;
begin
if x<>c[x] then c[x]:=getfat(c[x]);
exit(c[x]);
end;
begin
readln(m);
for i:=1 to m do read(d[i]);
readln;l:=0;readln(n);
for i:=1 to n do readln(b[i,1],b[i,2]);
for i:=1 to n-1 do
for j:=i+1 to n do
begin
inc(l);a[l,1]:=i;a[l,2]:=j;
a[l,3]:=(b[i,1]-b[j,1])*(b[i,1]-b[j,1])+(b[i,2]-b[j,2])*(b[i,2]-b[j,2]);
end;
sort(1,l);
for i:=1 to n do c[i]:=i;
j:=0;mm:=0;
for i:=1 to n-1 do
begin
repeat
inc(j);
k:=getfat(a[j,1]);
l:=getfat(a[j,2]);
until k<>l;
mm:=max(mm,a[j,3]);
c[k]:=l;
end;
l:=0;
for i:=1 to m do if (d[i]*d[i])>=mm then inc(L);
writeln(l);
readln;
end.