`deg', `mindeg'
---------------

deg(POLY,VAR)
     :: POLY $B$N(B, $BJQ?t(B VAR $B$K4X$9$k:G9b<!?t(B.

mindeg(POLY,VAR)
     :: POLY $B$N(B, $BJQ?t(B VAR $B$K4X$9$k:GDc<!?t(B.

RETURN
     $B<+A3?t(B

POLY
     $BB?9`<0(B

VAR
     $BITDj85(B

   * $BM?$($i$l$?B?9`<0$NJQ?t(B VAR $B$K4X$9$k:G9b<!?t(B, $B:GDc<!?t$r=PNO$9$k(B.

   * $BJQ?t(B VAR $B$r>JN,$9$k$3$H$O=PMh$J$$(B.

     [0] deg((x+y+z)^10,x);
     10
     [1] deg((x+y+z)^10,w);
     0
     [75] mindeg(x^2+3*x*y,x);
     1

