lead_term() [2/2]

ring_elem PolyRing::lead_term ( int nparts, const ring_elem f ) const

virtual

Definition at line 2277 of file poly.cpp.

{
  Nterm *lead = f;
  Nterm head;
  Nterm *result = &head;
  int nslots = M_->n_slots(nparts);
  for (Nterm& a : f)
    {
      if (M_->compare(nslots, lead->monom, a.monom) != EQ) break;
      result->next = new_term();
      result = result->next;
      result->coeff = a.coeff;
      M_->copy(a.monom, result->monom);
    }
  result->next = nullptr;
  return head.next;
}

References EQ, PolynomialRing::M_, Nterm::monom, new_term(), Nterm::next, and result().