Question

noip2002普及组复赛第二题（PASCAL）

已知 n 个整数 x1,x2,…,xn，以及一个整数 k（k＜n）。从 n 个整数中任选 k 个整数相加，可分别得到一系列的和。例如当 n=4，k＝3，4 个整数分别为 3，7，12，19 时，可得全部的组合与它们的和为：
3＋7＋12=22 3＋7＋19＝29 7＋12＋19＝38 3＋12＋19＝34。
现在，要求你计算出和为素数共有多少种。
例如上例，只有一种的和为素数：3＋7＋19＝29）。
n , k （1<=n<=20，k＜n）
x1,x2，…,xn （1<=xi<=5000000 不要那个解题报告上的分析，小弟看不懂！需要分析+核心源代码，O(∩_∩)O谢谢！

Answer 1

就是直接dfs k层，复杂度为C（n，k）。具体的实现见 run（s,i,p）//s：到目前为止的和 i:整数选自a[1--i] p:现在已经选了几个数

procedure init;
var i:longint;
begin
assign(input,name+'.in');reset(input);
read(n,k);
for i:=1 to n do read(a[i]);
close(input);
ans:=0;
end;

function ok(x:longint):boolean;
var i:longint;
begin
ok:=true;
for i:=2 to trunc(sqrt(x))do
if x mod i=0 then begin ok:=false;break;end;
end;

procedure run(s,i,p:longint);
var j:longint;
begin
if p=k+1 then
begin
if ok(s)then inc(ans);
exit;
end;
for j:=i+1 to n do run(s+a[j],j,p+1);
end;

begin
assign(output,name+'.out');rewrite(output);
init;
run(0,0,1);
writeln(ans);
close(output);
end.