009 删除链表中数据域值相同的结点

#include 
#include 
#define    N    8
typedef  struct list
{  int  data;
   struct list  *next;
} SLIST;
void  fun( SLIST *h)
{  SLIST  *p, *q;
   p=h->next;
   if (p!=NULL)
   {  q=p->next;
      while(q!=NULL)
      {  if (p->data==q->data)
         {  p->next=q->next;
            /*使用free函数，释放q所指的内存空间，其一般格式为：free(指针变量)*/
            free(q);
            /*删除链表表中符合条件结点后，指针要指向下一个结点*/
            q=p->next;
         }
         else
         { p=q;
            /*删除链表表中符合条件结点后，指针要指向下一个结点*/
           q=q->next;
         }
      }
   }
}
SLIST *creatlist(int  *a)
{  SLIST  *h,*p,*q;      int  i;
   h=p=(SLIST *)malloc(sizeof(SLIST));
   for(i=0; iq=(SLIST *)malloc(sizeof(SLIST));
      q->data=a[i];  p->next=q;  p=q;
   }
   p->next=0;
   return h;
}
void outlist(SLIST  *h)
{  SLIST  *p;
   p=h->next;
   if (p==NULL)  printf("\nThe list is NULL!\n");
   else
   {  printf("\nHead");
      do { printf("->%d",p->data);  p=p->next;    } while(p!=NULL);
      printf("->End\n");
  }
}
void main( )
{  SLIST  *head;      int  a[N]={1,2,2,3,4,4,4,5};
   head=creatlist(a);
   printf("\nThe list before deleting :\n");  outlist(head);
   fun(head);
   printf("\nThe list after deleting :\n");  outlist(head);
}