#include?
#include
#include
#define?MaxSize?100
#define?MaxLen???20
#define?MaxWord??10
typedef?struct
{??char?data[MaxLen];
???int??len;
}SqString;//單詞讀取

typedef?struct
{
??int?addr;
??int?len;
??int?fre;//存儲頻度
}idxtem;//索引表

typedef??struct
{
???char??space[MaxSize];
???int??free;
???idxtem??item[MaxWord];
???int?last;
}idxlist;//堆

void?init（idxlist?*&List）
{
???List=（idxlist?*）malloc（sizeof（idxlist））;
???List->free=0;
???List->last=-1;
}

void?create_sq（SqString?&strFILE?*fp1）//單個單詞
{

???str.len=0;
???int?i=0;
???char?ch;
??while（!feof（fp1））//判斷文件是否結束
{
??????ch=fgetc（fp1）;//用fgetc函數從文件讀入一個字符
		??if（（（ch<‘A‘）||（ch>‘Z‘））&&（（ch<‘a‘）||（ch>‘z‘）））
			??break;
		??str.data[i]=ch;
		??str.len++;
		??i++;
}	
?
}
void?create（idxlist?*List）
{????idxtem?q;
????SqString?str;
	int?igjmk1k2;
	?FILE?*fp1=fopen（“E:\\2.txt““r+“）;//文件指針名=fopen（文件名，使用文件方式）
???while（!feof（fp1））
	{?????k1=0k2=0;
	??create_sq（strfp1）;
	??for（j=-1;j<=List->last;j++）
	??{
		??if（List->item[j].len==str.len）//先比較長度，長度與之前不同，入堆棧長度相同順序比較字母
		??{
			??for（m=0;m			??{
				??if（List->space[List->item[j].addr+m]!=str.data[m]）//有字母不同，入堆棧
				??{g=0;break;}
				??else
					??g=1;
			??}