`dp_subd'
---------

dp_subd(DPOLY1,DPOLY2)
     :: $BF,9`$N>&C19`<0$rJV$9(B.

RETURN
     $BJ,;6I=8=B?9`<0(B

DPOLY1, DPOLY2
     $BJ,;6I=8=B?9`<0(B

   * `dp_ht(DPOLY1)/dp_ht(DPOLY2)' $B$r5a$a$k(B. $B7k2L$N78?t$O(B 1 $B$G$"$k(B.

   * $B3d$j@Z$l$k$3$H$,$"$i$+$8$a$o$+$C$F$$$kI,MW$,$"$k(B.

     [162] dp_subd(<<1,2,3,4,5>>,<<1,1,2,3,4>>);
     (1)*<<0,1,1,1,1>>

$B;2>H(B
     *Note `dp_red dp_red_mod': dp_red dp_red_mod.

