04-树5 Root of AVL Tree（25 分）

method_1:有两个测试点未通过，参考的严奶奶《数据结构》中的方法。如果你有改进的算法，欢迎评论。

#include<stdio.h>
#include<stdlib.h>
#include<malloc.h>

typedef struct node{
	int data;
	int pf;
	struct node *left;
	struct node *right;
}*BTree; 

BTree R_rotate(BTree p)
{   //对以*p为根的二叉树做右旋处理，之后返回新的树根节点 
	BTree lc=p->left;
	p->left=lc->right;
	lc->right=p;
	return lc;
}
BTree L_rotate(BTree p)
{   //对以p为根的结点的二叉树做左旋处理,之后返回新的树根节点 
	BTree rl=p->right;
	p->right=rl->left;
	rl->left=p;
	return rl;
}
BTree RightBalance(BTree p)
{   //对p所指的根结点的二叉树的做y右平衡处理 
	BTree rd,rc=p->right;
	switch(rc->pf){
		case -1:
			p->pf=0;rc->pf=0;
			p=L_rotate(p);break;
		case 1:
			rd=rc->left;
			switch(rd->pf){
				case 1:   //左子树高于右子树 
					p->pf=0;rc->pf=-1;break; 
				case 0:    //左右子树高度相等 
					p->pf=0;rc->pf=0;break;
				case -1:   //右子树高于左子树
				    p->pf=-1;rc->pf=0;break; 
			}
			rd->pf=0;
			p->right=R_rotate(p->right);
			p=L_rotate(p);
	} 
	return p;
}
BTree LeftBalance(BTree p)
{    //对p所指的根结点的二叉树的做左平衡处理 
	BTree rd,lc=p->left;
	switch(lc->pf){
		case 1:
			p->pf=0;lc->pf=0;    //
			p=R_rotate(p);break;
		case -1:
			rd=lc->right;
			switch(rd->pf){
				case 1:
					p->pf=-1;lc->pf=0;break;
				case 0:
					p->pf=0;lc->pf=0;break;
				case -1:
					p->pf=0;lc->pf=1;break; 
			}
			rd->pf=0;
			p->left=L_rotate(p->left);
			p=R_rotate(p);
	} 
	return p;
}
BTree Insert(BTree BT,int x,int *taller)
{
	BTree p=BT,q;
	if(!BT){      //为空时开辟空间 
	    q=(BTree)malloc(sizeof(BTree));
	    q->data=x;q->pf=0;q->left=NULL;q->right=NULL;
	    *taller=1;
	    p=q;
    }
	else{
		if(x<p->data){  //插入左子树 
		    p->left=Insert(p->left,x,taller);
			if(*taller){   // 
				switch(p->pf){
					case 1:
						p=LeftBalance(p);*taller=0;break;
					case 0:
						p->pf=1;*taller=1;break;
					case -1:
					    p->pf=0;*taller=0;break; 
				}
			}
		}
		else{
		    p->right=Insert(p->right,x,taller);
			if(*taller){
				switch(p->pf){
					case 1:
						p->pf=1;*taller=0;break;
					case 0:
						p->pf=-1;*taller=1;break;
					case -1:
						p=RightBalance(p);*taller=0;break;
				}
			}
		}
	}
	return p; 
}
//测试数据用的，调试
void PreorderTraversal( BTree BT ) // 先序遍历，由裁判实现，细节不表 
{
	if(BT){
		printf("%d ",BT->data);
		PreorderTraversal(BT->left);
		PreorderTraversal(BT->right);
	} 
} 
void InorderTraversal( BTree BT ) //先序遍历，由裁判实现，细节不表 
{
	if(BT){
		InorderTraversal(BT->left);
		printf("%d ",BT->data);
		InorderTraversal(BT->right);
	} 
}

int main()
{
	int N,i,x,p;
	BTree BT=NULL;
	scanf("%d",&N);
	for(i=0;i<N;i++){
		scanf("%d",&x);
		BT=Insert(BT,x,&p);
	}
	BTree q=BT;
	PreorderTraversal(BT );
	printf("\n");
	InorderTraversal( q );
	//printf("%d",BT->data);
	return 0;
}

method_2:参考浙江大学MOOC网提供的代码。

#include<stdio.h>
#include<stdlib.h>
#include<malloc.h> 

typedef struct AVLNode *Position;
typedef Position AVLTree; /* AVL树类型 */
typedef int ElementType; 
struct AVLNode{
    ElementType Data; /* 结点数据 */
    AVLTree Left;     /* 指向左子树 */
    AVLTree Right;    /* 指向右子树 */
    int Height;       /* 树高 */
};
 
int Max ( int a, int b )
{
    return a > b ? a : b;
}

int GetHeight(AVLTree A)
{
	int n=0;
	if(A)
		n=Max(GetHeight(A->Left),GetHeight(A->Right))+1;
	return n;
}
 
AVLTree SingleLeftRotation ( AVLTree A )
{ /* 注意：A必须有一个左子结点B */
  /* 将A与B做左单旋，更新A与B的高度，返回新的根结点B */     
 
    AVLTree B = A->Left;
    A->Left = B->Right;
    B->Right = A;
    A->Height = Max( GetHeight(A->Left), GetHeight(A->Right) ) + 1;
    B->Height = Max( GetHeight(B->Left), A->Height ) + 1;
  
    return B;
}

AVLTree SingleRightRotation(AVLTree A)
{
	AVLTree B=A->Right;
	A->Right=B->Left;
	B->Left=A;
	A->Height=Max(GetHeight(A->Left),GetHeight(A->Right))+1;
	B->Height=Max(GetHeight(B->Right),A->Height)+1;
	return B; 
} 
 
AVLTree DoubleLeftRightRotation ( AVLTree A )
{ /* 注意：A必须有一个左子结点B，且B必须有一个右子结点C */
  /* 将A、B与C做两次单旋，返回新的根结点C */
     
    /* 将B与C做右单旋，C被返回 */
    A->Left = SingleRightRotation(A->Left);
    /* 将A与C做左单旋，C被返回 */
    return SingleLeftRotation(A);
}

AVLTree DoubleRightLeftRotation(AVLTree A)
{
	A->Right=SingleLeftRotation(A->Right);
	return SingleRightRotation(A);
}
 
/*************************************/
/* 对称的右单旋与右-左双旋请自己实现 */
/*************************************/
 
AVLTree Insert( AVLTree T, ElementType X )
{ /* 将X插入AVL树T中，并且返回调整后的AVL树 */
    if ( !T ) { /* 若插入空树，则新建包含一个结点的树 */
        T = (AVLTree)malloc(sizeof(struct AVLNode));
        T->Data = X;
        T->Height = 0;
        T->Left = T->Right = NULL;
    } /* if (插入空树) 结束 */
 
    else if ( X < T->Data ) {
        /* 插入T的左子树 */
        T->Left = Insert( T->Left, X);
        /* 如果需要左旋 */
        if ( GetHeight(T->Left)-GetHeight(T->Right) == 2 )
            if ( X < T->Left->Data ) 
               T = SingleLeftRotation(T);      /* 左单旋 */
            else 
               T = DoubleLeftRightRotation(T); /* 左-右双旋 */
    } /* else if (插入左子树) 结束 */
     
    else if ( X > T->Data ) {
        /* 插入T的右子树 */
        T->Right = Insert( T->Right, X );
        /* 如果需要右旋 */
        if ( GetHeight(T->Left)-GetHeight(T->Right) == -2 )
            if ( X > T->Right->Data ) 
               T = SingleRightRotation(T);     /* 右单旋 */
            else 
               T = DoubleRightLeftRotation(T); /* 右-左双旋 */
    } /* else if (插入右子树) 结束 */
 
    /* else X == T->Data，无须插入 */
 
    /* 别忘了更新树高 */
    T->Height = Max( GetHeight(T->Left), GetHeight(T->Right) ) + 1;
     
    return T;
}

void PreorderTraversal( AVLTree BT ) //先序遍历，由裁判实现，细节不表 
{
	if(BT){
		printf("%d ",BT->Data);
		PreorderTraversal(BT->Left);
		PreorderTraversal(BT->Right);
	} 
} 
void InorderTraversal( AVLTree BT ) //先序遍历，由裁判实现，细节不表 
{
	if(BT){
		InorderTraversal(BT->Left);
		printf("%d ",BT->Data);
		InorderTraversal(BT->Right);
	} 
}

int main()
{
	int N,i,x;
	AVLTree q,BT=NULL;
	scanf("%d",&N);
	for(i=0;i<N;i++){
		scanf("%d",&x);
		BT=Insert(BT,x);
	}
	q=BT;
	PreorderTraversal(BT );
	printf("\n");
	InorderTraversal( q );
	//printf("%d",BT->Data);
	return 0;
}