Hatena::Groupgeneration1986

ギーク目指してみる?

2009-02-10

対数を使おうとした

| 10:59

で、この頁をみつけました。

http://www.rfs.jp/sb/perl/05/log.html


実行しようとして気づいた。

俺サブルーチン使ったことないorz

というわけでこの頁にとびました。

http://www.rfs.jp/sb/perl/02/07.html


そして出力したはいいけど桁数が馬鹿みたいな桁数だったので、ここ見て桁数制限かけてみますた。

http://www.rfs.jp/sb/perl/05/printf.html


最終的にこんなのになりますた。

sub log2 {
    my $n = shift;
    return log($n)/log(2);
}

foreach $i (@doc) {
    if ($i =~ /^[0-9]/){
	$n = $i;
    } else {
	@j = split(/ /, $i);
	$idf = &log2($n/$j[2]) + 1;
	$w = $j[2] * $idf;
	print "$j[0] $j[1] $j[2] ";
	printf ("%4.2f %4.2f\n", $idf, $w);
    }
}