算法小白探索之路--丁丁的第二次算法作业红黑树

这是丁丁的第二次算法作业了，红黑树个人感觉有点难，借鉴了很多代码，侵权联系我。然后我觉得我这个代码很适合小白跑一跑，因为输入基本上有手就行。小白可以体验一下红黑树到底是怎么回事。然后特意增加了一个横向的树状打印，帮助大家理解红黑树的结构。

public class RBTree<T extends Comparable<T>> {

    private RBTNode<T> mRoot;    // 根结点

    private static final boolean RED = false;
    private static final boolean BLACK = true;


    public class RBTNode<T extends Comparable<T>> {
        boolean color;        // 颜色
        T key;                // 关键字(键值)
        RBTNode<T> left;    // 左孩子
        RBTNode<T> right;    // 右孩子
        RBTNode<T> parent;    // 父结点
//节点方法给各个属性赋值
        public RBTNode(T key, boolean color, RBTNode<T> parent, RBTNode<T> left, RBTNode<T> right) {
            this.key = key;
            this.color = color;
            this.parent = parent;
            this.left = left;
            this.right = right;
        }

        //定义T方法
        public T getKey() {
            return key;
        }

            }
    //根节点赋初值
    public RBTree() {
        mRoot = null;
    }
    //寻找父节点，若节点为空则返回空值，若非空返回它的父节点
    private RBTNode<T> parentOf(RBTNode<T> node) {
        return node != null ? node.parent : null;
    }
    //颜色寻找，当节点不为空时返回节点颜色，反之返回黑色
    private boolean colorOf(RBTNode<T> node) {
        return node != null ? node.color : BLACK;
    }
    //判断是否为红色，当节点为红色时返回true
    private boolean isRed(RBTNode<T> node) {
        return ((node != null) && (node.color == RED)) ? true : false;
    }
    //判断是否为黑色，当节点为黑色时返回true
    private boolean isBlack(RBTNode<T> node) {
        return !isRed(node);
    }
    //建立黑色如果节点非空则黑色
    private void setBlack(RBTNode<T> node) {
        if (node != null)
            node.color = BLACK;
    }
    //建立红色
    private void setRed(RBTNode<T> node) {
        if (node != null)
            node.color = RED;
    }
    //建立父节点
    private void setParent(RBTNode<T> node, RBTNode<T> parent) {
        if (node != null)
            node.parent = parent;
    }
    //建立颜色
    private void setColor(RBTNode<T> node, boolean color) {
        if (node != null)
            node.color = color;
    }
/*
 * 前序遍历"红黑树"
 */
private void preOrder(RBTNode<T> tree) {
    if (tree != null) {
        System.out.print(tree.key + " ");
        preOrder(tree.left);
        preOrder(tree.right);
    }
}

public void preOrder() {
    preOrder(mRoot);
}

/*
 * 中序遍历"红黑树"
 */
private void inOrder(RBTNode<T> tree) {
    if (tree != null) {
        inOrder(tree.left);
        System.out.print(tree.key + " ");
        inOrder(tree.right);
    }
}

public void inOrder() {
    inOrder(mRoot);
}


/*
 * 后序遍历"红黑树"
 */
private void postOrder(RBTNode<T> tree) {
    if (tree != null) {
        postOrder(tree.left);
        postOrder(tree.right);
        System.out.print(tree.key + " ");
    }
}

public void postOrder() {
    postOrder(mRoot);
}


/*
 * (递归实现)查找"红黑树x"中键值为key的节点
 */
private RBTNode<T> search(RBTNode<T> x, T key) {
    if (x == null)
        return x;

    int cmp = key.compareTo(x.key);
    if (cmp < 0)
        return search(x.left, key);
    else if (cmp > 0)
        return search(x.right, key);
    else
        return x;
}

public boolean search(T key) {
    return (search(mRoot,key)!=null);
}
/*
 * (非递归实现)查找"红黑树x"中键值为key的节点
 */
private RBTNode<T> iterativeSearch(RBTNode<T> x, T key) {
    while (x != null) {
        int cmp = key.compareTo(x.key);

        if (cmp < 0)
            x = x.left;
        else if (cmp > 0)
            x = x.right;
        else
            return x;
    }

    return x;
}

/*
 * 查找最小结点：返回tree为根结点的红黑树的最小结点。
 */
private RBTNode<T> minimum(RBTNode<T> tree) {
    if (tree == null)
        return null;

    while (tree.left != null)
        tree = tree.left;
    return tree;
}

public T minimum() {
    RBTNode<T> p = minimum(mRoot);
    if (p != null)
        return p.key;

    return null;
}

/*
 * 查找最大结点：返回tree为根结点的红黑树的最大结点。
 */
private RBTNode<T> maximum(RBTNode<T> tree) {
    if (tree == null)
        return null;

    while (tree.right != null)
        tree = tree.right;
    return tree;
}

public T maximum() {
    RBTNode<T> p = maximum(mRoot);
    if (p != null)
        return p.key;

    return null;
}
private void leftRotate(RBTNode<T> x) {
    // 设置x的右孩子为y
    RBTNode<T> y = x.right;
    // 将 “y的左孩子” 设为 “x的右孩子”；
    // 如果y的左孩子非空，将 “x” 设为 “y的左孩子的父亲”
    x.right = y.left;
    if (y.left != null)
        y.left.parent = x;
    // 将 “x的父亲” 设为 “y的父亲”
    y.parent = x.parent;
    if (x.parent == null) {
        this.mRoot = y;            // 如果 “x的父亲” 是空节点，则将y设为根节点
    } else {
        if (x.parent.left == x)
            x.parent.left = y;    // 如果 x是它父节点的左孩子，则将y设为“x的父节点的左孩子”
        else
            x.parent.right = y;    // 如果 x是它父节点的左孩子，则将y设为“x的父节点的左孩子”
    }
    // 将 “x” 设为 “y的左孩子”
    y.left = x;
    // 将 “x的父节点” 设为 “y”
    x.parent = y;
}


private void rightRotate(RBTNode<T> y) {
    // 设置x是当前节点的左孩子。
    RBTNode<T> x = y.left;

    // 将 “x的右孩子” 设为 “y的左孩子”；
    // 如果"x的右孩子"不为空的话，将 “y” 设为 “x的右孩子的父亲”
    y.left = x.right;
    if (x.right != null)
        x.right.parent = y;

    // 将 “y的父亲” 设为 “x的父亲”
    x.parent = y.parent;

    if (y.parent == null) {
        this.mRoot = x;            // 如果 “y的父亲” 是空节点，则将x设为根节点
    } else {
        if (y == y.parent.right)
            y.parent.right = x;    // 如果 y是它父节点的右孩子，则将x设为“y的父节点的右孩子”
        else
            y.parent.left = x;    // (y是它父节点的左孩子) 将x设为“x的父节点的左孩子”
    }

    // 将 “y” 设为 “x的右孩子”
    x.right = y;

    // 将 “y的父节点” 设为 “x”
    y.parent = x;
}
private void insertFixUp(RBTNode<T> node) {
    RBTNode<T> parent, gparent;
    // 若“父节点存在，并且父节点的颜色是红色”
    while (((parent = parentOf(node)) != null) && isRed(parent)) {
        gparent = parentOf(parent);
        //若“父节点”是“祖父节点的左孩子”
        if (parent == gparent.left) {
            // Case 1条件：叔叔节点是红色
            RBTNode<T> uncle = gparent.right;
            if ((uncle != null) && isRed(uncle)) {
                setBlack(uncle);
                setBlack(parent);
                setRed(gparent);
                node = gparent;
                continue;
            }
            // Case 2条件：叔叔是黑色，且当前节点是右孩子
            if (parent.right == node) {
                RBTNode<T> tmp;
                leftRotate(parent);
                tmp = parent;
                parent = node;
                node = tmp;
            }
            // Case 3条件：叔叔是黑色，且当前节点是左孩子。
            setBlack(parent);
            setRed(gparent);
            rightRotate(gparent);
        } else {    //若“z的父节点”是“z的祖父节点的右孩子”
            // Case 1条件：叔叔节点是红色
            RBTNode<T> uncle = gparent.left;
            if ((uncle != null) && isRed(uncle)) {
                setBlack(uncle);
                setBlack(parent);
                setRed(gparent);
                node = gparent;
                continue;
            }
            // Case 2条件：叔叔是黑色，且当前节点是左孩子
            if (parent.left == node) {
                RBTNode<T> tmp;
                rightRotate(parent);
                tmp = parent;
                parent = node;
                node = tmp;
            }
            // Case 3条件：叔叔是黑色，且当前节点是右孩子。
            setBlack(parent);
            setRed(gparent);
            leftRotate(gparent);
        }
    }
    // 将根节点设为黑色
    setBlack(this.mRoot);
}

/*
 * 将结点插入到红黑树中
 *
 * 参数说明：
 *     node 插入的结点        // 对应《算法导论》中的node
 */
private void insert(RBTNode<T> node) {
    int cmp;
    RBTNode<T> y = null;
    RBTNode<T> x = this.mRoot;
    // 1. 将红黑树当作一颗二叉查找树，将节点添加到二叉查找树中。
    while (x != null) {
        y = x;
        cmp = node.key.compareTo(x.key);
        if (cmp < 0)
            x = x.left;
        else
            x = x.right;
    }
    node.parent = y;
    if (y != null) {
        cmp = node.key.compareTo(y.key);
        if (cmp < 0)
            y.left = node;
        else
            y.right = node;
    } else {
        this.mRoot = node;
    }
    // 2. 设置节点的颜色为红色
    node.color = RED;
    // 3. 将它重新修正为一颗二叉查找树
    insertFixUp(node);
}

/*
 * 新建结点(key)，并将其插入到红黑树中
 *
 * 参数说明：
 *     key 插入结点的键值
 */
public void insert(T key) {
    RBTNode<T> node = new RBTNode<T>(key, BLACK, null, null, null);
    // 如果新建结点失败，则返回。
    if (node != null)
        insert(node);
}


private void removeFixUp(RBTNode<T> node, RBTNode<T> parent) {
    RBTNode<T> other;

    while ((node == null || isBlack(node)) && (node != this.mRoot)) {
        if (parent.left == node) {
            other = parent.right;
            if (isRed(other)) {
                // Case 1: x的兄弟w是红色的
                setBlack(other);
                setRed(parent);
                leftRotate(parent);
                other = parent.right;
            }

            if ((other.left == null || isBlack(other.left)) &&
                    (other.right == null || isBlack(other.right))) {
                // Case 2: x的兄弟w是黑色，且w的俩个孩子也都是黑色的
                setRed(other);
                node = parent;
                parent = parentOf(node);
            } else {

                if (other.right == null || isBlack(other.right)) {
                    // Case 3: x的兄弟w是黑色的，并且w的左孩子是红色，右孩子为黑色。
                    setBlack(other.left);
                    setRed(other);
                    rightRotate(other);
                    other = parent.right;
                }
                // Case 4: x的兄弟w是黑色的；并且w的右孩子是红色的，左孩子任意颜色。
                setColor(other, colorOf(parent));
                setBlack(parent);
                setBlack(other.right);
                leftRotate(parent);
                node = this.mRoot;
                break;
            }
        } else {

            other = parent.left;
            if (isRed(other)) {
                // Case 1: x的兄弟w是红色的
                setBlack(other);
                setRed(parent);
                rightRotate(parent);
                other = parent.left;
            }

            if ((other.left == null || isBlack(other.left)) &&
                    (other.right == null || isBlack(other.right))) {
                // Case 2: x的兄弟w是黑色，且w的俩个孩子也都是黑色的
                setRed(other);
                node = parent;
                parent = parentOf(node);
            } else {

                if (other.left == null || isBlack(other.left)) {
                    // Case 3: x的兄弟w是黑色的，并且w的左孩子是红色，右孩子为黑色。
                    setBlack(other.right);
                    setRed(other);
                    leftRotate(other);
                    other = parent.left;
                }

                // Case 4: x的兄弟w是黑色的；并且w的右孩子是红色的，左孩子任意颜色。
                setColor(other, colorOf(parent));
                setBlack(parent);
                setBlack(other.left);
                rightRotate(parent);
                node = this.mRoot;
                break;
            }
        }
    }

    if (node != null)
        setBlack(node);
}

/*
 * 删除结点(node)，并返回被删除的结点
 *
 * 参数说明：
 *     node 删除的结点
 */
private void remove(RBTNode<T> node) {
    RBTNode<T> child, parent;
    boolean color;

    // 被删除节点的"左右孩子都不为空"的情况。
    if ((node.left != null) && (node.right != null)) {
        // 被删节点的后继节点。(称为"取代节点")
        // 用它来取代"被删节点"的位置，然后再将"被删节点"去掉。
        RBTNode<T> replace = node;

        // 获取后继节点
        replace = replace.right;
        while (replace.left != null)
            replace = replace.left;

        // "node节点"不是根节点(只有根节点不存在父节点)
        if (parentOf(node) != null) {
            if (parentOf(node).left == node)
                parentOf(node).left = replace;
            else
                parentOf(node).right = replace;
        } else {
            // "node节点"是根节点，更新根节点。
            this.mRoot = replace;
        }

        // child是"取代节点"的右孩子，也是需要"调整的节点"。
        // "取代节点"肯定不存在左孩子！因为它是一个后继节点。
        child = replace.right;
        parent = parentOf(replace);
        // 保存"取代节点"的颜色
        color = colorOf(replace);

        // "被删除节点"是"它的后继节点的父节点"
        if (parent == node) {
            parent = replace;
        } else {
            // child不为空
            if (child != null)
                setParent(child, parent);
            parent.left = child;

            replace.right = node.right;
            setParent(node.right, replace);
        }

        replace.parent = node.parent;
        replace.color = node.color;
        replace.left = node.left;
        node.left.parent = replace;

        if (color == BLACK)
            removeFixUp(child, parent);

        node = null;
        return;
    }

    if (node.left != null) {
        child = node.left;
    } else {
        child = node.right;
    }

    parent = node.parent;
    // 保存"取代节点"的颜色
    color = node.color;

    if (child != null)
        child.parent = parent;

    // "node节点"不是根节点
    if (parent != null) {
        if (parent.left == node)
            parent.left = child;
        else
            parent.right = child;
    } else {
        this.mRoot = child;
    }

    if (color == BLACK)
        removeFixUp(child, parent);
    node = null;
}

/*
 * 删除结点(z)，并返回被删除的结点
 *
 * 参数说明：
 *     tree 红黑树的根结点
 *     z 删除的结点
 */
public void remove(T key) {
    RBTNode<T> node;
    if ((node = search(mRoot, key)) != null)
        remove(node);
}


public static int[] getRandomArrayByIndex(int num,int scope){
    //1.获取scope范围内的所有数值，并存到数组中
    int[] randomArray=new int[scope];
    for(int i=0;i<randomArray.length;i++){
        randomArray[i]=i;
    }

    //2.从数组random中取数据，取过后的数改为-1
    int[] numArray=new int[num];//存储num个随机数
    int i=0;
    while(i<numArray.length){
        int index=(int)(Math.random()*scope);
        if(randomArray[index]!=-1){
            numArray[i]=randomArray[index];
            randomArray[index]=-1;
            i++;
        }
    }

    return numArray;
}

public void padding(String ch, int n) {

    int i;

    for (i = 0; i < n; i++)

        System.out.printf(ch);

}

void print_node(RBTNode<T> root, int level) {//用来分层

    if (root == null) {

        padding("\t", level);

        System.out.println("NIL");

    } else {

        print_node(root.right, level + 1);

        padding("\t", level);

        if (root.color == BLACK) {

            System.out.printf("(%d)\n", root.key);//黑色用括号表示

        } else

            System.out.printf("%d\n", root.key);//红色用没有括号


        print_node(root.left, level + 1);

    }

}

void print_tree() {

    print_node(this.mRoot, 0);

    System.out.printf("-------------------------------------------\n");

}

public void print() {
    if (mRoot != null)
        print(mRoot, mRoot.key, 0);
}
public static void main(String[] args) {
    RBTree st = new RBTree();
    Scanner sc = new Scanner(System.in);
    System.out.println("请输入数据量");
    int num = sc.nextInt();
    System.out.println("请输入数据范围");
    int scope = sc.nextInt();

     int rm[] =getRandomArrayByIndex(num, scope);

    for (int i = 0; i < num; i++) {


        int key = rm[i];

        st.insert(key);
    }
    System.out.println("排序前" + Arrays.toString(rm));
    System.out.print("前序遍历：");
    st.preOrder();
    System.out.print("中序遍历：");
    st.inOrder();
    System.out.print("后序遍历：");
    st.postOrder();
    System.out.println("\n");
    System.out.println("树形打印");
    st.print_tree();



        System.out.print("是否继续操作--是1、否0");
        int con=sc.nextInt();
        while(con!=0){
            System.out.print("选择想要执行的操作：0（结束）、1(删除)、2（删除最小键）、3（删除最大键）、4（搜索）、5（插入）、6（树状打印）");
            int a=sc.nextInt();
            Scanner sw= new Scanner(System.in);

            switch (a) {
                case 0:
                    con=0;
                    break;
                case 1:
                    System.out.println("请输入要删除的值");
                    int b = sw.nextInt();
                    if (st.search(b) == false) System.out.print("不存在该值");
                    st.remove(b);
                    st.inOrder();
                    break;

                case 2:
                    System.out.println(st.minimum());
                    st.remove(st.minimum());
                    st.inOrder();
                    break;

                case 3:
                    System.out.println(st.maximum());
                    st.remove(st.maximum());
                    st.inOrder();
                    break;

                case 4:
                    System.out.print("输入查找的值");
                    int s = sc.nextInt();
                    System.out.println(st.search(s));
                    break;

                case 5:
                    System.out.print("输入插入的值");
                    int i = sc.nextInt();
                    st.insert(i);
                    st.inOrder();
                    break;
                case 6:
                    st.print_tree();
                    break;
            }
        }
    }