USACO 2.1 健康的好斯坦奶牛

Description

　　农民JOHN以拥有世界上最健康的奶牛为骄傲。他知道每种饲料中所包含的的牛所需的最低的维他命量是多少。请你帮助农夫喂养他的牛，以保持他们的健康，使喂给牛的饲料的种数最少。 
　　给出牛所需的最低的维他命，输出喂给牛需要哪些种类的饲料，且所需的种类数最少。 

Input

第1行：一个整数V(1<=V<=25)，表示需要的维他命的种类数。 
第2行：V个整数(1<=每个数<=1000)，表示牛每天需要的维他命的最小量。 
第3行：一个整数G(1<=G<=15)，表示可用来喂牛的饲料的数量。下面G行，第i行表示编号为i饲料包含的各种维他命的量的多少。 

Output

输出文件只有一行，包括： 
• 牛必需的最小的饲料种数P 
• 后面有P个数，表示所选择的饲料编号（按从小到大排列）。 
末尾有空行 

Sample Input

 

4 

100 200 300 400 

3 

50 50 50 50 

200 300 200 300 

900 150 389 399

 

Sample Output

 

2 1 3

解题思路：读入数据，用深搜，从第一层开始，先判断是否满足条件，如果满足就更新存储，如果超过实际最多层数或超过实际最多方案数就退出，不然就用循环开始接着往下搜索，最后输出ans数组里面的数据即可。

程序：

var

  a,ans,b:array[0..30]of longint;

  c:array[0..20,0..30]of longint;

  v,i,j,g,min:longint;

function pd:boolean;

  var

    i:longint;

  begin

    for i:=1 to v do

      if a[i]>0 then exit(false);

    exit(true);

end;

procedure dfs(x,h,k:longint);

  var

    i:longint;

  begin

    if (pd) and (h-1

    if h>g then exit;

    if x>g then exit;

    if k=1 then

      begin

        b[h]:=x;

        for i:=1 to v do

          dec(a[i],c[x,i]);

        dfs(x+1,h+1,1);

        dfs(x+1,h+1,0);

        for i:=1 to v do

          inc(a[i],c[x,i]);

      end;

    if k=0 then

      begin

        dfs(x+1,h,1);

        dfs(x+1,h,0);

      end;

end;

begin

  readln(v);

  for i:=1 to v do

    read(a[i]);

  readln;

  readln(g);

  for i:=1 to g do

    begin

      for j:=1 to v do

        read(c[i,j]);

      readln;

    end;

  min:=maxlongint;

  dfs(1,1,0);

  dfs(1,1,1);

  write(min-1,' ');

  for i:=1 to min-2 do

    write(ans[i],' ');

  writeln(ans[min-1]);

end.