Stein算法

#define　CHECK(a)　(!(1&(a)))//判断是否被2整除
#define　CLEAN2(a)　while(CHECK(a))a=a>>=1//移除非公因子的2
#define　BIGERA　if(a<b)(t=a,a=b,b=t)//取较大的数为a

int　gcd(int　a,int　b){
　int　c_2=0,t;
　while((CHECK(a))&&(CHECK(b))){
	　a=a>>=1;b=b>>=1;c_2++;
　}
　CLEAN2(a);
　CLEAN2(b);
　BIGERA;
　while(a==((a-b)>>1)){
	　CLEAN2(a);
	　BIGERA;
　}
　return　b<<c_2;
}

function stein(a,b) {
    if (a==0) {return b;}
    if (b==0) {return a;}
    var c=0;
    while (((a & 1)==0)&&(( b & 1 )==0)) {
        a=a>>1;
        b=b>>1;
        c=c+1;
    }
    while ((a & 1)==0) {
        a=a>>1;
    }
    while ((b & 1)==0) {
        b=b>>1;
    }
    if (a<b) {
        b=(b-a)>>1;
        var r=stein(b,a)<<c;
        return r;
    }
    else {
        a=(a-b)>>1;
        var r=stein(a,b)<<c;
        return r;
    }
}