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[..] of longint;
     i,la,lb,n,m:longint;

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

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

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

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