广工数据结构5.30③ 试按表头、表尾的分析方法重写求广义表 的深度的递归算法。

int GListDepth(GList ls)
/* Return the depth of list */
{
    GList pp;
    int max, h, t;
    if(!ls)
        return 1;
    if(ls->tag == ATOM)
        return 0;
    for(pp=ls; pp; pp=pp->un.ptr.tp){
        h = GListDepth(pp->un.ptr.hp)+1;
        t = GListDepth(pp->un.ptr.tp);
        if(h > t)
            return h;
        else
            return t;
    }            
}