[Usaco2008 Dec]Patting Heads 轻拍牛头
Description
今天是贝茜的生日,为了庆祝自己的生日,贝茜邀你来玩一个游戏.
贝茜让N(1≤N≤100000)头奶牛坐成一个圈.除了1号与N号奶牛外,i号奶牛与i-l号和i+l号奶牛相邻.N号奶牛与1号奶牛相邻.农夫约翰用很多纸条装满了一个桶,每一张包含了一个独一无二的1到1,000,000的数字.
接着每一头奶牛i从柄中取出一张纸条Ai.每头奶牛轮流走上一圈,同时拍打所有编号能整除在纸条上的数字的牛的头,然后做回到原来的位置.牛们希望你帮助他们确定,每一头奶牛需要拍打的牛.
Input
第1行包含一个整数N,接下来第2到N+1行每行包含一个整数Ai.
Output
第1到N行,每行的输出表示第i头奶牛要拍打的牛数量.
Sample Input
5 //有五个数,对于任一个数来说,其它的数有多少个是它的约数
2
1
2
3
4
INPUT DETAILS:
The 5 cows are given the numbers 2, 1, 2, 3, and 4, respectively.
Sample Output
2
0
2
1
3
OUTPUT DETAILS:
The first cow pats the second and third cows; the second cows pats no cows;
etc.
Source
Silver
题解
- 嗯,是筛法的拓展
- cnt[i]:i纸条出现的次数,ans[i]:i的约数个数,那么ans[i∗j]=cnt[i]∗j (i∗j<=max)
var
a:array[0..100005]of longint;
ans,cnt:array[0..1000005]of longint;
i,j,k:longint;
n,max:longint;
begin
max:=0;
readln(n);
for i:=1 to n do
begin
readln(a[i]);
inc(cnt[a[i]]);
if a[i]>max then max:=a[i];
end;
for i:=1 to max do
if cnt[i]<>0
then
begin
for j:=1 to max do
begin
if i*j>max then break;
inc(ans[i*j],cnt[i]);
end;
end;
for i:=1 to n do
writeln(ans[a[i]]-1);
end.