//顺序线性表
#include <stdio.h>
#include <stdlib.h>
#define LIST_INIT_SIZE 100 //线性表储存空间的初始分配量
#define LISTINCREMENT 10  //线性表储存空间的分配增量
#define OK 1
#define ERROR 0
typedef double ElemType;
typedef struct {
    ElemType *elem;  //储存空间基地址
    int length;        //当前长度
    int listsize;   //当前分配的储存容量(以sizeof(ElemType))为单位
}SqList;
//顺序表的初始化
void InitList(SqList *L) {
    L->elem = (ElemType*)malloc(LIST_INIT_SIZE);
    if (!L->elem)  //储存分配失败
        exit(-1);
    L->length = 0;    //空表长度为0
    L->listsize = LIST_INIT_SIZE; //初始储存容量
}
//判断表是否为空
int EmptyList(SqList *L)
{
    if (L->length == 0)
    {
        return OK;
    }
    return ERROR;
}
//顺序表的插入
int ListInsert(SqList *L,int i,ElemType e) {
    //在顺序表L中的第i个位置之前插入新的元素e，L的长度加1
    //i=1时头插 i=L->length+1 时尾插
    ElemType *newbase, *q, *p;
    if (i<1 || i>L->length + 1)  //输入的i值不合法
        return ERROR;
    if (L->length >= L->listsize)  //当前储存空间已满，增加分配
    {
        newbase = (ElemType*)realloc(L->elem, (L->listsize +
            LISTINCREMENT) * sizeof(ElemType));
        if (!newbase)  exit(-1);
        L->elem = newbase;  //新基地址
        L->listsize += LISTINCREMENT;  //增加储存容量
    }
    q = L->elem + i - 1;   //获得插入位置的地址
    for (p = L->elem + L->length - 1; p >= q; --p)
    //q之后的元素右移一步，腾出空间
        *(p + 1) = *p;
    *q = e;  //插入e
    ++L->length;  //表长加1
    return OK;

    
}
//头插
int TopInsert(SqList *L, ElemType e) {
    ElemType *newbase, *p;
    int i;
    if (L->length >= L->listsize)  //当前储存空间已满，增加分配
    {
        newbase = (ElemType*)realloc(L->elem, (L->listsize +
            LISTINCREMENT) * sizeof(ElemType));
        if (!newbase)  exit(-1);
        L->elem = newbase;  //新基地址
        L->listsize += LISTINCREMENT;  //增加储存容量
    }
    p = L->elem + L->length - 1;
    for (i = L->length; i > 0; --i)
    {//表中所有元素右移一步，腾出空间
        *(p + 1) = *p;
        p--;
    }
    *L->elem = e;  //插入e
    ++L->length;  //表长加1
    return OK;
}
//尾插
int BackInsert(SqList *L,ElemType e) {
    ElemType *newbase, *p;
    if (L->length >= L->listsize)  //当前储存空间已满，增加分配
    {
        newbase = (ElemType*)realloc(L->elem, (L->listsize +
            LISTINCREMENT) * sizeof(ElemType));
        if (!newbase)  exit(-1);
        L->elem = newbase;  //新基地址
        L->listsize += LISTINCREMENT;  //增加储存容量
    }
    p = L->elem + L->length;  //p指向最后一个元素的后一个地址
    *p = e;       //插入e
    L->length++;  //表长加1
    return OK;

}
//顺序表的删除
int ListDelete(SqList *L, int i, ElemType *e) {
    //删除L的第i个元素，并用e返回其值，L的表长减1
    //i=1 头删  i=L->length+1  尾删
    ElemType *p, *q;
    if (i<1 || i>L->length + 1)  //输入的i值不合法
        return ERROR;
    p = L->elem + i - 1;  //p为被删除元素的位置
    *e = *p;  //被删除元素的值赋给e
    q = L->elem + L->length - 1;  //表尾元素的位置
    for (++p; p <= q; ++p)//删除元素后的元素左移
        *(p - 1) = *p;
    L->length--;  //表长减1
    return OK;

}
//头删
int TopDelete(SqList *L, ElemType *e) {
    ElemType *p, *q;
    if (EmptyList(L) == OK) return ERROR;
    p = L->elem ;  //p为被删除元素的位置
    *e = *p;  //被删除元素的值赋给e
    q = L->elem + L->length - 1;  //表尾元素的位置
    for (++p; p <= q; ++p)//删除元素后的元素左移
        *(p - 1) = *p;
    L->length--;  //表长减1
    return OK;
}
//尾删
int BackDelete(SqList *L, ElemType *e) {
    
    if (EmptyList(L) == OK) return ERROR;
    *e = *L->elem + L->length - 1;
    L->length--;  //表长减1
    return OK;
}

//打印表中元素
void PrintList(