红黑树的插入（map、set的底层实现）

红黑树

红黑树，是一种二叉搜索树，但在每个结点上增加一个存储位表示结点的颜色，可以是Red或Black。 通过对任何一条从根到叶子的路径上各个结点着色方式的限制，红黑树确保没有一条路径会比其他路径长出俩倍，因而是接近平衡的。

性质

1. 每个结点不是红色就是黑色
2. 根节点必是黑色的 (重点)
3. 如果一个节点是红色的，则它的两个孩子结点是黑色的，即没有连续的红节点 (重点)
4. 对于每个结点，从该结点到其所有后代叶结点的简单路径上，均包含相同数目的黑色结点 (重点)
5. 每个叶子结点都是黑色的(此处的叶子结点指的是空结点)

插入

红黑树的插入和二叉搜索树的插入相同，关于二叉搜索树的插入可以参考我以前的博客。

插入后的调整

因为新节点的默认颜色是红色，因此：如果其双亲节点的颜色是黑色，没有违反红黑树任何性质，则不需要调整；但当新插入节点的双亲节点颜色为红色时，就违反了性质三不能有连在一起的红色节点，此时需要对红黑树分情况来讨论：

约定: cur 为当前节点(可能是新插入的也可能不是)，p为父节点，g为祖父节点，u为叔叔节点

• 情况一: cur 为红，p 为红，g 为黑，u 存在且为红
• 这种情况下 cur 是新增节点，因为可以看出 cur 往上的树结构没有破坏红黑树的性质，所以之前就是一颗红黑树，所以 cur 必是新增节点。
• 解决方式: 将 p,u 改为黑，g 改为红，然后把 g 当成 cur，继续向上调整。

• 情况二: cur为红，p为红，g为黑，u不存在
• 此情况下 cur 必是新增节点，如果不是就破坏了性质4
• 解决方式： 若是一条直线，就对祖父节点 (g) 进行 左/右单旋，最后把 p 变黑， g 变红；若是一条折线，就先对父节点 （p） 进行 左/右单旋，再对祖父节点 (g) 进行 左/右单旋，最后把 cur 变黑，把 g 变红。

• 情况三: cur为红，p为红，g为黑，u存在且为黑
• 此时 cur 必定不是新增节点，而是在 cur 的子树向上推演时由黑->红
• 解决方法：直线，则直接在祖父节点 (g) 处进行 左/右单旋，最后把 cur 和 p变黑，把 g 变红； 折线，则先在父节点 （p）进行 左/右单旋，再在祖父节点 (g) 进行 左/右单旋，最后把 cur 变黑，把 g 变红。
  
  总结

1. 叔叔节点 (u) 存在且为红

• 把 p 和 u 变黑，g 变红，如果 g 非根，则继续向上调整。

2. u 不存在

• 直线，则直接对 g 左/右单旋，最后把 p 变黑，g 变红；
• 折线，先对 p 左/右单旋，再对 g 左/右单旋，最后把 cur 变黑， g 变红。

3. u 存在且为黑

• 直线，直接对 g 左/右单旋，最后把 p 变黑， g 变红；
• 折线，先对 p 左/右单旋，再对 g 左/右单旋，最后把 cur 变黑，g 变红。

插入即调整的代码实现

enum Colour
{
	BLACK,
	RED,
};

template<class K, class V>
class RBTreeNode
{
	RBTreeNode<K, V>* _left;
	RBTreeNode<K, V>* _right;
	RBTreeNode<K, V>* _parent;

	pair<K, V> _kv;

	Colour _col;
};

template<class K, class V>
class RBTree
{
	typedef RBTreeNode<K, V> Node;
public:
	bool Insert(const pair<K, V>& kv)
	{
		// 1、按搜索树的规则进行插入
		if (_root == nullptr)
		{
			_root = new Node(kv);
			_root->_col = BLACK;
			return true;
		}

		Node* parent = nullptr;
		Node* cur = _root;
		while (cur)
		{
			if (cur->_kv.first < kv.first)
			{
				parent = cur;
				cur = cur->_right;
			}
			else if (cur->_kv.first > kv.first)
			{
				parent = cur;
				cur = cur->_left;
			}
			else
			{
				return false;
			}
		}

		cur = new Node(kv);
		if (parent->_kv.first < kv.first)
		{
			parent->_right = cur;
			cur->_parent = parent;
		}
		else
		{
			parent->_left = cur;
			cur->_parent = parent;
		}

		// 新增节点是红的
		cur->_col = RED;
		while (parent && parent->_col == RED) //parent存在且为红才处理
		{
			// 关键看叔叔
			Node* grandfther = parent->_parent;
			if (grandfther->_left == parent)
			{
				Node* uncle = grandfther->_right;
				// 情况1：uncle存在，且为红
				// 情况2：uncle不存在
				//情况3：uncle存在，且为黑
				if (uncle && uncle->_col == RED)
				{
					parent->_col = uncle->_col = BLACK;
					grandfther->_col = RED;

					// 继续往上处理
					cur = grandfther;
					parent = cur->_parent;
				}
				else
				{
					// //巧变：双旋-> 单旋
					if (cur == parent->_right)
					{
						RotateL(parent);
						swap(parent, cur);  //交换
					}

					// 第二中情况(ps：有可能是第三种变过来的)
					RotateR(grandfther);
					grandfther->_col = RED;
					parent->_col = BLACK;
					break;
				}
			}
			else
			{
				Node* uncle = grandfther->_left;
				// 情况1：uncle存在，且为红
				// 情况2 or 情况3：uncle不存在 or uncle存在，且为黑
				if (uncle && uncle->_col == RED)
				{
					parent->_col = uncle->_col = BLACK;
					grandfther->_col = RED;

					cur = grandfther;
					parent = cur->_parent;
				}
				else
				{
				    //巧变：双旋-> 单旋
					if (cur == parent->_left)
					{
						RotateR(parent);
						swap(parent, cur);  //交换
					}

					RotateL(grandfther);
					grandfther->_col = RED;
					parent->_col = BLACK;
				}
			}
		}

		_root->_col = BLACK; //保证根为黑

		return true;

	}
	void RotateL(Node* parent) //左单旋
	{
		Node* subR = parent->_right;
		Node* subRL = subR->_left;

		parent->_right = subRL;
		if (subRL)
			subRL->_parent = parent;

		subR->_left = parent;
		Node* ppNode = parent->_parent;
		parent->_parent = subR;
		
		//parent 是根的则让subR做新根
		if (_root == parent)
		{
			_root = subR;
			subR->_parent = nullptr;
		}
		else
		{
			if (ppNode->_left == parent)
				ppNode->_left = subR;
			else
				ppNode->_right = subR;

			subR->_parent = ppNode;
		}
	}

	void RotateR(Node* parent) //右单旋
	{
		Node* subL = parent->_left;
		Node* subLR = subL->_right;

		parent->_left = subLR;
		if (subLR)
			subLR->_parent = parent;

		subL->_right = parent;
		Node* ppNode = parent->_parent;
		parent->_parent = subL;

		if (_root == parent)
		{
			_root = subL;
			subL->_parent = nullptr;
		}
		else
		{
			if (ppNode->_left == parent)
				ppNode->_left = subL;
			else
				ppNode->_right = subL;

			subL->_parent = ppNode;
		}
	}

private:
	Node* _root = nullptr;
};