双向链表

双向链表

2015-04-04 Lover雪儿

#include <stdio.h>
#include <stdlib.h>

#define OK        1
#define ERROR    0
#define TRUE    1
#define FALSE    0

typedef char    ElemType;
typedef int        Status;

//双向链表结构体定义
typedef struct DualNode
{
    ElemType data;
    struct DualNode *prior;
    struct DualNode *next;
}DualNode, *DuLinkList;

/**************************************************
        初始化链表
**************************************************/
Status Init_List(DuLinkList *L)
{
    DualNode *p, *q;
    int i;
    //生成 头结点
    *L = (DuLinkList)malloc(sizeof(DualNode));
    if( !(*L) ){
        return ERROR;
    }
    (*L)->next = (*L)->prior = (*L);
    p = (*L);    //头结点
    
    //生成链表
    for(i = 0; i<26; i++){
        q = (DualNode *)malloc(sizeof(DualNode));
        if(!q){
            return ERROR;
        }
        q->data = 'A' + i;  //依次给链表赋值 字符表

        q->prior = p;  
        p->next = q;
        q->next = (*L)->next;
        
        p = q;
    }
    p->next = (*L)->next;    //让尾结点的后向指针指向头结点指向的地址，即第一个单元
    (*L)->next->prior = p;    //让头结点的前向指针指向尾节点
    return OK;
}
/**************************************************
    判断空链表
**************************************************/
Status List_Empty(DuLinkList *L){
    if((*L)->next == (*L) && (*L)->prior == (*L))
        return TRUE;
    else
        return FALSE;
}
/**************************************************
    计算L中的个数
**************************************************/
int List_Length(DuLinkList *L){
    int i = 0;
    DuLinkList p = (*L)->next;
    while(p != (*L))    //检测是否已经循环了一遍
    {
        p = p->next;
        ++i;
    }
    i ++;
    return i;
}

/**************************************************
    排序算法，链表前后/后向移动i个结点
**************************************************/
void Caesar(DuLinkList *L, int i){
    if(i > 0){
        do{
            (*L) = (*L)->next; 
        }while(--i);
    }
    if(i < 0){
        do{
            (*L) = (*L)->prior;
        }while(++i);
    }
}

/**************************************************
    循环打印链表中的数据
**************************************************/
void printf_list(DuLinkList *L){
    DuLinkList p = (*L)->next;
    printf("%c ",(*L)->data);
    while(p != (*L)){
        printf("%c ",p->data);
        p = p->next;
    }
    printf("

");
}

/**************************************************
    向链表中插入数据
**************************************************/
Status List_Insert(DuLinkList *L,int i,ElemType dat){
    DuLinkList q, p = (*L),tmp;
    if(i < 1 || i>List_Length(L))
        return ERROR;
    while(--i){
        p = p->next;
    }
    q = (DuLinkList)malloc(sizeof(DualNode));
    q->data = dat;
        
    tmp = p->next;
    p->next = q;
    q->prior = p;
    q->next = tmp;
    tmp->prior = q;
    return OK;
}

/**************************************************
    从链表中删除数据
**************************************************/
Status List_delete(DuLinkList *L,int i){
    DuLinkList p = (*L);
    if(i < 1 || i>List_Length(L))
        return ERROR;
    if(i == 1){
        Caesar(L, 1);    //排序
        //printf_list(L);
        i = List_Length(L) + 1;
    }
    //printf_list(L);
    while(--i){
        p = p->next;
    }
    p->next->prior = p->prior;
    p->prior->next = p->next;
    free(p);
    
    return OK;
}

/**************************************************
        清空链表
**************************************************/
void Clear_List(DuLinkList *L){
    DuLinkList q, p=(*L)->next;
    while(p != (*L)){
        q = p->next;
        free(p);
        p = q;
    }
    (*L)->prior = (*L)->next = *L;
    printf("
成功清空双向链表!
");
}

/**************************************************
        删除链表
**************************************************/
void Destroy_List(DuLinkList *L){
    DuLinkList q, p=(*L)->next;
    while(p != (*L)->next){
        q = p->next;
        free(p);
        p = q;
    }
    free(*L);
    *L = NULL;
    printf("
成功销毁双向链表!
");
}
/**************************************************
        主循环
**************************************************/
int main(void)
{
    DuLinkList L,p;
    int  n , m ;
    char k;
    
    Init_List(&L);  //初始化链表
    p = L->next;

    printf("双向链表总共有%d个元素:
",List_Length(&p));
    printf_list(&p); //循环打印链表元素

    while(1){
        printf("0:退出并销毁链表
1:打印出当前链表
2:插入/删除结点
3:链表有序移动

");
        scanf("%d",&n);
        if(n == 0){
            break;
        }else if(n == 1){
            printf_list(&p); //循环打印链表元素
        }else if(n == 2){
            printf_list(&p); //循环打印链表元素
            while(1){
                printf("0:退出
1:插入数据
2:删除数据
");
                scanf("%d",&n);
                if(n == 0){
                    break;
                }else if(n == 1){
                    printf("请输入要插入的位置、数据,格式:m k
");
                    scanf("%d %c",&m,&k);
                    List_Insert(&p,m,k);
                    printf_list(&p); //循环打印链表元素
                }else if(n == 2){
                    printf("请输入要删除的位置
");
                    scanf("%d",&m);
                    List_delete(&p,m);
                    printf_list(&p); //循环打印链表元素
                }else{
                    printf("请正确输入命令，谢谢!!!
");
                }
            }
        }else if(n == 3){
            while(1){
                printf("请输入一个整数[正数(前向移动)/负数(后向移动)/0(退出)]：
");
                scanf("%d",&n);
                if(n == 0)
                    break;    
                Caesar(&p, n);    //排序
                printf_list(&p); //循环打印链表元素
            }
        }else{
            printf("请正确输入命令，谢谢!!!
");
        }
    }
    printf_list(&(L->next)); //循环打印链表元素
    Destroy_List(&L);
    return 0;
}