Healthy Holsteins 健康的好斯坦奶牛
农民JOHN以拥有世界上最健康的奶牛为骄傲。他知道每种饲料中所包含的的牛所需的最低的维他命量是多少。请你帮助农夫喂养他的牛,以保持它们的健康,使喂给牛的饲料的种数最少。
给出牛所需的最低的维他命量,输出喂给牛需要哪些种类的饲料,且所需的饲料剂量最少。
维他命量以整数表示,每种饲料最多只能对牛使用一次,数据保证存在解。
PROGRAM NAME: holstein
INPUT FORMAT 24
第 1 行:一个整数 V(1<=V<=25),表示需要的维他命的种类数.
第 2 行:V 个整数(1<=每个数<=1000),表示牛每天需要的维他命的最小量.
第3行:一个整数G(1<=G<=15),表示可用来喂牛的饲料的数量.下面G行,第i行表示编号为 i饲料
包含的各种维他命的量的多少.
SAMPLE INPUT (file holstein.in)
4
100 200 300 400
3
50 50 50 50
200 300 200 300
900 150 389 399
OUTPUT FORMAT
输出文件只有一行,包括:
牛必需的最小的饲料种数 P
后面有 P 个数,表示所选择的饲料编号(按从小到大排列).
SAMPLE OUTPUT (file holstein.out)
2 1 3
===============================================
=================================
{
ID:jie19952
PROG:holstein
LANG:PASCAL
}
var
v,g:longint;
w_need:array[1..1000]of longint;
w_now:array[1..1000]of longint;
w_offer:array[1..15,1..25]of longint;
ans:array[1..25]of longint;
bool:array[1..25]of boolean;
procedure init;
begin
assign(input,'holstein.in');
assign(output,'holstein.out');
reset(input); rewrite(output);
end;
procedure terminate;
begin
close(input); close(output);
halt;
end;
procedure dfs(t,last,aim:longint);
var
i,j:longint;
begin
if t>aim then
begin
for i:=1 to v do
if w_now[i]<w_need[i] then exit;
write(t-1);
for i:=1 to t-1 do
write(' ',ans[i]);
writeln;
terminate;
end;
for i:=last+1 to g do
begin
for j:=1 to v do inc(w_now[j],w_offer[i,j]);
ans[t]:=i;
dfs(t+1,i,aim);
for j:=1 to v do dec(w_now[j],w_offer[i,j]);
end;
end;
procedure main;
var
i,j:longint;
begin
read(v);
for i:=1 to v do read(w_need[i]);
read(g);
for i:=1 to g do
for j:=1 to v do
read(w_offer[i,j]);
fillchar(bool,sizeof(bool),true);
fillchar(w_now,sizeof(w_now),0);
for i:=1 to g do
begin
dfs(1,0,i);
end;
end;
begin
init;
main;
terminate;
end.