约瑟夫问题

约瑟夫问题：有ｎ只猴子，按顺时针方向围成一圈选大王（编号从１到ｎ），从第１号开始报数，一直数到ｍ，数到ｍ的猴子退出圈外，剩下的猴子再接着从1开始报数。就这样，直到圈内只剩下一只猴子时，这个猴子就是猴王，编程求输入ｎ，ｍ后，输出最后猴王的编号。

关于输入

每行是用空格分开的两个整数，第一个是 n, 第二个是 m ( 0 < m,n <=300)。最后一行是： 0 0

关于输出

对于每行输入数据（最后一行除外)，输出数据也是一行，即最后猴王的编号

c代码

#include<stdio.h>
int f (int a[] , int n , int m);
int main()
{
	int a,b;
	while(1)
	{
		scanf("%d %d" , &a , &b);
		if (a == 0 && b == 0) break;
		else 
		{
			int p[a+1];
			for ( int i = 0;i <= a;i ++)
				p[i] = i;
			printf("%d\n" , f(p , a , b));
		}
	}
	return 0;
} 
int f (int a[],int n,int m)
{
	if (n == 1) return a[1];
	else
	{
		int r = m % n;
		int b[n];
		b[0] = 0;
		for (int i = r + 1;i <= n; i ++) b[i-r]=a[i];
		for (int i = 1; i < r;i ++) b[n - r + i] = a[i];
		return f (b , n-1 ,m);
	}
}

Haskell:

king' n m a
	|n == 1 = a !! 0 
	|otherwise = king' (n - 1) m b
		where b = let x = rem m n in drop x a ++ take (x-1) a
king n m = king' n m a
		where a = [1..n]