[BZOJ1607] [Usaco2008 Dec]Patting Heads 轻拍牛头

本文主要是介绍[BZOJ1607] [Usaco2008 Dec]Patting Heads 轻拍牛头，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

[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)$

vara:array[0..100005]of longint;ans,cnt:array[0..1000005]of longint;i,j,k:longint;n,max:longint;
beginmax:=0;readln(n);for i:=1 to n dobeginreadln(a[i]);inc(cnt[a[i]]);if  a[i]>max then max:=a[i];end;for i:=1 to max doif cnt[i]<>0thenbeginfor j:=1 to max dobeginif i*j>max then break;inc(ans[i*j],cnt[i]);end;end;for i:=1 to n dowriteln(ans[a[i]]-1);
end.

这篇关于[BZOJ1607] [Usaco2008 Dec]Patting Heads 轻拍牛头的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！

---