数据�l�构�W�五章算法设计题[12]_跨考网

1. �q�义�?/span>GL=(a1,a2 ,�?/span>,an),其中 ak(k=1,2,...,n)或是单个数据元素�Q�原子）(j��)�Q�或仍然是个�q�义表。给定如下有兛_��义表的类型定义：(x��)

　　TYPE tagtype=0..1;

　　glist=^gnode;

　　gnode=RECORD

　　link:glist; {link 域指向下一个结�?/span>}

　　CASE tag:tagtype OF �?/span>tag=0 表示原子�l�点�?/span>

　　0: (data :integer);

　　1:(sublist: glist)

　　END;

　　�~�写一个过�E�或函数计算一个广义表的所有原子结�Ҏ(gu��)��据域之和�Q�例如对�q�义�?/span>(3,(2,4,5),(6,3�Q?/span>) 数据域之和�ؓ(f��)23。�?a target="_blank">厦门大学 2000 四�?/span>2 �Q?/span>9分）(j��)�?/span>

　　【参考答案�?/span>

　　int Count(glist *gl)

　　//求广义表原子�l�点数据域之和，原子�l�点数据域定义�ؓ(f��)整型

　　{if(gl==null) return(0);

　　else if (gl->tag==0) return((p->data)+count(gl->link));

　　else return(count(gl->sublist)+count(gl->link)); }

　　}// Count