FC2ブログ
上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

# ハミング数 Hamming Number
# 引数 正の整数 ($Number)
# 戻り値 ハミング数 ($HammingNumber)
sub HAMMINGNUMBER{
my ($Number) = @_;
my $HammingNumber = 0;
my @Prime = (2, 3, 5);
my $Temp = int($Number);

# 数字の確認
if($Number <= 0){
return 0;
}

# 計算
for(my $i = 0; $i < 3; $i++){
while(($Temp % $Prime[$i]) == 0){
$Temp = $Temp / $Prime[$i];
}
}

# 割り切れるなら
if($Temp == 1){
# ハミング数 Hamming Number
$HammingNumber = int($Number);
}

return $HammingNumber;
}


参考URL
Regular number - Wikipedia, the free encyclopedia
オンライン コンパイラ/インタプリタ
テクニカル分析
プロフィール

Author:雨宮
Firefoxを使用しているので気づかなかったけど、IE6でソースコードを上手くコピーできない

5/3
携帯用ならIE6でもソースコードをコピーできる
携帯用

検索フォーム


あわせて読みたいブログパーツ
一寸先は闇 RSS

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。