vijos p1128 (选数)

来源：互联网发布：山东网络春晚2016直播编辑：程序博客网时间：2024/06/05 05:51

恩...用DFS深搜，本来是想编一个循环的DFS的，可是编了好久没有编出来，所以干脆还是用递归的办法编了一个，递归倒不是很难，这道题感觉有点八皇后的影子，每次一到临界条件然后判断是否符合题意就可以了，把程序贴下，顺便向大牛们求循环的编法。

1 program p1128; 2 var 3         n,s,k,i,j,m:longint; 4         x:array[1..30]of longint; 5 procedure haha(a,q,s:longint); 6 var 7         i,j:longint; 8 function ha(a:longint):boolean;{判断是否为素数} 9 var10         i:longint;11 begin12         i:=1;13         repeat14                 inc(i);15         until(a mod i=0)or(i>=trunc(sqrt(a)));16         if a mod i=0 then ha:=false else ha:=true;17 end;18 begin19       if q=k then begin if ha(s) then inc(m) end20       else if a<n then begin21       for i:=a+1 to n do22          haha(i,q+1,s+x[i]);23          end;24 end;25 {=================================================}26 begin27         read(n,k);28         for i:=1 to n do29         read(x[i]);30         haha(0,0,0);31         write(m);32 end.