1. typedef enum {ATOM,LIST } ElemTag;  //ATOM==0:表示原子,LIST==1:表示子表
2. typedef struct GLNode {
3. ElemTag  tag;  //公共部分，用以区分原子部分和表结点
4. union {       //原子部分和表结点的联合部分
5. AtomType  atom; //atom是原子结点的值域,AtomType由用户定义
6. struct { struct GLNode *hp, *tp;} ptr;
7. // ptr是表结点的指针域,ptr.hp 和ptr.tp分别指向表头和表尾
8. };
9. } *Glist;  //广义表类型

1. Typedef enum { ATOM,LIST} ElemTag;
2. //ATOM==0:表示原子,LIST==1:表示子表
3. Typedef struct GLNode {
4. ElemTag    tag;  //公共部分，用以区分原子部分和表结点
5. union {  //原子部分和表结点的联合部分
6. AtomType    atom;  //原子结点的值域
7. struct GLNode  *hp;  //表结点的表头指针
8. };
9. struct GLNode    *tp;
10. //相当于线性链表的next，指向下一个元素结点
11. } *Glist;  //广义表类型Glist 是一种扩展的线性链表

#include<cstdio>
#include<cstdlib>
#include<cstring>
#include<string>
#include<iostream>using namespace std;#define MAXSTRLEN 40 /* 用户可在255以内定义最大串长（1个字节） */
typedef char SString[MAXSTRLEN+1]; /* 0号单元存放串的长度 *//* 函数结果状态代码 */#define TRUE 1#define FALSE 0#define OK 1#define ERROR 0#define INFEASIBLE -1#define OVERFLOW -2  //因为在math.h中已定义OVERFLOW的值为3,故去掉此行 typedef int Status; /* Status是函数的类型,其值是函数结果状态代码，如OK等 */typedef int Boolean; /* Boolean是布尔类型,其值是TRUE或FALSE */ typedef char AtomType; /* 定义原子类型为字符型 *//* c5-5.h 广义表的头尾链表存储表示 */typedef enum{ATOM,LIST}ElemTag; /* ATOM==0:原子,LIST==1:子表 */typedef struct GLNode{ElemTag tag; /* 公共部分,用于区分原子结点和表结点 */union /* 原子结点和表结点的联合部分 */{AtomType atom; /* atom是原子结点的值域,AtomType由用户定义 */struct{struct GLNode *hp,*tp;}ptr; /* ptr是表结点的指针域,prt.hp和ptr.tp分别指向表头和表尾 */}a;}*GList,GLNode; /* 广义表类型 */Status StrAssign(SString T,char *chars){ /* 生成一个其值等于chars的串T */int i;if(strlen(chars)>MAXSTRLEN)return ERROR;else{T[0]=strlen(chars);for(i=1;i<=T[0];i++)T[i]=*(chars+i-1);return OK;}}Status StrCopy(SString T,SString S){ /* 由串S复制得串T */int i;for(i=0;i<=S[0];i++)T[i]=S[i];return OK;}Status StrEmpty(SString S){ /* 若S为空串,则返回TRUE,否则返回FALSE */if(S[0]==0)return TRUE;elsereturn FALSE;}int StrCompare(SString S,SString T){ /* 初始条件: 串S和T存在 *//* 操作结果: 若S>T,则返回值>0;若S=T,则返回值=0;若S<T,则返回值<0 */int i;for(i=1;i<=S[0]&&i<=T[0];++i)if(S[i]!=T[i])return S[i]-T[i];return S[0]-T[0];}int StrLength(SString S){ /* 返回串的元素个数 */return S[0];}Status ClearString(SString S){ /* 初始条件:串S存在。操作结果:将S清为空串 */S[0]=0;/* 令串长为零 */return OK;}Status Concat(SString T,SString S1,SString S2) /* 算法4.2改 */{ /* 用T返回S1和S2联接而成的新串。若未截断，则返回TRUE，否则FALSE */int i;if(S1[0]+S2[0]<=MAXSTRLEN){ /* 未截断 */for(i=1;i<=S1[0];i++)T[i]=S1[i];for(i=1;i<=S2[0];i++)T[S1[0]+i]=S2[i];T[0]=S1[0]+S2[0];return TRUE;}else{ /* 截断S2 */for(i=1;i<=S1[0];i++)T[i]=S1[i];for(i=1;i<=MAXSTRLEN-S1[0];i++)T[S1[0]+i]=S2[i];T[0]=MAXSTRLEN;return FALSE;}}Status SubString(SString Sub,SString S,int pos,int len){ /* 用Sub返回串S的第pos个字符起长度为len的子串。算法4.3 */int i;if(pos<1||pos>S[0]||len<0||len>S[0]-pos+1)return ERROR;for(i=1;i<=len;i++)Sub[i]=S[pos+i-1];Sub[0]=len;return OK;}int Index(SString S,SString T,int pos){ /* 返回子串T在主串S中第pos个字符之后的位置。若不存在,则函数值为0。 *//* 其中,T非空,1≤pos≤StrLength(S)。算法4.5 */int i,j;if(1<=pos&&pos<=S[0]){i=pos;j=1;while(i<=S[0]&&j<=T[0])if(S[i]==T[j]) /* 继续比较后继字符 */{++i;++j;}else /* 指针后退重新开始匹配 */{i=i-j+2;j=1;}if(j>T[0])return i-T[0];elsereturn 0;}elsereturn 0;}Status StrInsert(SString S,int pos,SString T){ /* 初始条件: 串S和T存在,1≤pos≤StrLength(S)+1 *//* 操作结果: 在串S的第pos个字符之前插入串T。完全插入返回TRUE,部分插入返回FALSE */int i;if(pos<1||pos>S[0]+1)return ERROR;if(S[0]+T[0]<=MAXSTRLEN){ /* 完全插入 */for(i=S[0];i>=pos;i--)S[i+T[0]]=S[i];for(i=pos;i<pos+T[0];i++)S[i]=T[i-pos+1];S[0]=S[0]+T[0];return TRUE;}else{ /* 部分插入 */for(i=MAXSTRLEN;i<=pos;i--)S[i]=S[i-T[0]];for(i=pos;i<pos+T[0];i++)S[i]=T[i-pos+1];S[0]=MAXSTRLEN;return FALSE;}}Status StrDelete(SString S,int pos,int len){ /* 初始条件: 串S存在,1≤pos≤StrLength(S)-len+1 *//* 操作结果: 从串S中删除第pos个字符起长度为len的子串 */int i;if(pos<1||pos>S[0]-len+1||len<0)return ERROR;for(i=pos+len;i<=S[0];i++)S[i-len]=S[i];S[0]-=len;return OK;}Status Replace(SString S,SString T,SString V){ /* 初始条件: 串S,T和V存在,T是非空串（此函数与串的存储结构无关） *//* 操作结果: 用V替换主串S中出现的所有与T相等的不重叠的子串 */int i=1; /* 从串S的第一个字符起查找串T */if(StrEmpty(T)) /* T是空串 */return ERROR;do{i=Index(S,T,i); /* 结果i为从上一个i之后找到的子串T的位置 */if(i) /* 串S中存在串T */{StrDelete(S,i,StrLength(T)); /* 删除该串T */StrInsert(S,i,V); /* 在原串T的位置插入串V */i+=StrLength(V); /* 在插入的串V后面继续查找串T */}}while(i);return OK;}void DestroyString(){ /* 由于SString是定长类型,无法销毁 */}void StrPrint(SString T){ /* 输出字符串T。另加 */int i;for(i=1;i<=T[0];i++)printf("%c",T[i]);printf("\n");}void sever(SString str,SString hstr) /* 算法5.8  SString是数组，不需引用类型 */{ /* 将非空串str分割成两部分:hsub为第一个','之前的子串,str为之后的子串 */int n,k,i; /* k记尚未配对的左括号个数 */SString ch,c1,c2,c3;n=StrLength(str);StrAssign(c1,",");StrAssign(c2,"(");StrAssign(c3,")");SubString(ch,str,1,1);for(i=1,k=0;i<=n&&StrCompare(ch,c1)||k!=0;++i){ /* 搜索最外层的第一个逗号 */SubString(ch,str,i,1);if(!StrCompare(ch,c2))++k;else if(!StrCompare(ch,c3))--k;}if(i<=n){SubString(hstr,str,1,i-2);SubString(str,str,i,n-i+1);}else{StrCopy(hstr,str);ClearString(str);}}Status InitGList(GList *L){ /* 创建空的广义表L */*L=NULL;return OK;}Status CreateGList(GList *L,SString S) /* 算法5.7 */{ /* 采用头尾链表存储结构,由广义表的书写形式串S创建广义表L。设emp="()" */SString sub,hsub,emp;GList p,q;StrAssign(emp,"()");if(!StrCompare(S,emp))*L=NULL; /* 创建空表 */else{*L=(GList)malloc(sizeof(GLNode));if(!*L) /* 建表结点 */exit(OVERFLOW);if(StrLength(S)==1) /* S为单原子 */{(*L)->tag=ATOM;(*L)->a.atom=S[1]; /* 创建单原子广义表 */}else{(*L)->tag=LIST;p=*L;SubString(sub,S,2,StrLength(S)-2); /* 脱外层括号 */do{ /* 重复建n个子表 */sever(sub,hsub); /* 从sub中分离出表头串hsub */CreateGList(&p->a.ptr.hp,hsub);q=p;if(!StrEmpty(sub)) /* 表尾不空 */{p=(GLNode *)malloc(sizeof(GLNode));if(!p)exit(OVERFLOW);p->tag=LIST;q->a.ptr.tp=p;}}while(!StrEmpty(sub));q->a.ptr.tp=NULL;}}return OK;}void DestroyGList(GList *L) /* 广义表的头尾链表存储的销毁操作 */{ /* 销毁广义表L */GList q1,q2;if(*L){if((*L)->tag==ATOM){free(*L); /* 删除原子结点 */*L=NULL;}else /* 删除表结点 */{q1=(*L)->a.ptr.hp;q2=(*L)->a.ptr.tp;free(*L);*L=NULL;DestroyGList(&q1);DestroyGList(&q2);}}}Status CopyGList(GList *T,GList L){ /* 采用头尾链表存储结构,由广义表L复制得到广义表T。算法5.6 */if(!L) /* 复制空表 */*T=NULL;else{*T=(GList)malloc(sizeof(GLNode)); /* 建表结点 */if(!*T)exit(OVERFLOW);(*T)->tag=L->tag;if(L->tag==ATOM)(*T)->a.atom=L->a.atom; /* 复制单原子 */else{CopyGList(&((*T)->a.ptr.hp),L->a.ptr.hp);/* 复制广义表L->ptr.hp的一个副本T->ptr.hp */CopyGList(&((*T)->a.ptr.tp),L->a.ptr.tp);/* 复制广义表L->ptr.tp的一个副本T->ptr.tp */}}return OK;}int GListLength(GList L){ /* 返回广义表的长度,即元素个数 */int len=0;if(!L)return 0;if(L->tag==ATOM)return 1;while(L){L=L->a.ptr.tp;len++;}return len;}int GListDepth(GList L){ /* 采用头尾链表存储结构,求广义表L的深度。算法5.5 */int max,dep;GList pp;if(!L)return 1; /* 空表深度为1 */if(L->tag==ATOM)return 0; /* 原子深度为0 */for(max=0,pp=L;pp;pp=pp->a.ptr.tp){dep=GListDepth(pp->a.ptr.hp); /* 求以pp->a.ptr.hp为头指针的子表深度 */if(dep>max)max=dep;}return max+1; /* 非空表的深度是各元素的深度的最大值加1 */}Status GListEmpty(GList L){ /* 判定广义表是否为空 */if(!L)return TRUE;elsereturn FALSE;}GList GetHead(GList L){ /* 取广义表L的头 */GList h,p;if(!L){printf("空表无表头!\n");exit(0);}p=L->a.ptr.tp;L->a.ptr.tp=NULL;CopyGList(&h,L);L->a.ptr.tp=p;return h;}GList GetTail(GList L){ /* 取广义表L的尾 */GList t;if(!L){printf("空表无表尾!\n");exit(0);}CopyGList(&t,L->a.ptr.tp);return t;}Status InsertFirst_GL(GList *L,GList e){ /* 初始条件: 广义表存在 *//* 操作结果: 插入元素e作为广义表L的第一元素(表头,也可能是子表) */GList p=(GList)malloc(sizeof(GLNode));if(!p)exit(OVERFLOW);p->tag=LIST;p->a.ptr.hp=e;p->a.ptr.tp=*L;*L=p;return OK;}Status DeleteFirst_GL(GList *L,GList *e){ /* 初始条件: 广义表L存在 *//* 操作结果: 删除广义表L的第一元素,并用e返回其值 */GList p;*e=(*L)->a.ptr.hp;p=*L;*L=(*L)->a.ptr.tp;free(p);return OK;}void Traverse_GL(GList L,void(*v)(AtomType)){ /* 利用递归算法遍历广义表L */if(L) /* L不空 */if(L->tag==ATOM) /* L为单原子 */v(L->a.atom);else /* L为广义表 */{Traverse_GL(L->a.ptr.hp,v);Traverse_GL(L->a.ptr.tp,v);}}void visit(AtomType e){printf("%c ", e);}int main(){char p[80];SString t;GList l,m;InitGList(&l);InitGList(&m);printf("空广义表l的深度=%d l是否空？%d(1:是 0:否)\n",GListDepth(l),GListEmpty(l));printf("请输入广义表l(书写形式：空表:(),单原子:a,其它:(a,(b),b)):\n");gets(p);StrAssign(t,p);CreateGList(&l,t);printf("广义表l的长度=%d\n",GListLength(l));printf("广义表l的深度=%d l是否空？%d(1:是 0:否)\n",GListDepth(l),GListEmpty(l));printf("遍历广义表l：\n");Traverse_GL(l,visit);return 0;
}