5.5.c

来自「数据结构--C语言 数据结构源代码大全 用C语言编写」· C语言 代码 · 共 12 行

/*求广义表的表头*/
GList Head(GList L)
{
	if(L==NULL) 
		return(NULL);    /* 空表无表头 */
	if(L->tag==ATOM) 
		exit(0);    /* 原子不是表 */
	else 
		return(L->atom_htp.htp.hp);
}