静态链表的实现（C语言描述）

完整代码

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

#define len 10

int head;

typedef struct {
	char data;
	int cur;
} Component, SLinkList[len];

// 初始化一个空的 List
SLinkList* InitSpace_SL() {
	SLinkList * list = calloc(len, sizeof(Component));
	for (int i = 0; i < len; ++i) {
		list[i]->cur = i + 1;
		list[i]->data = '$';
	}
	list[len - 1]->cur = 0;
	return list;
}

// 遍历检验
void OverLook(SLinkList *list) {
	for (int i = 0; i < len; ++i)
		printf("%c~%d  ", list[i]->data, list[i]->cur);
	printf("\n");
}

// 按链表中的索引顺序打印
void Print(SLinkList *list) {
	if (head == 0) return;
	int p = head;
	while (p != 0) {
		printf("%c~%d  ", list[p]->data, list[p]->cur);
		p = list[p]->cur;
	}
	printf("\n");
}

// 寻找可分配内存的下标地址
int Malloc_SL(SLinkList *list) {
	// 若备用链表为空，返回分配结点的下标，否则返回 0
	int i = list[0]->cur;
	if (i) list[0]->cur = list[i]->cur;
	// 此时头指针指向下一个分配结点，否则指向自身（头结点指针为 0 代表没有足够空间可以分配）
	return i;
}

// 将索引元素回收至备用链表
void Free_SL(SLinkList *list, int k) {
	// 将下标为 k 的空闲结点回收到备用链表（类似于头插法）
	list[k]->cur = list[0]->cur;
	list[k]->data = '$';
	list[0]->cur = k;
}

// 在静态链表中插入一个元素
void Insert_SL(SLinkList *list, int k, char data) {
	int i = Malloc_SL(list);
	if (i == 0) return;       // 当无可用空间供分配时，直接 return 回去
	list[i]->data = data;
	list[i]->cur = 0;         // 保证插在链尾的有穷性
	if (k == 0) {
		list[i]->cur = head;  // 因为 head 初始化为 0 ，所以插入首元素时不会影响链的有穷性
		head = i;
	} else if (k > 0) {       // 当插入位置不在链表头时，需要确定插入位置
		int p = head;
		for (int j = 0; j < k - 1; ++j) p = list[p]->cur;
		// 调整指针指向
		list[i]->cur = list[p]->cur;
		list[p]->cur = i;
	}
}

// 在静态链表中删掉一个元素
void Delete_SL(SLinkList *list, int k) {
	if (head == 0) return;  // 若链表为空，直接 return
	if (k == 0) {
		int temp = head;
		head = list[head]->cur;
		Free_SL(list, temp);
	} else if (k > 0) {
		int p = head;
		for (int i = 0; i < k - 1; ++i) {
			p = list[p]->cur;
			if (p == 0) return;  // 当 p 定位到链尾时，必越界
		}
		int temp = list[p]->cur;
		list[p]->cur = list[temp]->cur;
		Free_SL(list, temp);
	}
}

int main(int argc, char *argv[]) {
	SLinkList * list = InitSpace_SL();
	Insert_SL(list, 0, 'd');
	Insert_SL(list, 0, 'b');
	Delete_SL(list, 1);
	Insert_SL(list, 1, 'c');
	Insert_SL(list, 0, 'a');
	Delete_SL(list, 10);
	OverLook(list);
	Print(list);
}

运行结果

$~4  c~0  b~1  a~2  $~5  $~6  $~7  $~8  $~9  $~0  
a~2  b~1  c~0