5.32.txt

来自「数据结构实验 如下： Status Fibonacci(int k, int」· 文本 代码 · 共 15 行

Status Equal(GList A, GList B)
/* 判断广义表A和B是否相等,是则返回TRUE,否则返回FALSE */
{
  if(!A&&!B) return 1;
  if(!A->tag&&!B->tag&&A->un.atom==B->un.atom) return 1;
  
  if(A->tag&&B->tag){
    if(Equal(A->un.ptr.hp,B->un.ptr.hp)&&Equal(A->un.ptr.tp,B->un.ptr.tp))
        return 1;
    else return 0;
  }
  return 0;

}