2 つの数値が互いに素であるかどうかを調べる (共素)

ユークリッド法を使用して、2 つの数値が素数 (素数) であるかどうかを調べます。

$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;
 }
}
?>