5.4 鴻吶燕!鴻吶燕児云荷恬議糞孖

厘断參遊硫燕幣隈贋刈鴻吶燕?網胎鴻吶燕議嗤購荷恬議糞孖。喇噐鴻吶燕議協吶頁弓拷議?咀緩屢哘議麻隈匯違匆脅頁弓拷議。

-鴻吶燕議函遊、函硫

GList Head(GList ls)
{
if ls->tag = = 1
then p = ls->hp;
return p;
}
麻隈5.6

GList Tail(GList ls)
{
if ls->tag = = 1
then p = ls->tp;
return p;
}
麻隈5.7

～秀羨鴻吶燕議贋刈潤更

int Create(GList *ls, char * S)
{ Glist p; char *sub;
if StrEmpty(S) *ls = NULL;
else {
if (!(*ls = (GList)malloc(sizeof(GLNode)))) return 0;
if (StrLength(S) = = 1) {
(*ls)->tag = 0;
(*ls)->data = S;
}
else {
(*ls)->tag = 1;
p = *ls;
hsub =SubStr(S,2,StrLength(S)-2);
do {
sever(sub,hsub);
Create(&(p->ptr.hp), sub);
q = p;
if (!StrEmpty(sub)){
if (!(p = (GList)malloc(sizeof(GLNode)))) return 0;;
p->tag = 1;
q->ptr.tp = p;
}
}while (!StrEmpty(sub));
q->ptr.tp = NULL;
}
}
return 1;
}
麻隈5.8

int sever(char *str, char *hstr)
{
int n = StrLength(str);
i= 1; k = 0;
for (i = 1, k = 0; i <= n || k != 0; ++i)
{
ch=SubStr(str,i,1);
if (ch = = '(') ++k;
else if (ch = = ')') --k;
}
if (i <= n)
{
hstr =SubStr(str,1,i-2);
str= SubStr(str,i,n-i+1);
}
else {
StrCopy(hstr,str);
ClearStr(str);
}
}
麻隈5.9

?參燕遊、燕硫秀羨鴻吶燕

int Merge(GList ls1,GList ls2, Glist *ls)
{
if (!(*ls = (GList)malloc(sizeof(GLNode)))) return 0;
*ls->tag = 1;
*ls->hp = ls1;
*ls->tp = ls2;
return 1;
}
麻隈5.10

?箔鴻吶燕議侮業

int Depth(GList ls)
{
if (!ls)
return 1; /*腎燕侮業葎1*/
if (ls->tag = = 0)
return 0; /*汽圷殆侮業葎0*/
for (max = 0,p = ls; p; p = p->ptr.tp) {
dep = Depth(p->ptr.hp); /*箔參p->ptr.hp 硫遊峺寞議徨燕侮業*/
if (dep > max) max = dep;
}
return max+1; /*掲腎燕議侮業頁光圷殆議侮業議恷寄峙紗1*/
}
麻隈5.11

?鹸崙鴻吶燕

int CopyGList(GList ls1, GList *ls2)
{
if (!ls1) *ls2 = NULL; /*鹸崙腎燕*/
else {
if (!(*ls2 = (Glist)malloc(sizeof(Glnode)))) return 0; /*秀燕潤泣*/
(*ls2)->tag = ls1->tag;
if (ls1->tag = = 0) (*ls2)->data = ls1->data; /*鹸崙汽圷殆*/
else {
CopyGList(&((*ls2)->ptr.hp), ls1->ptr.hp); /*鹸崙鴻吶燕ls1->ptr.hp 議匯倖険云*/
CopyGList(&((*ls2)->ptr.tp) , ls1->ptr.tp); /*鹸崙鴻吶燕ls1->ptr.tp 議匯倖険云*/
}
}
return 1;
}
麻隈5.12