〓 Mathematica 四 〓
■ このスレッドは過去ログ倉庫に格納されています
0805１３２人目の素数さん
2010/05/16(日) 07:45:43Fortranの様に手続き的に,しかも再帰呼び出しなしということですか？
だったらこんな感じでどうですか？
gcd[x_, y_] :=
Module[{x0 = x, y0 = y, r},
While[y0 > 0, r = Mod[x0, y0]; x0 = y0; y0 = r]; x0]
■ このスレッドは過去ログ倉庫に格納されています