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.