`primadec', `primedec'
----------------------

primadec(PLIST,VLIST)

primedec(PLIST,VLIST)
     :: $B%$%G%"%k$NJ,2r(B

RETURN
PLIST
     $BB?9`<0%j%9%H(B

VLIST
     $BJQ?t%j%9%H(B

   * `primadec()', `primedec' $B$O(B `primdec' $B$GDj5A$5$l$F$$$k(B.

   * `primadec()', `primedec()' $B$O$=$l$>$lM-M}?tBN>e$G$N%$%G%"%k$N(B
     $B=`AGJ,2r(B, $B:,4p$NAG%$%G%"%kJ,2r$r9T$&(B.

   * $B0z?t$OB?9`<0%j%9%H$*$h$SJQ?t%j%9%H$G$"$k(B.
     $BB?9`<0$OM-M}?t78?t$N$_$,5v$5$l$k(B.

   * `primadec' $B$O(B `[$B=`AG@.J,(B, $BIUB0AG%$%G%"%k(B]' $B$N%j%9%H$rJV$9(B.

   * `primadec' $B$O(B $BAG0x;R$N%j%9%H$rJV$9(B.

   * $B7k2L$K$*$$$F(B, $BB?9`<0%j%9%H$H$7$FI=<($5$l$F$$$k3F%$%G%"%k$OA4$F(B
     $B%0%l%V%J4pDl$G$"$k(B. $BBP1~$9$k9`=g=x$O(B, $B$=$l$>$l(B $BJQ?t(B `PRIMAORD',
     `PRIMEORD' $B$K3JG<$5$l$F$$$k(B.

   * `primadec' $B$O(B `[Shimoyama,Yokoyama]' $B$N=`AGJ,2r%"%k%4%j%:%`(B
     $B$r<BAu$7$F$$$k(B.

   * $B$b$7AG0x;R$N$_$r5a$a$?$$$J$i(B, `primedec' $B$r;H$&J}$,$h$$(B.  $B$3$l$O(B,
     $BF~NO%$%G%"%k$,:,4p%$%G%"%k$G$J$$>l9g$K(B, `primadec'
     $B$N7W;;$KM>J,$J%3%9%H$,I,MW$H$J$k>l9g$,$"$k$+$i$G$"$k(B.

     [84] load("primdec")$
     [102] primedec([p*q*x-q^2*y^2+q^2*y,-p^2*x^2+p^2*x+p*q*y,
     (q^3*y^4-2*q^3*y^3+q^3*y^2)*x-q^3*y^4+q^3*y^3,
     -q^3*y^4+2*q^3*y^3+(-q^3+p*q^2)*y^2],[p,q,x,y]);
     [[y,x],[y,p],[x,q],[q,p],[x-1,q],[y-1,p],[(y-1)*x-y,q*y^2-2*q*y-p+q]]
     [103] primadec([x,z*y,w*y^2,w^2*y-z^3,y^3],[x,y,z,w]);
     [[[x,z*y,y^2,w^2*y-z^3],[z,y,x]],[[w,x,z*y,z^3,y^3],[w,z,y,x]]]

$B;2>H(B
     *Note `fctr sqfr': fctr sqfr, *Note `$B9`=g=x$N@_Dj(B': $B9`=g=x$N@_Dj(B.

