洛谷 P1996 约瑟夫问题

题目背景

约瑟夫是一个无聊的人！！！

题目描述

n个人(n<=100)围成一圈,从第一个人开始报数,数到m的人出列,再由下一个人重新从1开始报数,数到m的人再出圈,……依次类推,直到所有的人都出圈,请输出依次出圈人的编号.

输入输出格式

输入格式：
n m

输出格式：
出圈的编号

输入输出样例

输入样例#1：
10 3
输出样例#1：
3 6 9 2 7 1 8 5 10 4
说明

你猜，你猜，你猜猜猜……

猜不着吧，我也不告诉你！！！

分析：就是纯模拟（猴子选大王啊），用链表快些（这估计是这个专题的）。

代码：

var
  i,n,m,e,j:longint;
  next,a:array[0..100005]of longint;
begin
  readln(n,m);
  for i:=1 to n do
  begin
    a[i]:=i;
    next[i]:=i+1;
  end;
  next[n]:=1;
  e:=n;
  for i:=1 to n do
  begin
    for j:=1 to m-1 do e:=next[e];
    write(a[next[e]],' ');
    next[e]:=next[next[e]];
  end;
end.