一道江苏的noip的模拟题，帮我看看

程序：
var
num,n:longint;
procedure dfs(i,ans:longint);
begin
if (i=n) and (ans=n) then begin num:=num+1; exit; end
else
begin
if ans+i<=n then begin dfs(i+1,ans+i); ans:=ans-i; end;
if ans-i<=n then begin dfs(i+1,ans-i); ans:=ans+i; end;
end;
end;
begin
read(n);
dfs(2,-1);
write(num);
end.

202错误，爆栈啊

大神快来啊

@甜心宝贝II

能不能好好玩了

这题要动态规划吧？

N<=24，明显是状压。。这里我是指对加减号状压。要是内存大于64M肯定就是这样做了。
当然仔细思考发现这题用不着这么麻烦。。因为要输出所有可能。。那么就是广搜的事了。。