岳麓山上打水（Vijos1159）

最新推荐文章于 2019-09-29 11:45:31 发布

five213ddking

最新推荐文章于 2019-09-29 11:45:31 发布

阅读量240

点赞数

CC 4.0 BY-SA版权

分类专栏： vijos 文章标签： output input 算法优化

本文链接：https://blog.youkuaiyun.com/five213ddking/article/details/6843458

vijos 专栏收录该内容

27 篇文章

订阅专栏

本文介绍了一道USACO题目，采用搜索+动态规划的方法进行解答。文章提供了完整的Pascal代码实现，并详细解释了算法流程，包括初始化、快速排序、检查解的存在性以及深度优先搜索。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

算法：DP

分析：这道题曾经做过的，是USACO上的一道题，其实就是个搜索+DP，也没什么新鲜的，但是不知道为什么就是老超时，只优化了一个地方，最后一个点通过需要1.34s……

program Vijos1159;

const
 maxq=20000;
 maxp=100;

var
 p,q,tot,depth:longint;
 a,sel:array [0..maxp] of longint;
 f:array [0..maxq] of longint;

procedure init;
var
 i:longint;
begin
 tot:=0;
 readln(q);
 readln(p);
 for i:=1 to p do readln(a[i]);
end;

procedure qsort(l,r:longint);
var
 i,j,m,t:longint;
begin
 i:=l;
 j:=r;
 m:=sel[(l+r) shr 1];
 repeat
  while sel[i]<m do inc(i);
  while sel[j]>m do dec(j);
  if i<=j then
   begin
    t:=sel[i];
    sel[i]:=sel[j];
    sel[j]:=t;
    inc(i);
    dec(j);
   end;
 until i>j;
 if i<r then qsort(i,r);
 if l<j then qsort(l,j);
end;

procedure check;
var
 i,j:longint;
begin
 fillchar(f,sizeof(f),0);
 f[0]:=1;
 for i:=1 to tot do
  begin
   for j:=sel[i] to q do
   inc(f[j],f[j-sel[i]]);
  end;
 if f[q]>0 then
  begin
   write(tot,' ');
   qsort(1,tot);
   for i:=1 to tot do write(sel[i],' ');
   writeln;
   close(input);
   close(output);
   halt;
  end;
end;

procedure dfs(dep,st:longint);
var
 i:longint;
begin
 check;
 if depth=dep then exit;
 for i:=st to p do
  begin
   inc(tot);
   sel[tot]:=a[i];
   dfs(dep+1,st+1);
   dec(tot);
  end;
end;

procedure main;
var
 i:longint;
begin
 for i:=1 to p do
  begin
   depth:=i;
   dfs(0,1);
  end;
end;

begin
 assign(input,'VJ1159.in'); reset(input);
 assign(output,'VJ1159.out'); rewrite(output);
 init;
 main;

 close(input); close(output);
end.