Discussion @ 1098. Questions @ Timus Online Judge

I got AC but if u know algorithm O(n) please send it to me(e-mail inside message)

Posted by King Without Kingdom 1 Aug 2002 02:17

vladimir_mnog@mail.ru
tnxx

Re: I got AC but if u know algorithm O(n) please send it to me(e-mail inside message)

Posted by Andrey Popyk (popyk@ief.tup.km.ua) 2 Aug 2002 16:11

VAR N,M:longint;

FUNCTION Josefus(N,M:longint):longint;
var L,c:longint;
begin
L:=0;
for c:=1 to N do L:=(L+M-1) mod c + 1;
Josefus:=L;
end;

BEGIN
readln(N,M);
writeln(Josefus(N,M));
END.

Discussion of Problem 1098. Questions