#include<stdio.h>
#include<stdlib.h>
#define OK 1
#define ERROR -1
typedef char TElemType;
typedef int Status;
typedef enum {Link,Thread} PionterTag;
typedef struct BiThrNode
{
TElemType data;
struct BiThrNode *lchild,*rchild;
PionterTag ltag;
PionterTag rtag;
} BiThrNode,*BiThrTree;
Status CreateBiThrTree(BiThrTree &T);
void InThreading(BiThrTree T);
void Visist(char ch);
void InOrderThreading(BiThrTree &p,BiThrTree T);
void InOrderTraverse_Thr(BiThrTree T);
BiThrTree pre;
Status CreateBiThrTree(BiThrTree &T)
{
char ch;
scanf("%c",&ch);
if('#' == ch)
{
T = NULL;
}
else
{
if(!(T = (BiThrNode*)malloc(sizeof(BiThrNode))))
return ERROR;
T->data = ch;
T->ltag = Link;
T->rtag = Link;
CreateBiThrTree(T->lchild);
CreateBiThrTree(T->rchild);
}
return OK;
}
void InThreading(BiThrTree T)
{
if( T )
{
InThreading(T->lchild);
Visist(T->data);
if( !T->lchild )
{
T->ltag = Thread;
T->lchild = pre;
}
if( !pre->rchild )
{
pre->rtag = Thread;
pre->rchild = T;
}
pre = T;
InThreading(T->rchild);
}
}
void InOrderThreading(BiThrTree &p,BiThrTree T)
{
p = (BiThrTree)malloc(sizeof(BiThrNode));
p->ltag = Link;
p->rtag = Thread;
p->lchild = p;
p->data = '%';
if( !T )
{
p->lchild = p;
}
else
{
p->lchild = T;
pre = p;
InThreading(T);
pre->rchild = p;
pre->rtag = Thread;
p->rchild = pre;
}
}
void Visist(char ch)
{
printf("%c ",ch);
}
void InOrderTraverse_Thr(BiThrTree T)
{
BiThrTree p;
p = T->lchild;
while( p != T)
{
while(p->ltag == Link)
{
p = p->lchild;
}
Visist(p->data);
while(p->rtag == Thread && p->rchild !=T)
{
p = p->rchild;
Visist(p->data);
}
p = p->rchild;
}
}
int main()
{
BiThrTree p=NULL,T = NULL;
CreateBiThrTree(T);
printf("中序遍历,并且线索化该二叉树: \n");
InOrderThreading(p,T);
printf("\n\n\n");
printf("中序遍历(非递归实现)结果为: \n");
InOrderTraverse_Thr(p);
printf("\n\n\n");
return 0;
}