bzoj2729

一看就知道是数学题，考虑插空法
由于老师只有两人，所以先对老师进行插空
这里考虑两种情况：
1.两个老师站在同一处，即两个男生之间站了两个老师
这时候需要一个女生站在两个老师之间，再对女生插空，根据乘法原理即2*(n+1)*m*P(m-1,n+2);
2.两个老师已经被男生隔开了
这时候即P(2,n+1)*P(m,n+3);
最后加起来还要乘以n!(即男生排列数）即可

var a,b:array[0..30010] of longint;
    i,la,lb,n,m:longint;

procedure mul(y:longint);
  var i,j,x,t:longint;
  begin
    t:=0;
    for i:=1 to la do
    begin
      x:=a[i]*y+t;
      a[i]:=x mod 10;
      t:=x div 10;
    end;
    while t>0 do
    begin
      inc(la);
      a[la]:=t mod 10;
      t:=t div 10;
    end;
  end;

procedure add;
  var i,x,t:longint;
  begin
    if lb>la then la:=lb;
    t:=0;
    for i:=1 to la do
    begin
      x:=a[i]+b[i]+t;
      a[i]:=x mod 10;
      t:=x div 10;
    end;
    while t<>0 do
    begin
      inc(la);
      a[la]:=t mod 10;
      t:=t div 10;
    end;
  end;

begin
  readln(n,m);
  la:=1;
  a[1]:=1;
  for i:=1 to m do
    mul(n+4-i);
  mul(n+1);
  mul(n);
  lb:=la;
  b:=a;
  la:=1;
  fillchar(a,sizeof(a),0);
  a[1]:=2;
  mul(n+1);
  mul(m);
  for i:=1 to m-1 do
    mul(n+3-i);
  add;
  for i:=2 to n do
    mul(i);

  for i:=la downto 1 do
    write(a[i]);
  writeln;
end.