42 lines
717 B
ObjectPascal
42 lines
717 B
ObjectPascal
var e,i,j,k,l,m,n,p,q,r,s,t,c:longint;
|
|
pre,other,last:array[0..2000000] of longint;
|
|
pd:boolean;
|
|
|
|
begin
|
|
randomize;
|
|
assign(output,'candy10.in');
|
|
rewrite(output);
|
|
n:=100000;p:=1000000;c:=random(n)+1;m:=random(12345);
|
|
writeln(n,' ',p,' ',c);
|
|
writeln(m);
|
|
while p>0 do
|
|
begin
|
|
l:=random(n)+1;r:=random(n)+1;
|
|
if l<>r then
|
|
begin
|
|
pd:=true;
|
|
k:=last[l];
|
|
while k>0 do
|
|
begin
|
|
if other[k]=r then
|
|
begin
|
|
pd:=false;break;
|
|
end;
|
|
k:=pre[k];
|
|
end;
|
|
if not pd then continue;
|
|
inc(e);
|
|
other[e]:=r;
|
|
pre[e]:=last[l];
|
|
last[l]:=e;
|
|
inc(e);
|
|
other[e]:=l;
|
|
pre[e]:=last[r];
|
|
last[r]:=e;
|
|
writeln(l,' ',r);
|
|
dec(p);
|
|
end;
|
|
end;
|
|
close(output);
|
|
end.
|