网站鼠标特效,网络营销公司哪家不错,如何用dedecms做网站,wordpress卡密插件Description Input 第一行为两个整数n, m。第二行有n个整数#xff0c;为a1#xff0c;a2, …, an。 Output 包含n行#xff0c;每行m个1~nm的正整数#xff0c;各不相同#xff0c;以空格分开。如果有多解#xff0c;输出任意一组解#xff1b;如果无解#xff0c;输出…Description Input 第一行为两个整数n, m。第二行有n个整数为a1a2, …, an。 Output 包含n行每行m个1~n×m的正整数各不相同以空格分开。如果有多解输出任意一组解如果无解输出一个整数0。 Sample Input Sample Output HINT 30%的数据满足n, m≤10 100%的数据满足3≤n, m≤200 题解 把ai认为是i的父亲使其连边那么题目给出的关系构成了一个基环树森林。 对于在环外、指向环的边即“树”的部分使骰子的每一个面都比其父亲大。 观察1、4样例可以发现一个构造方式对于一个大小为n环从第一个点开始逆着父亲边放入1~n再从第一个点在环上的儿子开始逆着父亲边以此放入n1~2*n直到放满n*m个数。 但是这个构造法在样例3中失败了。事实上可以证明只有在像样例3这种环大小为3骰子面数为4的情况下该方法会失效。对于这种情况进行特判。 注意环大小为2或是m2的情况一定无法构造。 代码 1 const2 bb:array[1..12]of longint(1,2,4,3,7,5,10,8,6,11,9,12);3 var4 i,j,k,l,n,m,cnt:longint;5 fa,a,b,c:array[0..1001]of longint;6 d:array[0..1001,0..1001]of longint;7 procedure ss2(x:longint);8 var i:longint;9 begin
10 if a[x]2 then
11 begin
12 for i:1 to m do
13 begin inc(cnt); d[x,i]:cnt; end;
14 a[x]:2;
15 end;
16 i:c[x];
17 while i0 do
18 begin
19 if a[i]2 then ss2(i);
20 i:b[i];
21 end;
22 end;
23 procedure ss(x:longint);
24 var i,j,k,l,xx:longint;
25 begin
26 a[x]:1; x:fa[x];
27 while a[x]0 do
28 begin
29 a[x]:1; x:fa[x];
30 end;
31 k:1; xx:fa[x]; a[x]:2;
32 while xxx do begin inc(k); a[xx]:2; xx:fa[xx]; end;
33 if k2 then begin writeln(0); halt; end;
34 if(k3)and(m4)then
35 begin
36 for i:1 to 12 do
37 begin
38 d[x,1((i-1)div 3)]:bb[i];
39 x:fa[x];
40 end;
41 end else
42 begin
43 for i:1 to m do
44 begin
45 l:cntk;
46 for j:1 to k do
47 begin
48 d[x,i]:l; dec(l);
49 if jk then x:fa[x];
50 end;
51 cnt:cntk;
52 end;
53 end;
54 for i:1 to k do
55 begin
56 ss2(x); x:fa[x];
57 end;
58 end;
59 begin
60 readln(n,m);
61 for i:1 to n do
62 begin
63 read(fa[i]);
64 b[i]:c[fa[i]]; c[fa[i]]:i;
65 end;
66 for i:1 to n do
67 if a[i]0 then ss(i);
68 for i:1 to n do
69 begin
70 for j:1 to m do write(d[i,j], );
71 writeln;
72 end;
73 end. View Code转载于:https://www.cnblogs.com/GhostReach/p/6255679.html
