学步园

谁是你的潜在朋友
时间限制: 1000ms内存限制: 65536kB
描述
“臭味相投”——这是我们描述朋友时喜欢用的词汇。两个人是朋友通常意味着他们存在着许多共同的兴趣。然而作为一个宅男，你发现自己与他人相互了解的机会并不太多。幸运的是，你意外得到了一份北大图书馆的图书借阅记录，于是你挑灯熬夜地编程，想从中发现潜在的朋友。
首先你对借阅记录进行了一番整理，把N个读者依次编号为1,2,…,N，把M本书依次编号为1,2,…,M。同时，按照“臭味相投”的原则，和你喜欢读同一本书的人，就是你的潜在朋友。你现在的任务是从这份借阅记录中计算出每个人有几个潜在朋友。
输入
第一行两个整数N,M，2 <= N ，M<= 200。接下来有N行，第i(i = 1,2,…,N)行每一行有一个数，表示读者i-1最喜欢的图书的编号P(1<=P<=M)
输出
包括N行，每行一个数，第i行的数表示读者i有几个潜在朋友。如果i和任何人都没有共同喜欢的书，则输出“BeiJu”（即悲剧，^ ^）
样例输入
4  5
2
3
2
1
样例输出
1
BeiJu
1
BeiJu
参考代码

program pig4002;
var n,m,i:Integer;
    v:array[1..200] of Integer;
	c:array[1..200] of Integer;
begin
	readln(n,m);
	for i := 1 to n do
		readln(v[i]);
	fillchar(c,sizeof(c),0);
	for i := 1 to n do
		inc(c[v[i]]);
	for i := 1 to n do
		if c[v[i]] > 1 then
			writeln(c[v[i]] - 1)
		else 
			writeln('BeiJu');
end.