Josephus问题。。。真的不简单啊！！！！

问题描述：设有N个人围坐在一个圆桌周围，现从第S个人开始报数，数到第M的人出列，然后从出列的下一个人从新开始报数，数到第M的人又出列...........如此反复，知道所有的人全部出列为止。Josephus问题是：对于任意给定的N,S和M,求出按出列次序得到的N个人员的次序。

代码：

#include<stdio.h>
#include<stdlib.h>
#define TRUE 1
#define FALSE 0
typedef int DataType;
struct Node;
typedef struct Node *PNode;
struct Node{
	 DataType info;
	 PNode link;
};
typedef struct Node *LinkList;
typedef LinkList *PLinkList;
int init_clist(PLinkList pclist,int n)
{ PNode p,q;
  int i;
  q=(PNode)malloc(sizeof(struct Node));
  if(q==NULL) return FALSE;
  *pclist=q;
  q->info=1;
  q->link=q;
  if(n==1) return TRUE;
  for(i=2;i<n+1;i++)
  { p=(PNode)malloc(sizeof(struct Node));
    if(p==NULL) return FALSE;
	p->info=i;
	p->link=q->link;
	q->link=p;
	q=p;
  }
  return TRUE;
}
void josephus_clist(PLinkList pclist,int s,int m)
{  PNode p,pre;
   int i;
   p=*pclist;
   if(s==1){
	   pre=p;
	   p=p->link;
	   while(p!=*pclist){
		   pre=p;
		   p=p->link;
	   }
   }
   else for(i=1;i<s;i++){
	   pre=p;
	   p=p->link;
   }
   while(p!=p->link){
	   for(i=1;i<m;i++)
	   { pre=p;
	   p=p->link;
	   }
	   printf("out element:%d\n",p->info);
	   if(*pclist==p)
		   *pclist=p->link;
	   pre->link=p->link;
	   free(p);
	   p=pre->link;
   }
   printf("out element:%d\n",p->info);
   *pclist=NULL;
   free(p);
}
main()
{ LinkList jos_clist;
  int n,s,m;
  printf("\n please input the values of n=");
  scanf("%d",&n);
   printf("\n please input the values of s=");
  scanf("%d",&s);
   printf("\n please input the values of m=");
   scanf("%d",&m);
  if(init_clist(&jos_clist,n))
	  josephus_clist(&jos_clist,s,m);
  else 
	  printf("out of space!\n");
}

执行结果：