誰是你的潛在朋友
時間限制: 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 523
21樣例輸出
1
beiju
1beiju
參考**
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.
（演算法練習） 誰是你的潛在朋友
要求 說明 這一題一開始理解錯題意了，汗，讀了好幾遍終於明白是什麼意思了 然而 寫的跟狗啃的似的。主要就是hash的使用，用空間換時間，比較容易理解了 include include const int maxn 210 int hashtable maxn struct coderecord ma...
Pascal程式練習 與7無關的數
與7無關的數 時間限制 1000ms記憶體限制 65536kb 描述 乙個正整數,如果它能被7整除,或者它的十進位制表示法中某個位數上的數字為7,則稱其為與7相關的數.現求所有小於等於n n 100 的與7無關的正整數的平方和.輸入 輸入為一行,正整數n,n 100 輸出 輸出小於等於n的與7無關的...
Pascal程式練習 與7無關的數
與7無關的數 時間限制 1000ms記憶體限制 65536kb 描述 乙個正整數,如果它能被7整除,或者它的十進位制表示法中某個位數上的數字為7,則稱其為與7相關的數.現求所有小於等於n n 100 的與7無關的正整數的平方和.輸入 輸入為一行,正整數n,n 100 輸出 輸出小於等於n的與7無關的...