`setmod_ff'
-----------

setmod_ff([PRIME|POLY])
     :: $BM-8BBN$N@_Dj(B, $B@_Dj$5$l$F$$$kM-8BBN$NK!(B, $BDj5AB?9`<0$NI=<((B

RETURN
     $B?t$^$?$OB?9`<0(B

PRIME
     $BAG?t(B

POLY
     GF(2) $B>e4{Ls$J(B 1 $BJQ?tB?9`<0(B

   * $B0z?t$,@5@0?t(B PRIME $B$N;~(B, GF(PRIME) $B$r4pACBN$H$7$F@_Dj$9$k(B.

   * $B0z?t$,B?9`<0(B POLY $B$N;~(B, GF(2^deg(POLY mod 2)) = GF(2)[t]/(POLY(t)
     mod 2) $B$r4pACBN$H$7$F@_Dj$9$k(B.

   * $BL50z?t$N;~(B, $B@_Dj$5$l$F$$$k4pACBN$,(B GF(PRIME) $B$N>l9g(B PRIME, GF(2^n)
     $B$N>l9gDj5AB?9`<0$rJV$9(B.

   * GF(2^n) $B$NDj5AB?9`<0$O(B, GF(2) $B>e(B n $B<!4{Ls$J$i$J$s$G$bNI$$$,(B, $B8zN($K(B
     $B1F6A$9$k$?$a(B, `defpoly_mod2()' $B$G@8@.$9$k$N$,$h$$(B.

     [174] defpoly_mod2(100);
     x^100+x^15+1
     [175] setmod_ff(@@);
     x^100+x^15+1
     [176] setmod_ff();
     x^100+x^15+1

$B;2>H(B
     *Note `defpoly_mod2': defpoly_mod2

