[Tokyo.pm] October meeting nittei chousa

scozens @ pwj.co.jp scozens @ pwj.co.jp
1999年 10月 20日 (水) 21:39:48 CDT





カズンズです。

> 全員の○をそろえることは難しいので、初参加のカズンズさんと、展示
> 担当の方々を優先したいとこですが……松本さんのご予定はいかが?

自分は何時でも大丈夫です。今のところ、27日の夜としたら、岩本さんだけ
が参加できません。まるまる専断的な序列制度を使って、今まで(松本さんの優先
も込んだ)集まって番付は…

27夜:37点     29夜:33点     28夜:32点     30夜:24点     24夜:22点
31夜:20点     25夜:20点     26夜:20点     30昼:16点     24昼:12点
23夜:10点     23昼:0点      31昼:-10点

4行以下。Perl大好き。

--
#!/usr/bin/perl -lan # Just Another Perl Hacker
$daiichigyou++?(shift @F):(@nichiji=@F); for ($i=0;$i<=$#F; $i++)
{$_=$F[$i];
/◎/ && ($ten{$nichiji[$i]}+=10); /○/ && ($ten{$nichiji[$i]}+=5);
/△/ && ($ten{$nichiji[$i]}++);   /×/ && ($ten{$nichiji[$i]}-=5)}
END {print "$_:$ten{$_}点" for(reverse sort {$ten{$a}<=>$ten{$b}}
@nichiji)}





Tokyo-pm メーリングリストの案内