Risa/Asirでユークリッドの互除法をする

Risa/Asirでユークリッドの互除法を行うプログラムを示す．

      def euclid(A,B){

    if (A<B){
        Tmp = A;
        A = B;
        B = Tmp;
    }else{}

    R = A%B;

    while(R!=0){
        A = B;
        B = R;
        R = A%B;
    }
    printf("最大公約数は%aです\n",B);

}