实现广义表的相关运算算法（一）

/*exp8-3.cpp*/
#include <stdio.h>
#include <malloc.h>
typedef char ElemType;
typedef struct lnode
{
 int tag;/*结点类型标识*/
 union
 {
  ElemType data;
  struct lnode *sublist;
 }val;
 struct lnode *link;/*指向下一个元素*/
}GLNode;

/*以下外部函数在algo8-2.cpp中*/
extern GLNode *head(GLNode *g);
extern GLNode *tail(GLNode *g);

/*以下外部函数在algo8-1.cpp中*/
extern GLNode *CreatGL(char * &s);
extern void DispGL(GLNode *g);

GLNode *Append(GLNode *gh,GLNode *gt)/*由表头和表尾合并成一个广义表*/
{
 gh->link=gt->val.sublist;
 gt->val.sublist=gh;
 return (gt);
}

int AtomCount1(GLNode *g)/*采用方法一求原子个数*/
{
 int num=0;
 if(g!=NULL)
 {
  if(g->tag==1)/*为原子表时，求其中的原子个数*/
   num+=AtomCount1(g->val.sublist);
  else/*为原子时，返回1*/
   num+=1;
  num+=AtomCount1(g->link);
 }
 return num;
}

int AtomCount2(GLNode *g)/*采用方法二求原子个数*/
{
 if(g->val.sublist==NULL)/*为空表时返回0*/
  return 0;
 else if (g->tag==0)/*为原子时返回1*/
  return 1;
 else
  return(AtomCount1(head(g))+AtomCount2(tail(g)));
}

int GLLength1(GLNode *g)/*求带结点广义表g的长度*/
{
 GLNode *gt;
 if(g==NULL)
  return 0;
 else if(g->val.sublist==NULL)/*空表时返回0*/
  return 0;
 else
 {
  gt=tail(g);
  return(GLLength1(gt)+1);
 }
}

int GLDepth1(GLNode *g)/*求带头结点广义表g的深度*/
{
 int maxdep,dep1,dep2;
 GLNode *gh,*gt;
 if(g==NULL)
  return 0;
 else if(g->tag==0)
  return 0;
 else if(g->val.sublist==NULL)/*空表时返回*/
  return 1;
 else
 {
  gh=head(g);
  dep1=GLDepth1(gh)+1;
  gt=tail(g);
  dep2=GLDepth1(gt);
  maxdep=(dep1>dep2?dep1:dep2);
  return maxdep;
 }
}

void main()
{
 GLNode *g,*gh,*gt,*g1;
 char *str1="((a),((b)),(((c))),d)";
 g=CreatGL(str1);
 printf("\n");
 printf("广义表g:");DispGL(g);printf("\n");
 gh=head(g);
 printf("g表头：");DispGL(gh);printf("\n");
 gt=tail(g);
 printf("g表尾：");DispGL(gt);printf("\n\n");
 g1=Append(gh,gt);
 printf("广义表g:");DispGL(g);printf("\n");
 printf("广义表g的原子数：%d\n",AtomCount1(g));
 printf("广义表g的原子数：%d\n\n",AtomCount2(g));
 printf("广义表g的长度：%d\n",GLLength1(g));
 printf("广义表g的深度：%d\n",GLDepth1(g));
 printf("\n");
}