头歌约瑟夫环问题

/*
	约瑟夫环Josephus(循环单链表、无头结点)
	约瑟夫问题：
	输入N 和 M ,N为参入游戏的人数,M为指定序号(报到该数字的人受惩罚)
	N个人有固定编号，按编号顺序报数,报道M的人受惩罚,最后有一人幸存,
	输出依次受惩罚的人的编号 
   不要输入打印信息，请在下面完成你的任务！
*/
#include<stdio.h>
#include<stdlib.h>

typedef struct
{
	int number;
	int cipher;
}DataType;

typedef struct node
{
	DataType data;
	struct node *next;
}SCLNode;

void SCLLInitiate(SCLNode **head)
{
	if((*head=(SCLNode*)malloc(sizeof(SCLNode)))==NULL)
		exit(1);
	(*head)->next=*head;
}

int SCLLInsert(SCLNode *head,int i,DataType x)
{
	SCLNode *p,*q;
	int j;
	p=head->next;
	j=1;
	while(p!=head&&j<i-1)
	{
		p=p->next;
		j++;
	}
	if(j!=i-1&&i!=1)
	{
		printf("插入位置参数错!");
		return 0;
	}
	if((q=(SCLNode*)malloc(sizeof(SCLNode)))==NULL)
		exit(1);
	q->data=x;
	q->next=p->next;
	p->next=q;
	return 1;
}

int SCLLDelete(SCLNode *head,int i,DataType *x)
{
	SCLNode *p,*q;
	int j;
	p=head;
	j=0;
	while(p->next!=head&&j<i-1)
	{
		p=p->next;
		j++;
	}
	if(j!=i-1)
	{
		printf("删除位置参数错!");
		return 0;
	}
	q=p->next;
	p->next=p->next->next;
	*x=q->data;
	free(q);
	return 1; 
}

int SCLLGet(SCLNode *head,int i,DataType *x)
{
	SCLNode *p;
	int j;
	p=head;
	j=0;
	while(p->next!=head&&j<i)
	{
		p=p->next;
		j++;
	}
	if(j!=i)
	{
		printf("取元素位置参数错!");
		return 0;
	}
	*x=p->data;
	return 1;
}

int SCLLNotEmpty(SCLNode *head)
{
	if(head->next==head)
		return 0;
	else
		return 1;
}

void SCLLDeleteAfter(SCLNode *p)
{
	SCLNode *q=p->next;
	p->next=p->next->next;
	free(q);
}

void JesephRing(SCLNode *head,int m)
{
	SCLNode *pre,*curr;
	int i;
	pre=head;
	curr=head->next;
	while(SCLLNotEmpty(head)==1)
	{
		for(i=1;i<m;i++)
		{
			pre=curr;
			curr=curr->next;
			if(curr==head)
			{
				pre=curr;
				curr=curr->next;
			}
		}
		printf("%d ",curr->data.number);
		m=curr->data.cipher;
		curr=curr->next;
		if(curr==head)
			curr=curr->next;
		SCLLDeleteAfter(pre);
	}
}

int main()
{
	DataType test[7]={{1,3},{2,1},{3,7},{4,2},{5,4},{6,8},{7,4}};
	int n=7,m=20,i;
	SCLNode *head;
	SCLLInitiate(&head);
	for(i=1;i<=n;i++)
		SCLLInsert(head,i,test[i-1]);
	JesephRing(head,m);
	return 0;
}