Status ListInsert Sq(SqList &L,int i ,ElemType e){
	//在顺序线性表L中第i个位置之前插入新的元素额，
	//i的合法值为1<=i<=ListLength_Sq(L)+1
	if(i<1||i>L.length+1)
		return ERROR; //i值不合法
	if(L.length>=L.listsize){  //当前存储空间已满，增加分配
		newbase = (ElemType *)realloc(L.elem,(L.listsize+LISTINCREMENT)*sizeof(ElemType));
		if(!newbase)
			exit(OVERFLOW);   //存储分配失败
		L.elem = newbase;     //新基址
		L.listsize+=LISTINCREMENT;   //增加存储容量
	}
	q=&(L.elem[i-1]);    //q为插入位置
	for(p=&(L.elem[L.length-1]);p>=q;--p)
		*(p+1)=*p;     //插入位置及之后的元素右移
		*q=e;   //插入e
		++L.length;   //表长增1
		return OK;
} //ListInsert_Sq

Status ListDelete_Sq(SqList &L,int i,ElemType &e){
		//在顺序线性表L中删除第i个元素，并用e返回其值
		//i的合法值为1<=i<=ListLength_Sq(L)
		if((i<1)  ||  (i>L.length))
			return ERROR   //i值不合法
			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;
}//ListDelete_Sq

//用结构指针描述
typedef struct LNode{
	ElemType data;   //数据域
	struct LNode *next  //指针域
}LNode,*LinkList

Status GetElem_L(LinkList L,int i,ElemType &e){
		//L为带头结点的单链表的头指针
		//当第i个元素存在时，其赋值给e并返回OK，否则返回ERROR
		p=L->next;
		j=1;	//初始化，p指向第一个结点，否则返回ERROR
		while(p&&j<1){
			p=p->next;
			++j;
		}
		if(!p||j>i)
			return ERROR;	//第i个元素不存在
		e=p->data;	//取第i个元素
		return OK;
}//GetElem_L

Status ListInsert_L(LinkList &L,int i,ElemType e){
	//在带头结点的单链线性表L中的第i个位置之前插入元素e
	p=L;
	j=0;
	while(p&&j<i-1){
		p=p->next;
		++j;		
	}	//寻找i-1个结点
	if(!p||j>i-1)
		return ERROR;	//i小于1或者大于表长+1
	s=(LinkList)malloc(sizeof(LNode));	//生成新结点
	s->data=e;
	s->next=p=>next;	//插入L中
	p->next=s;
	return OK;
}//ListInsert_L

Status ListDelete_L(LinkList &L,int i,ElemType &e){
	//在带头结点的单链线性表L中，删除第i个元素，并由e返回其值
	p=L;
	j=0;
	while(p->next&&j<i-1){	//寻找第i个结点，并令p指向其前驱
		p=p->next;
		++j;
	}
	if(!(p->next)||j>i-1)
		return ERROR; 	//删除位置不合理
	q=p->next;
	p->next=q->next;	//删除并释放结点
	e=q->data;
	free(q);
	return OK;
}//ListDelete_L

typedef struct LNode{
    ElemType data;
    struct LNode *next;
}LNode,*LinkList;

LinkList CreateList_LH(int n){
    int i;	//声明本函数的内部变量类型
    LinkList head;	//head为指向链表的指针类型
    LNode *p	//p为指向结点的指针类型
    head=null;
    for(i=n;i>0;--i){		//从后向前输入元素
        p=(LNode *)malloc(sizeof(LNode));		//未做溢出判定，应加入
        scanf("%d",&p->data);		//将键盘输入置入p的数据域
        p->next=head;
        head=p;	//返回指向链表的头指针
    }
}

LinkList CreateList_LT(){
    char ch;
    LinkList head;
    LNode *p,*r;	//p指向新申请的结点，r指向链表的尾结点
    head=NULL;
    r=NULL;
    while((ch=getchar())!='\n'){
        p=(LNode *)malloc(sizeof(LNode));
        p->data=ch;
        if(head==NULL)	//插入第一个结点
            head=p;
        else
            r->next=p;		//插入第二个及以后的结点
        r=p;
    }
    if(r!=NULL)
        r->next=NULL;
    return(head);
}

Status ListDelete_L(LinkList &L,int i,ElemType &e){
    //在带头结点的单链线性表L中，删除第i个元素，并由e返回其值
    p=L;j=0;
    while(p->next&&j<i-1){		寻找第i个结点，并令p指向其前驱
        p=p->next;
        ++j;
    }
    if(!(p->next)||j>i-1)
        return ERROR;		//删除位置不合理
    q=p->next;
    p->next=q->next;		//删除并释放结点
    e=q->data;
    free(q);
    return OK;
}//ListDelete_

Status ListInsert_DuL(DuLinkList &L,int i,ElemType e){
    //在带头结点的双链循环线性表L中第i个位置之前插入元素e
    //i的合法值为1<=i<=表长+1
    if(!(p=GetElemP_DuL(L,i)))		//在L中确定插入位置指针p
        return ERROR;		//i等于表长加1时，p指向头结点；i大于表长加1时，p=NULL
    if(!(s=(DuLinkList)malloc(sizeof(DuLNode))))
        return ERROR;	
    s->data=e;
    s->prior=p->prior;
    p->prior->next=s;
    s->next=p;
    p->prior=s;
    return OK;
}//ListInsert_DuL

Status ListDelete_DuL(DuLinkList &L,int i,ElemType &e){
    //删除带头结点的双链循环线性表L的第i个元素，i的合法值为1<=i<=表长
    if(!(p=GetElemP_DuL(L,i)))		//在L中确定第i个元素的位置指针p
        return ERROR;			//P=NULL,即第i个元素不存在
    e=p->data;
    p->prior->next=p->next;
    p->next->prior=p->prior;
    free(p);
    return OK;
}//ListDelete_DuL

Status MergeList_L(LinkList &La,LinkList &Lb,LinkList &Lc,int(*compare)(ElemType,ElemType)){
    //已知单链线性表La和Lb的元素按值非递减排列
    //归并La和Lb得到新的单链线性表Lc，Lc的元素也按值非递减排列
    if(!InitList(Lc)) 
        return ERROR;		//存储空间分配失败
    ha=GetHead (La);
    hb=GetHead (Lb);	∥ha和hb分别指向La和Lb的头结点
    pa=NextPos (La,ha);
    pb=NextPos (Lb,hb);		∥pa和pb分别指向La和Lb中当前结点
    while(pa&&pb){		∥La和Lb均非空
        a=GetCurElem (pa);
        b=GetCurElem (pb);	∥a和b为两表中当前比较元素
        if(( * compare) ( a, b) < o){
            a<=b;
            DelFirst(ha,g);
            Append(Lc,g);
            pa= NextPos(La,ha);
        }else{
            a>b;
            DelFirst(hb,g);
            Append( Lc,q);
            pb=NextPos(Lb,hb);
        }∥while 
        if (pa) 
            Append( Lc, pa);	∥链接La中剩余结点
        else 
            Append(Lc,pb);		∥链接b中剩余结点
        FreeNode(ha);
        FreeNode (hb);			∥释放La和Lb的头结点
        return OK;
}∥MergeList _L