`gcd', `gcdz'
-------------

gcd(POLY1,POLY2)
gcdz(POLY1,POLY2)
     :: POLY1 $@$H(J POLY2 $@$N(J gcd.

RETURN
     $@B?9`<0(J
POLY1,POLY2
     $@B?9`<0(J

   * $@Fs$D$NB?9`<0$N:GBg8xLs<0(J (GCD) $@$r5a$a$k(J. `gcd()' $@$O(J, $@M-M}?tBN>e$N(J
     $@B?9`<0$H$7$F$N(J GCD $@$rJV$9(J. $@$9$J$o$A(J, $@7k2L$O@0?t78?t$G(J, $@$+$D78?t$N(J 
     GCD$@$,(J 1 $@$K$J$k$h$&$JB?9`<0(J, $@$^$?$O(J, $@8_$$$KAG$N>l9g$O(J 1 $@$rJV$9(J. 
     `gcdz()'$@$O(J, POLY1, POLY2 $@$H$b$K@0?t78?t$N>l9g$K(J, $@@0?t4D>e$NB?9`<0(J
     $@$H$7$F$N(J GCD $@$rJV$9(J. $@$9$J$o$A(J, `gcd()' $@$NCM$K(J, $@78?tA4BN$N@0?t(J GCD
     $@$NCM$r3]$1$?$b$N$rJV$9(J.
   * Extended Zassenhaus $@%"%k%4%j%:%`(J (EZGCD) $@$K$h$k(J.

     [0] gcd(12*(x^2+2*x+1)^2,18*(x^2+(y+1)*x+y)^3);
     x^3+3*x^2+3*x+1
     [0] gcdz(12*(x^2+2*x+1)^2,18*(x^2+(y+1)*x+y)^3);
     6*x^3+18*x^2+18*x+6

$@;2>H(J
     `igcd'

