FC2ブログ

# ユークリッドの互除法 Euclidean Algorithm
# 引数 自然数 自然数 ($a, $b)
# 戻り値 最大公約数 ($EuclideanAlgorithm)
sub EUCLIDEANALGORITHM{
my ($a, $b) = @_;
my $EuclideanAlgorithm = 0;
my $A = int(abs($a));
my $B = int(abs($b));
my $Remainder = 1;

# 値の確認
if(($A == 0) || ($B == 0)){
return 0;
}

($A, $B) = ($B, $A) if($A < $B);

# 計算
while($Remainder != 0){
# 余り
$Remainder = $A % $B;

$A = $B;
$B = $Remainder;
}

# ユークリッドの互除法 Euclidean Algorithm
$EuclideanAlgorithm = $A;

return $EuclideanAlgorithm;
}


自然数が3以上
http://blog-imgs-36.fc2.com/a/m/a/amamiyaprog/EuclideanAlgorithm1.txt

参考URL
ユークリッドの互除法 - Wikipedia
オンライン コンパイラ/インタプリタ
テクニカル分析
プロフィール

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

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

検索フォーム


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