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.