题意：
有(n+1)个柱子，每个柱子上最多放m个盘。
起初，第(n+1)个柱子是空的，其余的柱子都放满了盘。盘有n种颜色，每种各m个。
要求移动，使颜色归位。
首先，考虑(n=2)的做法。即只有黑白两种颜色。
可以这样做：
先将所有黑色移到白色上面，然后就显然了。
设1号柱子有x个黑色的。
那么，将2号柱子最上面的x个盘移至3号，使2号柱子空出x个位置。
然后，对于1号柱子的所有盘，黑色的移到2号，白色的移到3号。
然后，把3号柱子上面的那些白色盘移到1号，再把2号柱子上面的那些黑色盘移到1号。
最后，把x个盘移回2号。
这样，在保证2号柱子不动的前提下，整理了1号。
对于(n>2)的情况：
分治。
把一半颜色染成黑色，另一半染成白色。
按照上述做法整理所有柱子。
每次，挑选两根柱子，利用空柱子，便可以整理出一根颜色只有黑或白的柱子。
这样，把所有柱子都变成单色的（黑或白），就可以继续分治了。
复杂度（操作次数）：(O(nmlogn))。
代码：
#include <stdio.h>
int rs[402],M;
struct Stk
{
int st[402],tp;
Stk(){tp=0;}
void push(int x)
{
st[tp++]=x;
}
int top()
{
return st[tp-1];
}
int pop()
{
return st[--tp];
}
int count()
{
int rt=0;
for(int i=0;i<tp;i++)
rt+=rs[st[i]];
return rt;
}
/*void print()
{
for(int i=0;i<tp;i++)
printf("%d ",st[i]);
}*/
};
Stk sz[52];
int ax[820010],ay[820010],sl=0,em,ss[52];
void move(int x,int y)
{
ax[sl]=x;ay[sl++]=y;
sz[y].push(sz[x].pop());
}
void up1(int b,int c)
{
int a=em,s=ss[b];
for(int i=0;i<s;i++)
move(c,a);
while(sz[b].tp)
{
if(rs[sz[b].top()])
move(b,c);
else
move(b,a);
}
for(int i=0;i<M-s;i++)
move(a,b);
for(int i=0;i<s;i++)
move(c,b);
for(int i=0;i<s;i++)
move(a,c);
}
void rev(int &a)
{
ss[em]=M-ss[a];
for(int i=0;i<M;i++)
move(a,em);
int t=em;
em=a;a=t;
}
void tog(int &a,int &b)
{
int fn[2]={0};
int sa=ss[a],sb=ss[b];
if(rs[sz[b].top()]!=rs[sz[a].top()])
fn[1]=1,sb=M-sb;
if(sa+sb>M)
fn[0]^=1,fn[1]^=1;
if(fn[0])rev(a);
if(fn[1])rev(b);
if(ss[a]>ss[b])
{
int t=a;
a=b;b=t;
}
for(int i=0;i<ss[a];i++)
move(a,em);
for(int i=0;i<ss[b];i++)
move(b,em);
for(int i=0;i<ss[a];i++)
move(b,a);
for(int i=0;i<ss[a]+ss[b];i++)
move(em,b);
ss[b]+=ss[a];
}
void dfs(int zz[52],int co[52],int n)
{
if(n<=1)
return;
int m=n/2;
for(int i=0;i<m;i++)rs[co[i]]=1;
for(int i=m;i<n;i++)rs[co[i]]=0;
for(int i=0;i<n;i++)ss[zz[i]]=sz[zz[i]].count();
for(int i=0;i<n;i++)up1(zz[i],zz[(i+1)%n]);
int zl[52],a=0,zr[52],b=0;
for(int i=0;i<n-1;i++)
tog(zz[i],zz[i+1]);
for(int i=0;i<n;i++)
{
int t=zz[i];
if(rs[sz[t].top()])
zl[a++]=t;
else
zr[b++]=t;
}
dfs(zl,co,m);
dfs(zr,co+m,n-m);
}
int main()
{
//freopen("ball.in","r",stdin);
//freopen("ball.out","w",stdout);
int n;
scanf("%d%d",&n,&M);
for(int i=1;i<=n;i++)
{
for(int j=0;j<M;j++)
{
int a;
scanf("%d",&a);
sz[i].push(a);
}
}
em=n+1;
int zz[52],co[52];
for(int i=0;i<n;i++)
zz[i]=co[i]=i+1;
dfs(zz,co,n);
printf("%d
",sl);
for(int i=0;i<sl;i++)
printf("%d %d
",ax[i],ay[i]);
return 0;
}