Re: [討論] 大家夢想中4人小隊 (開票統計)截止
※ 引述《rosa9883 (風雨寶貝)》之銘言:
: 標題: Re: [討論] 大家夢想中4人小隊 (開票統計)截止
: 時間: Wed Feb 4 00:06:20 2009
: 統計結束...大家都好踴躍唷...
: 很多不是火影的角色都出來了...
: 出現人物排名(公佈前五名)
: 第一名: 卡卡西
: 第二名: 鹿丸
: 第三名: 鋼手
: 第四名: 自來也師徒(自來也+鳴人 榮獲雙榜) 鼬
: 第五名: 第四代火影(波風湊)
: 推 puppy8224:我想要看其他人物的統計( ‵□′)───C<─___-)||| 02/04 02:23
剛剛順手用 Perl 寫了一個小程式,把大家推文的人名出現次數統計了一下
因為大家推得很隨性,所以我也只抓兩種樣式,比對名字出現的次數
Name_A + Name_B + Name_C + Name_D
Name_A、Name_B、Name_C、Name_D
16 雛田
15 鼬
13 鳴人
12 卡卡西
11 我
10 兩津
08 綱手
08 悟空
07 鹿丸
07 自來也
07 四代
06 岸本
05 紅
04 超賽四
04 熊貓人
04 小李
04 寧次
04 富堅
04 佐助
03 魯夫
03 靚
03 雜魚
03 致
03 肛手
03 班
03 珍
03 扁
03 我愛羅
03 悟飯
03 小叮噹
03 四代火影
03 三代
02 鳥山明
02 香磷
02 阿凱
02 鋼手
02 金田一
02 達爾
02 路克
02 越前龍馬
02 蠍
02 紅豆
02 海綿寶寶
02 柯南
02 手鞠
02 左助
02 尾田
02 富奸
02 天天
02 大蛇丸
02 八支
02 九支
02 九尾
02 丁丁
02 一代
02 BT
01 黃x靚
01 麥當勞
01 鳴入
01 鬼塚英吉
01 高進
01 騙人布
01 香磷XD
01 香燐
01 香港
01 飛影
01 風間
01 鞋志
01 雷禪
01 雷姆
01 陳水扁
01 陳某
01 陳x扁
01 陳x中
01 阿神
01 阿波
01 阿星
01 阿拉
01 阿姆
01 阿呆
01 阿司瑪
01 阪田銀時 (我是殺手哥吉拉 13)
01 長門
01 金星仙子
01 金富力士
01 金
01 釋迦牟尼
01 鄉民
01 達美樂
01 迪達羅
01 迪西
01 軍訓教官
01 趙X銘
01 超級賽亞人4
01 超級賽亞人3
01 超級賽亞人2
01 超級賽亞人
01 賈基
01 貧乳
01 貝吉達
01 變態社長 (這種人有很多耶,廣三?)
01 許夢澤
01 計程車司機
01 言承旭
01 解師傅
01 補習班老師
01 蠟筆小新
01 蟹老闆
01 蛇姬
01 蘋乳
01 藏馬
01 藍染
01 蔣中証
01 蒼井空
01 萊爾富
01 荻原舞
01 草薙京
01 花媽
01 自摸
01 自來也~~
01 胖虎
01 肯德基
01 聶風
01 耶穌
01 羅賓
01 羅德曼
01 絕
01 紹煒 (這是誰?)
01 紅音
01 紅中
01 筆記本
01 章魚哥
01 祭
01 神龍
01 神樂
01 皮朋
01 白
01 瓦哥
01 瑪莉亞
01 現任女友
01 王少萎
01 王人斧
01 玉皇大帝
01 猿野天國
01 特南克斯
01 無名
01 火星仙子
01 海底
01 派大星
01 泰莎
01 沒有被拿掉祭品之力的我愛羅
01 武騰蘭
01 步驚雲
01 正男
01 桑原
01 桂小太郎
01 柏油
01 李登輝
01 朱孝天
01 未來老婆
01 木葉丸
01 木星仙子
01 月光仙子
01 最強?君麻呂
01 星野
01 日向日足
01 新加坡
01 斑
01 撒旦
01 拉拉
01 我爸
01 我愛螺
01 我媽
01 愛田由
01 悟天克斯
01 志村新八
01 必勝客
01 彩女
01 彌海沙
01 強者我朋友
01 幽助
01 平乳
01 帶土
01 巨乳
01 左肋
01 左右
01 尼特羅會長
01 小要
01 小當家
01 小澤圓
01 小新
01 小刀
01 孫鞋子
01 孫中刪
01 字一色
01 妲己
01 奈良
01 天胡
01 大頭
01 大門五郎
01 大軍
01 大四喜
01 大嘴米勒
01 大三元
01 夢則
01 團長
01 團藏
01 團團圓圓
01 四郎
01 嘟嘟
01 嗚入
01 嗚人
01 喬丹
01 哆啦A夢
01 周渝民
01 吳建豪
01 吳x珍
01 吉澤明步
01 台灣
01 原PO
01 卡繆
01 卡卡膝
01 卡卡東
01 卡卡南
01 卡卡北
01 南韓
01 十強讀者
01 前女友
01 初戀女友
01 初代火影
01 六尾
01 八尾
01 兩津戡吉
01 全家
01 克勞薩
01 倉井空
01 倉井
01 佐井
01 仙人模式嗚人
01 人撫
01 井野
01 五暗刻
01 五代火影
01 五代
01 二階堂紅丸
01 二代火影
01 二代
01 九尾嗚人影分身
01 九尾嗚人
01 世界冠軍
01 不知火舞
01 下下
01 上上
01 三葫蘆
01 三代火影
01 三井
01 七尾
01 what's
01 Zitz
01 Tifa
01 Teixeira
01 Tamama
01 Rash
01 Pujols
01 Pimple
01 PTT
01 OK
01 Manny
01 LBJ
01 L
01 Kururu
01 Keroro
01 Giroro
01 FOXY
01 EM
01 Dark
01 DSL
01 CB
01 BDG
01 BA
01 A-Rod
01 7-11
01 5F
01 4代火影
01 3代火影
01 2胚
01 2代火影
01 2一張=收錢
01 23456同花
01 2)藍染
01 1代火影
01 1)兩津
程式是想到啥就寫啥的直覺式寫法 XD, GPL license
我把文章轉寄到 gmail 裏面,再複製推文內容到檔名為 list 的檔案裏面
1 #!/usr/bin/perl
2
3 %rate;
4 open FILE,"list";
5 foreach(<FILE>) {
6 chomp;
7 my $content = $2 if($_=~m{(.*)\:(.+?)[\[\.]}); # ID:content [m
8 if($content =~m{(.+?)\+(.+?)\+(.+?)\+(.+?)\s+} || # Pattern:
A+B+C+D
9 $content =~m{(.+?)、(.+?)、(.+?)、(.+?)\s+}) { # Pattern: A、B
、C、D
10 my @team = ($1, $2, $3, $4);
11 foreach (@team) {
12 my $temp = $_;
13 $temp =~ s/\s//g;
14 $temp =~ s/\(.*\)//g; # remove (comment)
15 $rate{$temp}++;
16 }
17 }
18 }
19 close FILE;
20 my @array;
21 while(my($key, $value)= each(%rate)) {
22 $value = "0$value" if($value < 10);
23 push(@array,"$value $key");
24 }
25 foreach (reverse sort @array) {print "$_\n"};
--
有一天小明跟朋友打牌,有張牌不小心掉進水裡。此時女神出現了
女神:「你掉的是這張紅中,還是這張白板?」
小明:「都不是,我掉的是青發。快還我吧大嬸,我缺那張牌就自摸了」
女神:「............」
「你真是誠實的好孩子,紅中跟白板都送你吧」
於是小明就相公了。
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 59.104.230.56
※ 編輯: WalkingIce 來自: 59.104.230.56 (02/05 19:09)
推
02/05 19:10, , 1F
02/05 19:10, 1F
※ 編輯: WalkingIce 來自: 59.104.230.56 (02/05 19:12)
推
02/05 19:14, , 2F
02/05 19:14, 2F
推
02/05 19:50, , 3F
02/05 19:50, 3F
推
02/05 19:51, , 4F
02/05 19:51, 4F
推
02/05 20:41, , 5F
02/05 20:41, 5F
推
02/05 21:29, , 6F
02/05 21:29, 6F
推
02/05 22:21, , 7F
02/05 22:21, 7F
推
02/06 00:38, , 8F
02/06 00:38, 8F
推
02/06 11:21, , 9F
02/06 11:21, 9F
推
02/06 23:43, , 10F
02/06 23:43, 10F
推
02/07 08:42, , 11F
02/07 08:42, 11F
→
03/20 05:50, , 12F
03/20 05:50, 12F
討論串 (同標題文章)