广义表反序（C语言）

逆置广义表的递归模型如下：
F(LS) = null 　　　　　　　　　　　　　若 LS 为空
F(LS) = LS 　　　　　　　　　　　　　若 LS 为原子，且 tail(LS) 为空
F(LS) = append( F(tail(LS)), head(LS) ) 　若 LS->tag=0 ，且 LS->tp!=null
F(LS) = append( F(tail(LS), F(head(LS)) ) 　若 LS->tag=1

其中 append(a,b) 的功能是将广义表 a 和 b 作为元素的广义表连接起来。

请根据以上定义和给定的程序框架，编写函数：GLNode * reverse( GLNode * )。

特别说明：以下的预设代码并不是一个好的程序，大家先凑合吧。

---

预设代码

前置代码

/* PRESET CODE BEGIN - NEVER TOUCH CODE BELOW */

#include "stdio.h"
#include "string.h"
#include "stdlib.h"

typedef enum { ATOM, LIST } ListTag;

typedef struct node {
	ListTag  tag;
	union {
		char  data;
		struct node *hp;
	} ptr;
	struct node *tp;
} GLNode;

GLNode * reverse( GLNode * );

int count;

void Substring( char *sub, char *s, int pos, int len )
{
	s = s + pos;
	while ( len > 0 )
	{	*sub = *s;
		sub++;
		s++;
		len--;
	}
	*sub = '\0';
}

void sever( char *str, char *hstr )
{   int n, i, k;
	char ch[50];
	n = strlen(str);
	i = k = 0;
	do
	{	Substring( ch, str, i++, 1 );
		if ( *ch=='(' )
			k ++;
		else if ( *ch==')' )
			k --;
	} while ( i<n && ( *ch!=',' || k!=0 ) );

	if ( i<n )
	{ 	Substring( hstr, str, 0, i-1 );
		Substring( str, str, i, n-i );
	}
	else
	{	strcpy( hstr, str );
		str[0] = '\0';
	}
}  /* sever */

int PrintGList( GLNode * T )
{
	GLNode *p=T, *q;

	if ( p==NULL )
		printf( ")" );
	else
	{	if ( p->tag==ATOM )
		{ 	if ( count > 0 )
				printf( "," );
			printf( "%c", p->ptr.data );
			count ++;
		}
		else
		{	q = p->ptr.hp;
			if ( q == NULL )
			{	if ( count > 0 )
					printf(",");
				printf("(");
			}
			else if ( q->tag == LIST )
			{	if ( count > 0 )
					printf( "," );
				printf( "(" );
				count = 0;
			}
			PrintGList( q );
			PrintGList( p->tp );
		}
	}
	return 1;
}

void print( GLNode * L )
{
	if ( L == NULL )
		printf( "()" );
	else
	{
		if ( L->tag == LIST )
			printf( "(" );
		if ( L->ptr.hp != NULL )
			PrintGList( L );
		else
		{
			printf( "()" );
			if ( L->tp == NULL )
				printf( ")" );
		}
	}
	printf( "\n" );
}

int CreateGList( GLNode **L,  char *s )
{
	GLNode *p, *q;
	char sub[100],  hsub[100];

	p = *L;
	if ( strcmp(s, "()" )==0 )
		*L = NULL;    /* 创建空表 */
	else
	{
		*L = ( GLNode * ) malloc( sizeof( GLNode ) );
		if ( strlen(s)==1 )
		{   (*L)->tag = ATOM;
			(*L)->ptr.data = s[0];
		}
		else
		{	(*L)->tag = LIST;
			p = *L;
			Substring( sub, s, 1, strlen(s)-2 );
			do
			{	sever( sub, hsub );
				CreateGList( &p->ptr.hp, hsub );
				q = p;
				if ( strlen(sub) > 0 )
				{	p = (GLNode *) malloc( sizeof(GLNode) );
					p->tag = LIST;
					q->tp = p;
				}
			} while ( strlen(sub)>0 );
			q->tp = NULL;
		}   /* else */
	}  /* else */
	return 1;
}

/**********
这是你要实现的函数。
***********/
GLNode * reverse( GLNode *p );
/*******************/

int main( )
{
	char list[100];
	GLNode *L, *G;
	int d;

	count = 0;
	scanf("%s", list);
	CreateGList( &L, list );

/*	print( L );   */
	G = reverse( L );
	count = 0;
	print( G );
	return 0;
}

/* PRESET CODE END - NEVER TOUCH CODE ABOVE */

样例

输入（1）

(a,b,c)

输出（1）

(c,b,a)

输入（2）

(a,b,c,(h,(e),(f,g,(h))),i)

输出（2）

(i,(((h),g,f),(e),h),c,b,a)

输入（3）

(a)

输出（3）

(a)

输入（4）

(a,b,c,d)

输出（4）

(d,c,b,a)

输入（5）

()

输出（5）

()

输入（6）

((a))

输出（6）

((a))

输入（7）

((a),(b),(c))

输出（7）

((c),(b),(a))

输入（8）

((a),(b),(c),d)

输出（8）

(d,(c),(b),(a))

输入（9）

(((a,b,c,(h,(e),(f,g,(h))),((((i)))))))

输出（9）

(((((((i)))),(((h),g,f),(e),h),c,b,a)))

代码

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

typedef enum {
    ATOM, LIST
} ListTag;

typedef struct node {
    ListTag tag;
    union {
        char data;
        struct node* hp;
    } ptr;
    struct node* tp;
} GLNode;

int count;

void Substring(char* sub, char* s, int pos, int len) {
    s = s + pos;
    while (len > 0) {
        *sub++ = *s++;
        len--;
    }
    *sub = '\0';
}

void sever(char* str, char* hstr) {
    int n, i = 0, k = 0;
    char ch[50];
    n = strlen(str);
    do {
        Substring(ch, str, i++, 1);
        if (*ch == '(')
            k++;
        else if (*ch == ')')
            k--;
    } while (i < n && (*ch != ',' || k != 0));

    if (i < n) {
        Substring(hstr, str, 0, i - 1);
        Substring(str, str, i, n - i);
    } else {
        strcpy(hstr, str);
        str[0] = '\0';
    }
}

void PrintGList(GLNode* T) {
    GLNode* p = T, * q;

    if (p == NULL)
        printf(")");
    else {
        if (p->tag == ATOM) {
            if (count > 0)
                printf(",");
            printf("%c", p->ptr.data);
            count++;
        } else {
            q = p->ptr.hp;
            if (q == NULL) {
                if (count > 0)
                    printf(",");
                printf("(");
            } else if (q->tag == LIST) {
                if (count > 0)
                    printf(",");
                printf("(");
                count = 0;
            }
            PrintGList(q);
            PrintGList(p->tp);
        }
    }
}

void print(GLNode* L) {
    if (L == NULL)
        printf("()");
    else {
        if (L->tag == LIST)
            printf("(");

        if (L->ptr.hp != NULL)
            PrintGList(L);
        else {
            printf("()");
            if (L->tp == NULL)
                printf(")");
        }
    }
    printf("\n");
}

int CreateGList(GLNode** L, char* s) {
    GLNode* p, * q;
    char sub[100], hsub[100];

    p = *L;
    if (strcmp(s, "()") == 0)
        *L = NULL;
    else {
        *L = (GLNode*)malloc(sizeof(GLNode));
        if (strlen(s) == 1) {
            (*L)->tag = ATOM;
            (*L)->ptr.data = s[0];
        } else {
            (*L)->tag = LIST;
            p = *L;
            Substring(sub, s, 1, strlen(s) - 2);
            do {
                sever(sub, hsub);
                CreateGList(&p->ptr.hp, hsub);
                q = p;
                if (strlen(sub) > 0) {
                    p = (GLNode*)malloc(sizeof(GLNode));
                    p->tag = LIST;
                    q->tp = p;
                }
            } while (strlen(sub) > 0);
            q->tp = NULL;
        }
    }
    return 1;
}

GLNode* reverse(GLNode* p) {
    GLNode* FL = p;
    if (p != NULL && p->tag == LIST) {
        for (p->tp = reverse(p->tp); p->tp != NULL; p = p->tp);
        p->tp = (GLNode*)malloc(sizeof(GLNode));
        GLNode* q = p->tp;
        q->tp = NULL;
        q->tag = FL->tag;
        q->ptr.hp = reverse(FL->ptr.hp);
        p->tp = q;
        FL = FL->tp;
    } else {
        return FL;
    }
    return FL;
}

int main() {
    char list[100];
    GLNode* L, * G;
    int d;
    count = 0;
    scanf("%s", list);
    CreateGList(&L, list);

    G = reverse(L);
    count = 0;
    print(G);
    return 0;
}