12.4-PointersOnC-20220328

双链表

教材里未使用二级指针，先用双指针法

//初始有首项记录节点数的双链表
#define _CRT_SECURE_NO_WARNINGS 1
#include<stdio.h>
#include<stdlib.h>
#include<string.h>
#define LENWORD 11
typedef struct node{
	struct node *pfwd;
	struct node *pbwd;
	char value[LENWORD];
}Node;
char *my_fgets(char *p,int n);//读取输入
int InitializeList(Node **p);//初始化
int StepValue(char *str,char i);//字符串计数(1:加1,-1:减1,0:清零)
int AddList(Node **p);//添加节点
void ShowList(Node *p);//显示链表
void ClearList(Node **p);//清空链表
int main(){
	Node *pdata=NULL;
	if(!InitializeList(&pdata)) return 1;
	for(;AddList(&pdata)==1;);
	if(pdata) ShowList(pdata);
	ClearList(&pdata);
return 0;}
//
char *my_fgets(char *p,int n){
	char ch=0,*input=NULL,*found=NULL;
	if(input=fgets(p,n,stdin))
		if(found=strchr(input,10))
			*found=0;
		else
			while((ch=getchar())!=EOF&&ch!=10);
return input;}

int InitializeList(Node **p){
	for(Node *pcopy=NULL;*p;){
		pcopy=*p;
		*p=(*p)->pfwd;
		free(pcopy);
	}
	if(!(*p=(Node *)calloc(1,sizeof(Node)))) return 0;
return 1;}

int StepValue(char *str,char i){
	if(!i) memset(str,0,LENWORD);//参数0->清零
	if(!*str) *str='0';
	char *str_temp=str+strlen(str)-1;//指向最后一位
	for(char flag=1;flag&&i;){//flag表示需进位或退位
		if(*str_temp=='9'&&i==1){//加1逢9进位
			if(strlen(str)==LENWORD-1) return 0;
			*str_temp='0';
			flag=1;
		}
		else if(*str_temp=='0'&&i==-1){//减1逢0退位
			if(strlen(str)==1) return 0;
			*str_temp='9';
			flag=-1;
		}
		else{//无需进位或退位
			(*str_temp)+=i;
			flag=0;
		}
		if(str_temp==str&&flag==1){//进位需移位
			char *ptemp=str+strlen(str);
			for(;(ptemp-1)>=str;*ptemp=*(ptemp-1),ptemp--);
			*ptemp='1';
			flag=0;
		}
		else if(str_temp==str&&*str_temp=='0')//退位需移位
			for(char *ptemp=str;*ptemp;*ptemp=*(ptemp+1),ptemp++);
		else str_temp--;
	}
return 1;}

int AddList(Node **p){
	char input[LENWORD]={0},*pvalue=(*p)->value;
	Node *current=NULL,*previous=NULL;
	if(!StepValue((*p)->value,1)){//进位失败
		fputs("Out of range!Over!\n",stdout);
		return -1;
	}
	printf("Input the NO.%s word(EnterQuit):->",(*p)->value);//已预先加1
	if(my_fgets(input,LENWORD)&&*input){//输入不为NULL或者Enter
		Node *pcall=NULL;
		if(!(pcall=(Node *)calloc(1,sizeof(Node)))){
			fputs("Failed to create memory!Over!\n",stdout);
			StepValue((*p)->value,-1);//抵消预先加1
			return -1;
		}
		strncpy(pcall->value,input,LENWORD);//拷贝字符串
		for(previous=*p;(current=previous->pfwd)&&strcmp(input,current->value)>=0;previous=current);//查找插入位置
		pcall->pfwd=current;//进挂钩
		pcall->pbwd=previous;//退挂钩
		previous->pfwd=pcall;//退项进挂钩
		(current?current:*p)->pbwd=pcall;//如新项不为最后一项,进项退挂钩,如新项为最后一项,首项退挂钩
	}
	else{
		StepValue((*p)->value,-1);
		return 0;
	}
return 1;}

void ShowList(Node *p){
	char num[LENWORD]={0};//不能在for中创建
	fputs("Count:->",stdout),fputs(p->value,stdout),fputc(10,stdout);
	for(p=p->pfwd;p;p=p->pfwd){
		StepValue(num,1);
		fputs("NO.",stdout),fputs(num,stdout),fputc(':',stdout);
		fputs(p->value,stdout),fputc(10,stdout);
	}
}

void ClearList(Node **p){
	for(Node *pcopy=NULL;*p;){
		pcopy=*p;
		*p=(*p)->pfwd;
		free(pcopy);
	}
}