Mapleにて

質問

ユークリッドの互除法とwhile文を用いて，２つの自然数の最大公約数を与える手続きをMapleで書きたいのです．

式をひとつで済ませたいのですが・・・。（２つで書くことはできてます）

回答No.1

inara · ベストアンサー

Mapleには最大公約数を求める関数 gcd(a,b) がありますが、それを使わないで proc で書くという意味ですか？

補足

いえ、一応GODを使います

回答No.2

inara

gcd 関数を使って、２つで書くことができている手続きとはどういうものでしょうか。

補足

GCD := proc (d, e) local a, b, r; a := d; b := e;
while 0 < irem(a, b) do r := irem(a, b); a := b; b := r end do;
b;
end proc

です。こうすると、
GCD := proc (d, e)
local a, b, r;
a := d;
b := e;
while 0 < irem(a, b) do
　r := irem(a, b);
　a := b;
　b := r
end do;
b
end proc

と、なり、式が完成しました。