peterjiang 2008-11-04 05:07:00
点我顶贴
收藏
删除
program ss;
var
a:array[0..150000]of longint;
i,j,k,l,m,n,o,p,q,r,s,t,u:longint;
begin
readln(p,o);
for i:=0 to p-1 do a[i]:=i+1;
for i:=1 to o do
begin
readln(l,m,n);
k:=0;
for j:=1 to l-1 do
k:=a[k];
r:=k;
k:=a[k];
s:=k;
for j:=l+1 to m do
k:=a[k];
t:=k;
a[r]:=a[t];
k:=0;
for j:=1 to n do
k:=a[k];
u:=k;
q:=a[u];
a[u]:=s;
a[t]:=q;
end;
k:=0;
for i:=1 to 9 do
begin
k:=a[k];
writeln(k);
end;
k:=a[k];
writeln(k);
end.