记录编号 49085 评测结果 WTTTT
题目名称 三只小猪 最终得分 0
用户昵称 Gravatardigital-T 是否通过 未通过
代码语言 Pascal 运行时间 4.000 s
提交时间 2012-11-07 12:33:44 内存使用 0.17 MiB
显示代码纯文本
var
n,m,t,q,ans:longint;
f:array[1..50]of longint;
procedure sss(a,b:longint);//pig A is in B
var i:longint;w:boolean;
begin
inc(f[b]);

if a=n then
 begin
  w:=true;
  for i:=1 to m do if f[i]=0 then begin w:=false;break;end;
  if w then inc(ans);
 end
else
 for i:=1 to m do sss(a+1,i);

dec(f[b]);
end;
begin
assign(input,'piggy.in');reset(input);
assign(output,'piggy.out');rewrite(output);
read(t);
for q:=1 to t do
 begin
  fillchar(f,sizeof(f),0);
  ans:=0;
  read(n,m);
  if (n>m)and(m>1) then begin sss(1,1);ans:=ans div(m-1);end;
  if (n=m)or(m=1) then ans:=1;
  writeln(ans);
 end;
close(input);close(output);
end.