图--拓扑排序 算法导论p336

 

 
#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;
}