USACO 2.1 健康的好斯坦奶牛 (DFS)

8 篇文章 0 订阅

Description

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

Input

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

Output

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

题解

就一个dfs,水了。
Executing…
Test 1: TEST OK [0.000 secs, 340 KB]
Test 2: TEST OK [0.000 secs, 340 KB]
Test 3: TEST OK [0.000 secs, 340 KB]
Test 4: TEST OK [0.000 secs, 340 KB]
Test 5: TEST OK [0.000 secs, 340 KB]
Test 6: TEST OK [0.000 secs, 340 KB]
Test 7: TEST OK [0.000 secs, 340 KB]
Test 8: TEST OK [0.000 secs, 340 KB]
Test 9: TEST OK [0.011 secs, 340 KB]
Test 10: TEST OK [0.011 secs, 340 KB]
All tests OK.

代码

{
ID: zyx52yzl
LANG: PASCAL
TASK: holstein
}
var
  m,n,l,tot,min:longint;
  a:array [0..31]of longint;
  ans,tmp:array [0..20]of longint;
  f:array [0..20,0..31] of longint;
procedure init;
var
  i,j:longint;
begin
  readln(n);
  for i:=1 to n do
    read(a[i]);
  readln(m);
  for i:=1 to m do
    for j:=1 to n do
      read(f[i,j]);
  tot:=0;
  min:=maxlongint;
end;

function check:boolean;
var
  i:longint;
begin
  for i:=1 to n do
    if a[i]>0 then exit(false);
  exit(true);
end;

procedure dfs(k:longint);
var
  i:longint;
begin
  if (check) and (tot<min) then
    begin
      ans:=tmp;
      min:=tot;
    end;
  if k>m then exit;
  inc(tot);
  tmp[tot]:=k;
  for i:=1 to n do
    a[i]:=a[i]-f[k,i];
  dfs(k+1);
  dec(tot);
  for i:=1 to n do
    a[i]:=a[i]+f[k,i];
  dfs(k+1);
end;

procedure print;
var
  i:longint;
begin
  write(min,' ');
  for i:=1 to min-1 do
    write(ans[i],' ');
  writeln(ans[min]);
end;

begin
  assign(input,'holstein.in');
  assign(output,'holstein.out');
  reset(input);
  rewrite(output);
  init;
  dfs(1);
  print;
  close(input);
  close(output);
end.

  • 1
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值