求兩數是否互質(互素)

利用輾轉相除法求兩數是否互為質數(素數)

$a=200;
$b=13;
//輾轉相除法
if($b>$a){
	$x=$a;$a=$b;$b=$x;
}
while(1){
	//echo "a=".$a." b=".$b;echo "\n";
	if($b==1){echo "互質";break;}
	if($b==0){echo "不互質";break;}
	if($a-$b > $b){
		$a=$a-$b;
	}else{
		$a=$a-$b;
		$x=$a;$a=$b;$b=$x;
	}
}
?>