广义表的头节点必定是1。
int ListsDepth (Lslink LS) //广义表采用单链结构
{
int max=0; //默认情况下,认为表
if (LS->atom==0) return 0;//对于原子项返回深
p=LS->dtype.link; //1为广义表时,p取表
while (p!= NULL) //依次计算每个元素
{
dep= ListsDepth(p) ; //递归求P指向元素
if (dep> max) max=dep; //大于已有最大深度田
p=p-> next; //p指向下一元素
}
return max+1; //返回最大深度加1
}