拓扑排序

#include<stdio.h>
#include<stdlib.h>
#include<string.h>
typedef struct node
{
int adjvex;
struct node *next;
}EdgeNode;

typedef struct vnode
{
char str[20];
int fish; //记录该顶点完成时间即该点标为黑色的时间
EdgeNode *firstedge;
}VertexNode;

VertexNode AdjList[10001];
int pre[10001];
int d[10001];//节点发现时间
int f[10001];//节点完成时间
int color[10001]; //1代表白色表示该点尚未发现 2代表灰色现已发现 3代表黑色表示与它邻接的边已发现
int time;//时间计数器

void InPut(int n,int e) //节点及边的录入 以及建立邻接表
{
int i,j,s,d,find;
char str1[20],str2[20];
EdgeNode *p;
printf("请输入一次输入所有字符节点 且第一个输入的点默认为源节点\n");
for(i=0;i<n;i++)
{
scanf("%s ",&AdjList[i].str);
AdjList[i].firstedge=NULL;
}
printf("请输入各条边\n");
for(i=1;i<=e;i++)//建立邻接表 由于是无向图则要申请两个节点p和q
{
find=0;
scanf("%s %s ",&str1,&str2);
for(j=0;find!=2&&j<n;j++)
if(strcmp(str1,AdjList[j].str)==0)
{
s=j;
find++;
}
else if(strcmp(str2,AdjList[j].str)==0)
{
d=j;
find++;
}
p=(EdgeNode*)malloc(sizeof(EdgeNode));
p->adjvex=d;
p->next=AdjList[s].firstedge;
AdjList[s].firstedge=p;
}
}

void DFS_VISIT(int u)//深度搜索递归函数
{
int v;
EdgeNode *p;
color[u]=2;//u节点已发现 标记为灰色
time++;
d[u]=time;
p=AdjList[u].firstedge;
while(p)
{
v=p->adjvex;
if(color[v]==1)
{
pre[v]=u;
DFS_VISIT(v);
}
p=p->next;
}
color[u]=3;//u节点所有邻接点均已发现，即完成任务，标记为黑色
f[u]=time=time+1;//标记完成时间
}

void DFS(int n)//深度搜索
{
int i;
for(i=0;i<n;i++)
{
color[i]=1;//1代表白色表示该点尚未发现
pre[i]=-1;//前驱向量初始化
}

time=0;
for(i=0;i<n;i++)
if(color[i]==1)
DFS_VISIT(i);
}

int cmp(const void *a,const void *b)
{
return( ((VertexNode*)b)->fish-((VertexNode*)a)->fish );//从大到小排列
}

void TOPOLOGICAL_SORT(int n)//拓扑排序
{
int i;
DFS(n);//对顶点进行深度搜索
for(i=0;i<n;i++)
AdjList[i].fish=f[i];//完成时间赋值 使完成时间和节点在一个结构点

qsort(AdjList,n,sizeof(AdjList[0]),cmp);//时间按完成时间由大到小排序
for(i=0;i<n;i++)//排序输出
printf("%7s ",AdjList[i].str);
printf("\n");
for(i=0;i<n;i++)
printf("%7d ",AdjList[i].fish);
printf("\n");
}

int main()
{ freopen("1.txt","r",stdin);
int n,e;
printf("请输入字符节点的个数N 和边的数目E:\n");
scanf("%d%d ",&n,&e);
InPut(n,e); //节点及边的录入 以及建立邻接表
TOPOLOGICAL_SORT(n);//拓扑排序
return 0;
}