Description
张三是某工程公司的项目工程师。一天公司接下一项大型工程，该公司在大型工程的施工前，先要把整个工程划分为若干个子工程，并把这些子工程编号为1、2、…、N；这样划分之后，子工程之间就会有一些依赖关系，即一些子工程必须在某些子工程完成之后才能施工，公司需要工程师张三计算整个工程最少的完成时间。
对于上面问题，可以假设：
1、根据预算，每一个子工程都有一个完成时间。
2、子工程之间的依赖关系是：部分子工程必须在一些子工程完成之后才开工。
3、只要满足子工程间的依赖关系，在任何时刻可以有任何多个子工程同时在施工，也即同时施工的子工程个数不受限制。
例如：有五个子工程的工程规划表：
现在对于给定的子工程规划情况，及每个子工程完成所需的时间，如果子工程划分合理则求出完成整个工程最少要用的时间，如果子工程划分不合理，则输出-1。
Input
第1行为正整数N，表示子工程的个数（N<=200）
第2行为N个正整数，分别代表子工程1、2、…、N的完成时间。
第3行到N+2行，每行有N-1个0或1，其中的第K+2行的这些0或1，分别表示“子工程K”与子工程1、2、…、K-1、K+1、…、N的依赖关系（K=1、2、…、N）。每行数据之间均用空格分开。
Output
如果子工程划分合理则输出完成整个工程最少要用的时间，如果子工程划分不合理，则输出-1。
Sample Input
project.in
5
5 4 12 7 2
0 0 0 0
0 0 0 0
0 0 0 0
1 1 0 0
1 1 1 1.
project.in
5
5 4 12 7 2
0 1 0 0
0 0 0 0
0 0 1 0
1 1 0 0
1 1 1 1
Sample Output
project.out
14
project.out
-1
Source
题解：
本题是个深搜和动态规划，f[i]表示第i个工程最少能在多少时间内完成
思路是先从1到n枚举，再调用子程序将当前工程的子工程总花费统计起来，最后输出即可
至于本题为什么会存在做不出来的情况呢，我在此举个例子：①→②→③→①→Explotion!(本程序要完成，就要先完成箭头指向的程序)在这里前提条件与要做的工程重合，故成了死循环，程序会炸
var
t,f:array[1..200]of longint;
v:array[0..200]of boolean;
a:array[0..200,0..200]of longint;
n,i,j,ans:longint;
function max(a,b:longint):longint;
begin
if a>b then exit(a);
exit(b);
end;
procedure dfs(dep:longint);
var
x,i:longint;
begin
x:=0;
if v[0] then exit;
if v[dep] then//当前这个点是前提条件，所以不能做(成了梦比优斯(莫比乌斯)环了)
begin
v[0]:=true;
exit;
end;
for i:=1 to n do
if a[dep,i]=1 then//可以被做
begin
if f[i]=2333333 then//没被做过
begin
v[i]:=ture;//是前提条件
dfs(i);
v[i]:=false;//回溯
end;
x:=max(x,f[i]);//累加
end;
f[dep]:=x+t[dep];//更新
end;
begin
read(n);
for i:=1 to n do read(t[i]);
for i:=1 to n do
begin
for j:=1 to n do if i<>j then read(a[i,j]);//由题意得它不会输入自己到自己的时间，所以要有个特判跳过
f[i]:=2333333;//赋大值
end;
for i:=1 to n do
begin
v[0]:=false; v[i]:=false;//当前工程不是前提条件
dfs(i);
if v[0] then break;
ans:=max(ans,f[i]);//统计
end;
if v[0] then write(-1)
else write(ans);
end.