Healthy Holsteins 健康的好斯坦奶牛

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.