数据结构【线性表（二)链表】自建算法库之循环双链表

/*
  *数据结构【线性表（二)链表】自建算法库之循环双链表
  *Copyright (c) 2015 烟台大学计算机与控制工程学院
  *All right reserved.
  *文件名称:danlianbiao.cpp
  *标题:数据结构【线性表（二)链表】循环双链表
  *分类:循环双链表
  *writer:罗海员
  *date:2015年10月04日
  *版本:V1.0.1
  *操作系统:XP
  *运行环境:VC6.0
  *问题描述:建立一个双链表
  *提示:
        1.定义单链表存储结构，用头插法和尾插法建立双链表，并显示建立好以后的结果。
        2.复杂度的要求，设计算法并用专门的函数实现算法；
        3.理论与实践相结合
  *双链表算法库算法库采用程序的多文件组织形式，包括两个文件：
　　1.头文件：cdlinklist.h，包含定义双链表数据结构的代码、宏定义、要实现算法的函数的声明；
    2.源文件：cdlinklist.cpp，包含实现各种算法的函数的定义
    3.在建立算法库过程中，为了完成测试，再同一项目（project）中建立一个源文件(如main.cpp)，编制main函数，
      完成相关的测试工作。

*/

//头文件
#ifndef CDLINKLIST_H_INCLUDED
#define CDLINKLIST_H_INCLUDED

//循环双链表基本运算函数
typedef int ElemType;
typedef struct DNode        //定义双链表结点类型
{
    ElemType data;
    struct DNode *prior;    //指向前驱结点
    struct DNode *next;     //指向后继结点
} CDLinkList;

void CreateListF(CDLinkList *&L,ElemType a[],int n); //头插法建立循环双链表
void CreateListR(CDLinkList *&L,ElemType a[],int n); //尾插法建立循环双链表
void InitList(CDLinkList *&L); //初始化循环双链表
void DestroyList(CDLinkList *&L);  //销毁
bool ListEmpty(CDLinkList *L); //判断是否为空
int ListLength(CDLinkList *L); //求链表长度
void DispList(CDLinkList *L);  //输出链表
bool GetElem(CDLinkList *L,int i,ElemType &e);  //取链表元素
int LocateElem(CDLinkList *L,ElemType e);  //查找元素
bool ListInsert(CDLinkList *&L,int i,ElemType e);  //插入节点
bool ListDelete(CDLinkList *&L,int i,ElemType &e);  //删除节点

#endif // CDLINKLIST_H_INCLUDED

//循环双链表基本运算函数
#include <stdio.h>
#include <malloc.h>
#include "cdlinklist.h"
void CreateListF(CDLinkList *&L,ElemType a[],int n) //头插法建立循环双链表
{
    CDLinkList *s;
    int i;
    L=(CDLinkList *)malloc(sizeof(CDLinkList));     //创建头结点
    L->next=NULL;
    for (i=0; i<n; i++)
    {
        s=(CDLinkList *)malloc(sizeof(CDLinkList));//创建新结点
        s->data=a[i];
        s->next=L->next;            //将*s插在原开始结点之前,头结点之后
        if (L->next!=NULL) L->next->prior=s;
        L->next=s;
        s->prior=L;
    }
    s=L->next;
    while (s->next!=NULL)           //查找尾结点,由s指向它
        s=s->next;
    s->next=L;                      //尾结点next域指向头结点
    L->prior=s;                     //头结点的prior域指向尾结点

}
void CreateListR(CDLinkList *&L,ElemType a[],int n) //尾插法建立循环双链表
{
    CDLinkList *s,*r;
    int i;
    L=(CDLinkList *)malloc(sizeof(CDLinkList));  //创建头结点
    L->next=NULL;
    r=L;                    //r始终指向尾结点,开始时指向头结点
    for (i=0; i<n; i++)
    {
        s=(CDLinkList *)malloc(sizeof(CDLinkList));//创建新结点
        s->data=a[i];
        r->next=s;
        s->prior=r; //将*s插入*r之后
        r=s;
    }
    r->next=L;              //尾结点next域指向头结点
    L->prior=r;             //头结点的prior域指向尾结点
}
void InitList(CDLinkList *&L) //初始化循环双链表
{
    L=(CDLinkList *)malloc(sizeof(CDLinkList));     //创建头结点
    L->prior=L->next=L;
}
void DestroyList(CDLinkList *&L)  //销毁
{
    CDLinkList *p=L,*q=p->next;
    while (q!=L)
    {
        free(p);
        p=q;
        q=p->next;
    }
    free(p);
}
bool ListEmpty(CDLinkList *L) //判断是否为空
{
    return(L->next==L);
}
int ListLength(CDLinkList *L) //求链表长度
{
    CDLinkList *p=L;
    int i=0;
    while (p->next!=L)
    {
        i++;
        p=p->next;
    }
    return(i);
}
void DispList(CDLinkList *L)  //输出链表
{
    CDLinkList *p=L->next;
    while (p!=L)
    {
        printf("%d ",p->data);
        p=p->next;
    }
    printf("\n");
}
bool GetElem(CDLinkList *L,int i,ElemType &e)  //取链表元素
{
    int j=0;
    CDLinkList *p;
    if (L->next!=L)     //双链表不为空表时
    {
        if (i==1)
        {
            e=L->next->data;
            return true;
        }
        else            //i不为1时
        {
            p=L->next;
            while (j<i-1 && p!=L)
            {
                j++;
                p=p->next;
            }
            if (p==L)
                return false;
            else
            {
                e=p->data;
                return true;
            }
        }
    }
    else                //双链表为空表时
        return 0;
}
int LocateElem(CDLinkList *L,ElemType e)  //查找元素
{
    int n=1;
    CDLinkList *p=L->next;
    while (p!=NULL && p->data!=e)
    {
        n++;
        p=p->next;
    }
    if (p==NULL)
        return(0);
    else
        return(n);
}
bool ListInsert(CDLinkList *&L,int i,ElemType e)  //插入节点
{
    int j=0;
    CDLinkList *p=L,*s;
    if (p->next==L)                 //原双链表为空表时
    {
        s=(CDLinkList *)malloc(sizeof(CDLinkList)); //创建新结点*s
        s->data=e;
        p->next=s;
        s->next=p;
        p->prior=s;
        s->prior=p;
        return true;
    }
    else if (i==1)                  //原双链表不为空表但i=1时
    {
        s=(CDLinkList *)malloc(sizeof(CDLinkList)); //创建新结点*s
        s->data=e;
        s->next=p->next;
        p->next=s;  //将*s插入到*p之后
        s->next->prior=s;
        s->prior=p;
        return true;
    }
    else
    {
        p=L->next;
        while (j<i-2 && p!=L)
        {
            j++;
            p=p->next;
        }
        if (p==L)               //未找到第i-1个结点
            return false;
        else                    //找到第i-1个结点*p
        {
            s=(CDLinkList *)malloc(sizeof(CDLinkList)); //创建新结点*s
            s->data=e;
            s->next=p->next;    //将*s插入到*p之后
            if (p->next!=NULL) p->next->prior=s;
            s->prior=p;
            p->next=s;
            return true;
        }
    }
}
bool ListDelete(CDLinkList *&L,int i,ElemType &e)  //删除节点
{
    int j=0;
    CDLinkList *p=L,*q;
    if (p->next!=L)                 //原双链表不为空表时
    {
        if (i==1)                   //i==1时
        {
            q=L->next;              //删除第1个结点
            e=q->data;
            L->next=q->next;
            q->next->prior=L;
            free(q);
            return true;
        }
        else                        //i不为1时
        {
            p=L->next;
            while (j<i-2 && p!=NULL)
            {
                j++;
                p=p->next;
            }
            if (p==NULL)                //未找到第i-1个结点
                return false;
            else                        //找到第i-1个结点*p
            {
                q=p->next;              //q指向要删除的结点
                if (q==NULL) return 0;  //不存在第i个结点
                e=q->data;
                p->next=q->next;        //从单链表中删除*q结点
                if (p->next!=NULL) p->next->prior=p;
                free(q);                //释放*q结点
                return true;
            }
        }
    }
    else
        return false;   //原双链表为空表时
}

//主函数（测试函数）
#include <stdio.h>
#include "cdlinklist.h"

int main()
{
    CDLinkList *A;
    ElemType a[]= {1, 3, 2, 9, 0, 4, 5 ,6, 7, 8};
    InitList(A);
    CreateListF(A, a, 10);
    printf("length: %d\n", ListLength(A));
    ListInsert(A, 4, 12);
    printf("After Insert: ");
    DispList(A);
    DestroyList(A);
    return 0;
}