Vijos哔哩哔哩（vijos）

1、这是我在VIJOS上做的program p1092; var m,n,i,j,k,u,l,h,s,y:longint; a,c:array[1.25] of qword; b,d:array[1.25]of integer;begin read(m,n); h:=0;y:=m; k:=n-1;u:=1; a[1]:=1;a[2]:=1;a[3]:=2; fillchar(b,sizeof(b),0); for i:=4 to 21 do a[i]:=(i-1)*a[i-1]; repeat s:=k p a[y]; k:=k mod a[y]; dec(y); inc(h); d[h]:=s; until h=m; for i:=1 to m do b[i]:=i; k:=0; y:=m; for i:=1 to m do begin inc(k); c[k]:=b[d[i]+1]; for j:=d[i]+1 to y-1 do b[j]:=b[j+1]; y:=y-1; end; for i:=1 to m do write(c[i],);end.我是出题者LK，你这是传统的搜索，搜索是100%通不过的。

2、想一想别的方法吧，不会可以给我发信息。

TAG：vijos