RhodeCode

      } else {

        int idx = firstFreeItem;

        firstFreeItem = items[firstFreeItem].next;

        return idx;

      }

    }

    bool rep(int idx) const {

      return items[idx].parent < 0;

    }

    int repIndex(int idx) const {

      int k = idx;

      while (!rep(k)) {

        k = items[k].parent;

      }

      while (idx != k) {

        int next = items[idx].parent;

        const_cast<int&>(items[idx].parent) = k;

        idx = next;

      }

      return k;

    }

    int classIndex(int idx) const {

      return ~(items[repIndex(idx)].parent);

    }

    void singletonItem(int idx) {

      items[idx].next = idx;

      items[idx].prev = idx;

    }

    void laceItem(int idx, int rdx) {

      items[idx].prev = rdx;

      items[idx].next = items[rdx].next;

      items[items[rdx].next].prev = idx;

      items[rdx].next = idx;

    }

    void unlaceItem(int idx) {

      items[items[idx].prev].next = items[idx].next;

      items[items[idx].next].prev = items[idx].prev;

      items[idx].next = firstFreeItem;

      firstFreeItem = idx;

    }

    void spliceItems(int ak, int bk) {

      items[items[ak].prev].next = bk;

      items[items[bk].prev].next = ak;

      int tmp = items[ak].prev;

      items[ak].prev = items[bk].prev;

      items[bk].prev = tmp;

    }

    void laceClass(int cls) {

      if (firstClass != -1) {

        classes[firstClass].prev = cls;

      }

      classes[cls].next = firstClass;

      classes[cls].prev = -1;

      firstClass = cls;

    }

    void unlaceClass(int cls) {

      if (classes[cls].prev != -1) {

        classes[classes[cls].prev].next = classes[cls].next;

      } else {

        firstClass = classes[cls].next;

      }

      if (classes[cls].next != -1) {

        classes[classes[cls].next].prev = classes[cls].prev;

      }

      classes[cls].next = firstFreeClass;

      firstFreeClass = cls;

    }

  public:

    UnionFindEnum(ItemIntMap& _index)

      : index(_index), items(), firstFreeItem(-1),

        firstClass(-1), firstFreeClass(-1) {}

    /// \brief Inserts the given element into a new component.

    ///

    /// This method creates a new component consisting only of the

    /// given element.

    ///

    int insert(const Item& item) {

      int idx = newItem();

      index.set(item, idx);

      singletonItem(idx);

      items[idx].item = item;

      int cdx = newClass();

      items[idx].parent = ~cdx;

      laceClass(cdx);

      classes[cdx].size = 1;

      classes[cdx].firstItem = idx;

      firstClass = cdx;

      return cdx;

    }

    /// \brief Inserts the given element into the component of the others.

    ///

    /// This methods inserts the element \e a into the component of the

    /// element \e comp.

    void insert(const Item& item, int cls) {

      int rdx = classes[cls].firstItem;

      int idx = newItem();

      index.set(item, idx);

      laceItem(idx, rdx);

      items[idx].item = item;

      items[idx].parent = rdx;

      ++classes[~(items[rdx].parent)].size;

    }

    /// \brief Clears the union-find data structure

    ///

    /// Erase each item from the data structure.

    void clear() {

      items.clear();

      firstClass = -1;

      firstFreeItem = -1;

    }

    /// \brief Finds the component of the given element.

    ///

    /// The method returns the component id of the given element.

    int find(const Item &item) const {

      return ~(items[repIndex(index[item])].parent);

    }

    /// \brief Joining the component of element \e a and element \e b.

    ///

    /// This is the \e union operation of the Union-Find structure.

    /// Joins the component of element \e a and component of

    /// element \e b. If \e a and \e b are in the same component then

    /// returns -1 else returns the remaining class.

    int join(const Item& a, const Item& b) {

      int ak = repIndex(index[a]);

      int bk = repIndex(index[b]);

      if (ak == bk) {

        return -1;

      }

      int acx = ~(items[ak].parent);

      int bcx = ~(items[bk].parent);

      int rcx;

      if (classes[acx].size > classes[bcx].size) {

        classes[acx].size += classes[bcx].size;

        items[bk].parent = ak;

        unlaceClass(bcx);

        rcx = acx;

      } else {

        classes[bcx].size += classes[acx].size;

        items[ak].parent = bk;

        unlaceClass(acx);

        rcx = bcx;

      }

      spliceItems(ak, bk);

      return rcx;

    }

    /// \brief Returns the size of the class.

    ///

    /// Returns the size of the class.

    int size(int cls) const {

      return classes[cls].size;

    }

    /// \brief Splits up the component.

    ///

    /// Splitting the component into singleton components (component

    /// of size one).

    void split(int cls) {

      int fdx = classes[cls].firstItem;

      int idx = items[fdx].next;

      while (idx != fdx) {

        int next = items[idx].next;

        singletonItem(idx);

        int cdx = newClass();

        items[idx].parent = ~cdx;

        laceClass(cdx);

        classes[cdx].size = 1;

        classes[cdx].firstItem = idx;

        idx = next;

      }

      items[idx].prev = idx;

      items[idx].next = idx;

      classes[~(items[idx].parent)].size = 1;

    }

    /// \brief Removes the given element from the structure.

    ///

    /// Removes the element from its component and if the component becomes

    /// empty then removes that component from the component list.

    ///

    /// \warning It is an error to remove an element which is not in

    /// the structure.

    /// \warning This running time of this operation is proportional to the

    /// number of the items in this class.

    void erase(const Item& item) {

      int idx = index[item];

      int fdx = items[idx].next;

      int cdx = classIndex(idx);

      if (idx == fdx) {

        unlaceClass(cdx);

        items[idx].next = firstFreeItem;

        firstFreeItem = idx;

        return;

      } else {

        classes[cdx].firstItem = fdx;

        --classes[cdx].size;

        items[fdx].parent = ~cdx;

        unlaceItem(idx);

        idx = items[fdx].next;

        while (idx != fdx) {

          items[idx].parent = fdx;

          idx = items[idx].next;

        }

      }

    }

    /// \brief Gives back a representant item of the component.

    ///

    /// Gives back a representant item of the component.

    Item item(int cls) const {

      return items[classes[cls].firstItem].item;

    }

    /// \brief Removes the component of the given element from the structure.

    ///

    /// Removes the component of the given element from the structure.

    ///

    /// \warning It is an error to give an element which is not in the

    /// structure.

    void eraseClass(int cls) {

      int fdx = classes[cls].firstItem;

      unlaceClass(cls);

      items[items[fdx].prev].next = firstFreeItem;

      firstFreeItem = fdx;

    }

    /// \brief LEMON style iterator for the representant items.

    ///

    /// ClassIt is a lemon style iterator for the components. It iterates

    /// on the ids of the classes.

    class ClassIt {

    public:

      /// \brief Constructor of the iterator

      ///

      /// Constructor of the iterator

      ClassIt(const UnionFindEnum& ufe) : unionFind(&ufe) {

        cdx = unionFind->firstClass;

      }

      /// \brief Constructor to get invalid iterator

      ///

      /// Constructor to get invalid iterator

      ClassIt(Invalid) : unionFind(0), cdx(-1) {}

      /// \brief Increment operator

      ///

      /// It steps to the next representant item.

      ClassIt& operator++() {

        cdx = unionFind->classes[cdx].next;

        return *this;

      }

      /// \brief Conversion operator

      ///

      /// It converts the iterator to the current representant item.

      operator int() const {

        return cdx;

      }

      /// \brief Equality operator

      ///

      /// Equality operator

      bool operator==(const ClassIt& i) {

        return i.cdx == cdx;

      }

      /// \brief Inequality operator

      ///

      /// Inequality operator

      bool operator!=(const ClassIt& i) {

        return i.cdx != cdx;

      }

    private:

      const UnionFindEnum* unionFind;

      int cdx;

    };

    /// \brief LEMON style iterator for the items of a component.

    ///

    /// ClassIt is a lemon style iterator for the components. It iterates

    /// on the items of a class. By example if you want to iterate on

    /// each items of each classes then you may write the next code.

    ///\code

    /// for (ClassIt cit(ufe); cit != INVALID; ++cit) {

    ///   std::cout << "Class: ";

    ///   for (ItemIt iit(ufe, cit); iit != INVALID; ++iit) {

    ///     std::cout << toString(iit) << ' ' << std::endl;

    ///   }

    ///   std::cout << std::endl;

    /// }

    ///\endcode

    class ItemIt {

    public:

      /// \brief Constructor of the iterator

      ///

      /// Constructor of the iterator. The iterator iterates

      /// on the class of the \c item.

      ItemIt(const UnionFindEnum& ufe, int cls) : unionFind(&ufe) {

        fdx = idx = unionFind->classes[cls].firstItem;

      }

      /// \brief Constructor to get invalid iterator

      ///

      /// Constructor to get invalid iterator

      ItemIt(Invalid) : unionFind(0), idx(-1) {}

      /// \brief Increment operator

      ///

      /// It steps to the next item in the class.

      ItemIt& operator++() {

        idx = unionFind->items[idx].next;

        if (idx == fdx) idx = -1;

        return *this;

      }

      /// \brief Conversion operator

      ///

      /// It converts the iterator to the current item.

      operator const Item&() const {

        return unionFind->items[idx].item;

      }

      /// \brief Equality operator

      ///

      /// Equality operator

      bool operator==(const ItemIt& i) {

        return i.idx == idx;

      }

      /// \brief Inequality operator

      ///

      /// Inequality operator

      bool operator!=(const ItemIt& i) {

        return i.idx != idx;

      }

    private:

      const UnionFindEnum* unionFind;

      int idx, fdx;

    };

  };

  /// \ingroup auxdat

  ///

  /// \brief A \e Extend-Find data structure implementation which

  /// is able to enumerate the components.

  ///

  /// The class implements an \e Extend-Find data structure which is

  /// able to enumerate the components and the items in a

  /// component. The data structure is a simplification of the

  /// Union-Find structure, and it does not allow to merge two components.

  ///

  /// \pre You need to add all the elements by the \ref insert()

  /// method.

  template <typename IM>

  class ExtendFindEnum {

  public:

    ///\e

    typedef IM ItemIntMap;

    ///\e

    typedef typename ItemIntMap::Key Item;

  private:

    ItemIntMap& index;

    struct ItemT {

      int cls;

      Item item;

      int next, prev;

    };

    std::vector<ItemT> items;

    int firstFreeItem;

    struct ClassT {

      int firstItem;

      int next, prev;

    };

    std::vector<ClassT> classes;

    int firstClass, firstFreeClass;

    int newClass() {

      if (firstFreeClass != -1) {

        int cdx = firstFreeClass;

        firstFreeClass = classes[cdx].next;

        return cdx;

      } else {

        classes.push_back(ClassT());

        return classes.size() - 1;

      }

    }

    int newItem() {

      if (firstFreeItem != -1) {

        int idx = firstFreeItem;

        firstFreeItem = items[idx].next;

        return idx;

      } else {

        items.push_back(ItemT());

        return items.size() - 1;

      }

    }

  public:

    /// \brief Constructor

    ExtendFindEnum(ItemIntMap& _index)

      : index(_index), items(), firstFreeItem(-1),

        classes(), firstClass(-1), firstFreeClass(-1) {}

    /// \brief Inserts the given element into a new component.

    ///

    /// This method creates a new component consisting only of the

    /// given element.

    int insert(const Item& item) {

      int cdx = newClass();

      classes[cdx].prev = -1;

      classes[cdx].next = firstClass;

      if (firstClass != -1) {

        classes[firstClass].prev = cdx;

      }

      firstClass = cdx;

      int idx = newItem();

      items[idx].item = item;

      items[idx].cls = cdx;

      items[idx].prev = idx;

      items[idx].next = idx;

      classes[cdx].firstItem = idx;

      index.set(item, idx);

      return cdx;

    }

    /// \brief Inserts the given element into the given component.

    ///

    /// This methods inserts the element \e item a into the \e cls class.

    void insert(const Item& item, int cls) {

      int idx = newItem();

      int rdx = classes[cls].firstItem;

      items[idx].item = item;

      items[idx].cls = cls;

      items[idx].prev = rdx;

      items[idx].next = items[rdx].next;

      items[items[rdx].next].prev = idx;

      items[rdx].next = idx;

      index.set(item, idx);

    }

    /// \brief Clears the union-find data structure

    ///

    /// Erase each item from the data structure.

    void clear() {

      items.clear();

      firstClass = firstFreeClass = firstFreeItem = -1;

    }

    /// \brief Gives back the class of the \e item.

    ///

    /// Gives back the class of the \e item.

    int find(const Item &item) const {

      return items[index[item]].cls;

    }

    /// \brief Gives back a representant item of the component.

    ///

    /// Gives back a representant item of the component.

    Item item(int cls) const {

      return items[classes[cls].firstItem].item;

    }

    /// \brief Removes the given element from the structure.

    ///

    /// Removes the element from its component and if the component becomes

    /// empty then removes that component from the component list.

    ///

    /// \warning It is an error to remove an element which is not in

    /// the structure.

    void erase(const Item &item) {

      int idx = index[item];

      int cdx = items[idx].cls;

      if (idx == items[idx].next) {

        if (classes[cdx].prev != -1) {

          classes[classes[cdx].prev].next = classes[cdx].next;

        } else {

          firstClass = classes[cdx].next;

        }

        if (classes[cdx].next != -1) {

          classes[classes[cdx].next].prev = classes[cdx].prev;

        }

        classes[cdx].next = firstFreeClass;

        firstFreeClass = cdx;

      } else {

        classes[cdx].firstItem = items[idx].next;

        items[items[idx].next].prev = items[idx].prev;

        items[items[idx].prev].next = items[idx].next;

      }

      items[idx].next = firstFreeItem;

      firstFreeItem = idx;

    }

    /// \brief Removes the component of the given element from the structure.

    ///

    /// Removes the component of the given element from the structure.

    ///

    /// \warning It is an error to give an element which is not in the

    /// structure.

    void eraseClass(int cdx) {

      int idx = classes[cdx].firstItem;

      items[items[idx].prev].next = firstFreeItem;

      firstFreeItem = idx;

      if (classes[cdx].prev != -1) {

        classes[classes[cdx].prev].next = classes[cdx].next;

      } else {

        firstClass = classes[cdx].next;

      }

      if (classes[cdx].next != -1) {

        classes[classes[cdx].next].prev = classes[cdx].prev;

      }

      classes[cdx].next = firstFreeClass;

      firstFreeClass = cdx;

    }

    /// \brief LEMON style iterator for the classes.

    ///

    /// ClassIt is a lemon style iterator for the components. It iterates

    /// on the ids of classes.

    class ClassIt {

    public:

      /// \brief Constructor of the iterator

      ///

      /// Constructor of the iterator

      ClassIt(const ExtendFindEnum& ufe) : extendFind(&ufe) {

        cdx = extendFind->firstClass;

      }

      /// \brief Constructor to get invalid iterator

      ///

      /// Constructor to get invalid iterator

      ClassIt(Invalid) : extendFind(0), cdx(-1) {}

      /// \brief Increment operator

      ///

      /// It steps to the next representant item.

      ClassIt& operator++() {

        cdx = extendFind->classes[cdx].next;

        return *this;

      }

      /// \brief Conversion operator

      ///

      /// It converts the iterator to the current class id.

      operator int() const {

        return cdx;

      }

      /// \brief Equality operator

      ///

      /// Equality operator

      bool operator==(const ClassIt& i) {

        return i.cdx == cdx;

      }

      /// \brief Inequality operator

      ///

      /// Inequality operator

      bool operator!=(const ClassIt& i) {

        return i.cdx != cdx;

      }

    private:

      const ExtendFindEnum* extendFind;

      int cdx;

    };

    /// \brief LEMON style iterator for the items of a component.

    ///

    /// ClassIt is a lemon style iterator for the components. It iterates

    /// on the items of a class. By example if you want to iterate on

    /// each items of each classes then you may write the next code.

    ///\code

    /// for (ClassIt cit(ufe); cit != INVALID; ++cit) {

    ///   std::cout << "Class: ";

    ///   for (ItemIt iit(ufe, cit); iit != INVALID; ++iit) {

    ///     std::cout << toString(iit) << ' ' << std::endl;

    ///   }

    ///   std::cout << std::endl;

    /// }

    ///\endcode

    class ItemIt {

    public:

      /// \brief Constructor of the iterator

      ///

      /// Constructor of the iterator. The iterator iterates

      /// on the class of the \c item.

      ItemIt(const ExtendFindEnum& ufe, int cls) : extendFind(&ufe) {

        fdx = idx = extendFind->classes[cls].firstItem;

      }

      /// \brief Constructor to get invalid iterator

      ///

      /// Constructor to get invalid iterator

      ItemIt(Invalid) : extendFind(0), idx(-1) {}

      /// \brief Increment operator

      ///

      /// It steps to the next item in the class.

      ItemIt& operator++() {

        idx = extendFind->items[idx].next;

        if (fdx == idx) idx = -1;

        return *this;

      }

      /// \brief Conversion operator

      ///

      /// It converts the iterator to the current item.

      operator const Item&() const {

        return extendFind->items[idx].item;

      }

      /// \brief Equality operator

      ///

      /// Equality operator

      bool operator==(const ItemIt& i) {

        return i.idx == idx;

      }

      /// \brief Inequality operator

      ///

      /// Inequality operator

      bool operator!=(const ItemIt& i) {

        return i.idx != idx;

      }

    private:

      const ExtendFindEnum* extendFind;

      int idx, fdx;

    };

  };

  /// \ingroup auxdat

  ///

  /// \brief A \e Union-Find data structure implementation which

  /// is able to store a priority for each item and retrieve the minimum of

  /// each class.

  ///

  /// A \e Union-Find data structure implementation which is able to

  /// store a priority for each item and retrieve the minimum of each

  /// class. In addition, it supports the joining and splitting the

  /// components. If you don't need this feature then you makes

  /// better to use the \ref UnionFind class which is more efficient.

  ///

  /// The union-find data strcuture based on a (2, 16)-tree with a

  /// tournament minimum selection on the internal nodes. The insert

  /// operation takes O(1), the find, set, decrease and increase takes

  /// O(log(n)), where n is the number of nodes in the current

  /// component.  The complexity of join and split is O(log(n)*k),

  /// where n is the sum of the number of the nodes and k is the

  /// number of joined components or the number of the components

  /// after the split.

  ///

  /// \pre You need to add all the elements by the \ref insert()

  /// method.

  template <typename V, typename IM, typename Comp = std::less<V> >

  class HeapUnionFind {

  public:

    ///\e

    typedef V Value;

    ///\e

    typedef typename IM::Key Item;

    ///\e

    typedef IM ItemIntMap;

    ///\e

    typedef Comp Compare;

  private:

    static const int cmax = 16;

    ItemIntMap& index;

    struct ClassNode {

      int parent;

      int depth;

      int left, right;

      int next, prev;

    };

    int first_class;

    int first_free_class;

    std::vector<ClassNode> classes;

    int newClass() {

      if (first_free_class < 0) {

        int id = classes.size();

        classes.push_back(ClassNode());

        return id;

      } else {

        int id = first_free_class;

        first_free_class = classes[id].next;

        return id;

      }

    }

    void deleteClass(int id) {

      classes[id].next = first_free_class;

      first_free_class = id;

    }

    struct ItemNode {

      int parent;

      Item item;

      Value prio;

      int next, prev;

      int left, right;

      int size;

    };

    int first_free_node;

    std::vector<ItemNode> nodes;

    int newNode() {

      if (first_free_node < 0) {

        int id = nodes.size();

        nodes.push_back(ItemNode());

        return id;

      } else {

        int id = first_free_node;

        first_free_node = nodes[id].next;

        return id;

      }

    }

    void deleteNode(int id) {

      nodes[id].next = first_free_node;

      first_free_node = id;

    }

    Comp comp;

    int findClass(int id) const {

      int kd = id;

      while (kd >= 0) {

        kd = nodes[kd].parent;

      }

      return ~kd;

    }

    int leftNode(int id) const {

      int kd = ~(classes[id].parent);

      for (int i = 0; i < classes[id].depth; ++i) {

        kd = nodes[kd].left;

      }

      return kd;

    }

    int nextNode(int id) const {

      int depth = 0;

      while (id >= 0 && nodes[id].next == -1) {

        id = nodes[id].parent;

        ++depth;

      }

      if (id < 0) {

        return -1;

      }

      id = nodes[id].next;

      while (depth--) {

        id = nodes[id].left;

      }

      return id;

    }

    void setPrio(int id) {

      int jd = nodes[id].left;

      nodes[id].prio = nodes[jd].prio;

      nodes[id].item = nodes[jd].item;

      jd = nodes[jd].next;

      while (jd != -1) {

        if (comp(nodes[jd].prio, nodes[id].prio)) {

          nodes[id].prio = nodes[jd].prio;

          nodes[id].item = nodes[jd].item;

        }

        jd = nodes[jd].next;

      }

    }

    void push(int id, int jd) {

      nodes[id].size = 1;

      nodes[id].left = nodes[id].right = jd;

      nodes[jd].next = nodes[jd].prev = -1;

      nodes[jd].parent = id;

    }

    void pushAfter(int id, int jd) {

      int kd = nodes[id].parent;

      if (nodes[id].next != -1) {

        nodes[nodes[id].next].prev = jd;

        if (kd >= 0) {

          nodes[kd].size += 1;

        }

      } else {

        if (kd >= 0) {

          nodes[kd].right = jd;

          nodes[kd].size += 1;

        }

      }

      nodes[jd].next = nodes[id].next;

      nodes[jd].prev = id;

      nodes[id].next = jd;

      nodes[jd].parent = kd;

    }

    void pushRight(int id, int jd) {

      nodes[id].size += 1;

      nodes[jd].prev = nodes[id].right;

      nodes[jd].next = -1;

      nodes[nodes[id].right].next = jd;

      nodes[id].right = jd;

      nodes[jd].parent = id;

    }

    void popRight(int id) {

      nodes[id].size -= 1;

      int jd = nodes[id].right;

      nodes[nodes[jd].prev].next = -1;

      nodes[id].right = nodes[jd].prev;

    }

    void splice(int id, int jd) {

      nodes[id].size += nodes[jd].size;

      nodes[nodes[id].right].next = nodes[jd].left;

      nodes[nodes[jd].left].prev = nodes[id].right;

      int kd = nodes[jd].left;

      while (kd != -1) {

        nodes[kd].parent = id;

        kd = nodes[kd].next;

      }

      nodes[id].right = nodes[jd].right;

    }

    void split(int id, int jd) {

      int kd = nodes[id].parent;

      nodes[kd].right = nodes[id].prev;

      nodes[nodes[id].prev].next = -1;

      nodes[jd].left = id;

      nodes[id].prev = -1;

      int num = 0;

      while (id != -1) {

        nodes[id].parent = jd;

        nodes[jd].right = id;

        id = nodes[id].next;

        ++num;

      }

      nodes[kd].size -= num;

      nodes[jd].size = num;

    }

    void pushLeft(int id, int jd) {

      nodes[id].size += 1;

      nodes[jd].next = nodes[id].left;

      nodes[jd].prev = -1;

      nodes[nodes[id].left].prev = jd;

      nodes[id].left = jd;

      nodes[jd].parent = id;

    }

    void popLeft(int id) {

      nodes[id].size -= 1;

      int jd = nodes[id].left;

      nodes[nodes[jd].next].prev = -1;

      nodes[id].left = nodes[jd].next;

    }

    void repairLeft(int id) {

      int jd = ~(classes[id].parent);

      while (nodes[jd].left != -1) {

        int kd = nodes[jd].left;

        if (nodes[jd].size == 1) {

          if (nodes[jd].parent < 0) {

            classes[id].parent = ~kd;

            classes[id].depth -= 1;

            nodes[kd].parent = ~id;

            deleteNode(jd);

            jd = kd;

          } else {

            int pd = nodes[jd].parent;

            if (nodes[nodes[jd].next].size < cmax) {

              pushLeft(nodes[jd].next, nodes[jd].left);

              if (less(jd, nodes[jd].next) ||

                  nodes[jd].item == nodes[pd].item) {

                nodes[nodes[jd].next].prio = nodes[jd].prio;

                nodes[nodes[jd].next].item = nodes[jd].item;

              }

              popLeft(pd);

              deleteNode(jd);

              jd = pd;

            } else {

              int ld = nodes[nodes[jd].next].left;

              popLeft(nodes[jd].next);

              pushRight(jd, ld);

              if (less(ld, nodes[jd].left) ||

                  nodes[ld].item == nodes[pd].item) {

                nodes[jd].item = nodes[ld].item;

                nodes[jd].prio = nodes[ld].prio;

              }

              if (nodes[nodes[jd].next].item == nodes[ld].item) {

                setPrio(nodes[jd].next);

              }

              jd = nodes[jd].left;

            }

          }

        } else {

          jd = nodes[jd].left;

        }

      }

    }

    void repairRight(int id) {

      int jd = ~(classes[id].parent);

      while (nodes[jd].right != -1) {

        int kd = nodes[jd].right;

        if (nodes[jd].size == 1) {

          if (nodes[jd].parent < 0) {

            classes[id].parent = ~kd;

            classes[id].depth -= 1;

            nodes[kd].parent = ~id;

            deleteNode(jd);

            jd = kd;

          } else {

            int pd = nodes[jd].parent;

            if (nodes[nodes[jd].prev].size < cmax) {

              pushRight(nodes[jd].prev, nodes[jd].right);

              if (less(jd, nodes[jd].prev) ||

                  nodes[jd].item == nodes[pd].item) {

                nodes[nodes[jd].prev].prio = nodes[jd].prio;

                nodes[nodes[jd].prev].item = nodes[jd].item;

              }

              popRight(pd);

              deleteNode(jd);

              jd = pd;

            } else {

              int ld = nodes[nodes[jd].prev].right;

              popRight(nodes[jd].prev);

              pushLeft(jd, ld);

              if (less(ld, nodes[jd].right) ||

                  nodes[ld].item == nodes[pd].item) {

                nodes[jd].item = nodes[ld].item;

                nodes[jd].prio = nodes[ld].prio;

              }

              if (nodes[nodes[jd].prev].item == nodes[ld].item) {

                setPrio(nodes[jd].prev);

              }

              jd = nodes[jd].right;

            }

          }

        } else {

          jd = nodes[jd].right;