poj2886

反素数范围不大，可以直接打表得
然后就是模拟移动的过程
我们可以用线段树优化，具体明天再说吧

 const op:array[..] of longint=(,,,,,,,,,,,,,,
                                  ,,,,,,,,
                                  ,,,,,,,
                                  ,,,,,);
       fac:array[..] of longint=(,,,,,,,,,,,,,,,,,
                                  ,,,,,,,,,,,,,
                                  ,,,,);
 var tree:array[..] of longint;
     a:array[..] of longint;
     nam:array[..] of string[];
     p,k,i,w,h,n,m:longint;
     ch:char;

 procedure build(i,l,r:longint);
   var m:longint;
   begin
     if l=r then
       tree[i]:=
     else begin
       m:=(l+r) shr ;
       build(i*,l,m);
       build(i*+,m+,r);
       tree[i]:=tree[i*]+tree[i*+];
     end;
   end;

 procedure work(i,l,r:longint);
   var m:longint;
   begin
     if l=r then
       tree[i]:=
     else begin
       m:=(l+r) shr ;
       if k<=m then work(i*,l,m)
       else work(i*+,m+,r);
       tree[i]:=tree[i*]+tree[i*+]
     end;
   end;

 function sum(i,l,r:longint):longint;
   var m:longint;
   begin
     if (<=l) and (k>=r) then
       exit(tree[i])
     else begin
       m:=(l+r) shr ;
       sum:=;
       if m>= then sum:=sum+sum(i*,l,m);
       if k>m then sum:=sum+sum(i*+,m+,r);
     end;
   end;

 function ask(i,l,r:longint):longint;   
   var m:longint;
   begin
     if l=r then exit(l)
     else begin
       m:=(l+r) shr ;
       if w>tree[i*] then
       begin
         w:=w-tree[i*];
         exit(ask(i*+,m+,r));
       end
       else exit(ask(i*,l,m));
     end;
   end;

 begin
   while not eof do
   begin
     readln(n,k);
     for i:= downto  do
       if (op[i]<=n) then
       begin
         p:=i;
         break;
       end;

     m:=n;
     for i:= to n do
     begin
       nam[i]:='';
       read(ch);
       while ch<>' ' do
       begin
         nam[i]:=nam[i]+ch;
         read(ch);
       end;
       readln(a[i]);
     end;
     build(,,n);

     for i:= to op[p]- do
     begin
       dec(m);
       work(,,n);
       if a[k]< then  //分类讨论，找下一个人
       begin
         w:=-a[k];
         h:=sum(,,n);
         if w<=h then
         begin
           w:=h-w+;
           k:=ask(,,n);
         end
         else begin
           w:=(w-h-) mod m+;
           w:=m-w+;
           k:=ask(,,n);
         end;
       end
       else begin
         w:=a[k];
         h:=sum(,,n);
         if w<=m-h then
         begin
           w:=w+h;
           k:=ask(,,n);
         end
         else begin
           w:=w-(m-h);
           w:=(w-) mod m+;
           k:=ask(,,n);
         end;
       end;
     end;
     writeln(nam[k],' ',fac[p]);
   end;
 end.