02-05

单链表头插

Linklist insert_head(datatype element,Linklist head)
{
	Linklist s=create_Node();
	if(NULL==s)
		return head;
	s->data=element;
	if(NULL==head)
	{
		head=s;
	}
	else
	{
		s->next=head;
		head=s;
	}
	return head;
}

单链表头删

Linklist delete_head(Linklist head)
{
	if(head==NULL)
		return head;
	else
	{
		Linklist del=head;
		head=head->next;
Linklist free_space(Linklist head)
		free(del);
		del=NULL;
	}
	return head;
}

双向链表头插

Doublelink insert_head(datatype element,Doublelink head)
{
	Doublelink s=create_node();
	if(NULL==s)
	{
		return head;
	}
	strcpy(s->data,element);
	if(NULL==head)
	{
		head=s;
	}
	else
	{
		s->next=head;
		head->priv=s;
		head=s;
	}
	return head;
}

双向链表头删

Doublelink delete_head(Doublelink head)
{
	if(NULL==head)
	{
		return head;
	}
	else
	{
		Doublelink p=head;
		head=head->next;
		if(head!=NULL)
		head->priv=NULL;
		free(p);
		p=NULL;
	}
	return head;
}