vijos p1128 (选数)

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

program p1128;
var
        n,s,k,i,j,m:longint;
        x:array[1..30]of longint;
procedure haha(a,q,s:longint);
var
        i,j:longint;
function ha(a:longint):boolean;{判断是否为素数}
var
        i:longint;
begin
        i:=1;
        repeat
                inc(i);
        until(a mod i=0)or(i>=trunc(sqrt(a)));
        if a mod i=0 then ha:=false else ha:=true;
end;
begin
      if q=k then begin if ha(s) then inc(m) end
      else if a<n then begin
      for i:=a+1 to n do
         haha(i,q+1,s+x[i]);
         end;
end;
{=================================================}
begin
        read(n,k);
        for i:=1 to n do
        read(x[i]);
        haha(0,0,0);
        write(m);
end.