学籍番号 - 日記

2008-05-26 (月)

*学籍番号

５年前に書いたスクリプトを発掘して少し修正．一応，大学院の学籍番号にも対応．

$id="07TA654"; # 学籍番号
print $id.calc($id)."\n";

sub calc{
    my $id = $_[0];
    my @m = (9,4,5,6,7,8,9); # 重み
    my $sum=0;
    my $count=0;
    for (split(//,$id)) {
        $_ =~tr/LEKSMTAFPG/0-9/ if ($count==2); # 学部
        $_ =~tr/A/1/ if ($count==3);  # 大学院
        $sum+=$_*$m[$count];
        $count++;
    }
    return substr("ABCDEFGHJKA",$sum%11,1);
}

信州大学の学生以外には全く意味の無いスクリプトだけど．