つ ユークリッドの互除法 DEF GCD(A,B) IF !B THEN RETURN A RETURN GCD(B,A MOD B) END