Description
Bob喜欢玩电脑游戏，特别是战略游戏。但是他经常无法找到快速玩过游戏的办法。现在他有个问题。他要建立一个古城堡，城堡中的路形成一棵树。他要在这棵树的结点上放置
最少数目的士兵，使得这些士兵能了望到所有的路。注意，某个士兵在一个结点上时，与该结点相连的所有边将都可以被了望到。
请你编一程序，给定一树，帮Bob计算出他需要放置最少的士兵。
Input
输入文件中数据表示一棵树，描述如下：
第一行 N，表示树中结点的数目。
第二行至第N+1行，每行描述每个结点信息，依次为：该结点标号i，k(后面有k条边与结点I相连)，接下来k个数，分别是每条边的另一个结点标号r1，r2，...，rk。
对于一个n(0 <n <= 1500)个结点的树，结点标号在0到n-1之间，在输入文件中每条边只出现一次。
Output
输出文件仅包含一个数，为所求的最少的士兵数目。
例如，对于如右图所示的树：
答案为1（只要一个士兵在结点1上）。
Sample Input
4
0 1 1
1 2 2 3
2 0
3 0
Sample Output
1
思路：由于题目的描述很容易想到这是树形dp（毕竟刷的都是一类题目），通过分析可以发现，当前没有士兵的节点属于叶节点时，放置在它的父节点上是最优解；当前节点的儿子节点已经放置了士兵时就可以不用放。
源代码:pas/
var
f:array[0..1000,0..1000]of longint;
b,c:array[0..1000]of longint;
n:longint;
function leaf(x:longint):boolean;
var
i:longint;
begin
leaf:=true;
for i:=0 to n-1 do
if f[x,i]=1 then exit(false);
end;
function dp(x:longint):longint;
var
i,j,k,l:longint;
begin
j:=0;
k:=0;
l:=0;
for i:=0 to n-1 do
if (f[x,i]=1)and(x<>i) then
if leaf(i) then
inc(k)
else
begin
j:=j+dp(i);
if b[i]=0 then inc(l);
end;
if (k>0)or(l>0) then
begin
b[x]:=1;
dp:=j+1;
exit;
end;
if (j>0)and(l=0) then
begin
dp:=j;
exit;
end;
end;
procedure init;
var
i,j,x,y,k:longint;
begin
readln(n);
for i:=1 to n do
begin
read(x,y);
for j:=1 to y do
begin
read(k);
f[x,k]:=1;
c[k]:=1;
end;
end;
for i:=0 to n-1 do
if c[i]=0 then break;
if leaf(i) then
writeln(1)
else
writeln(dp(i));
end;
begin
init;
end.