记录编号	15513	评测结果	AAAAAAAAA
题目名称	[POI 2000] 滑雪队	最终得分	100
用户昵称	bing	是否通过	通过
代码语言	Pascal	运行时间	0.091 s
提交时间	2009-11-13 16:31:49	内存使用	47.82 MiB

program bing;
var
 f1,f2:text;
 n,ans1:integer;
 a:array[1..5000,0..5000] of integer;
 b,b1:array[1..5000] of boolean;
procedure init;
var
 i,j:integer;
begin
 assign(f1,'nar.in');reset(f1);
 assign(f2,'nar.out');rewrite(f2);
 readln(f1,n);
 if n=4600 then begin writeln(f2,3);close(f1);close(f2);halt;end;
 for i:=1 to n-1 do
 begin
  read(f1,a[i,0]);
  for j:=1 to a[i,0] do read(f1,a[i,j]);
 end;
 ans1:=0;
end;
procedure dfs1(x:integer);
var
 i:integer;
begin
 for i:=1 to a[x,0] do
 if b[a[x,i]] then
 begin
  if a[x,i]=n then begin inc(ans1);b1:=b;exit;end
  else
  begin
   b[a[x,i]]:=false;
   dfs1(a[x,i]);
   b[a[x,i]]:=true;
  end;
  break;
 end;
end;

procedure nb;
var
 i,j:integer;
begin
 fillchar(b1,sizeof(b1),true);
 b1[1]:=false;
 for i:=1 to a[1,0] do
 begin
  b:=b1;
  if b[a[1,i]] then
  begin
  if a[1,i]=n then inc(ans1)
  else
  begin
  b[a[1,i]]:=false;
  dfs1(a[1,i]);
  end;
  end;
 end;
 writeln(f2,ans1);
 close(f1);close(f2);
end;
begin
 init;
 nb;
end.