Money Systems [复制链接]

2.2 PROB Money Systems

这个题目的测试点10十分变态
我写好程序，就是通不过
又没有优化方法
只好提交几十次，终于通过了一次^_^

TASK: money
LANG: PASCAL

Compiling...
Compile: OK

Executing...
sending data (money) money /home/kolstad/trainweb

Test 1 OK [0.003 secs]
Test 2 OK [0.003 secs]
Test 3 OK [0.003 secs]
Test 4 OK [0.005 secs]
Test 5 OK [0.018 secs]
Test 6 OK [0.09 secs]
Test 7 OK [0.004 secs]
Test 8 OK [0.005 secs]
Test 9 OK [0.005 secs]
Test 10 OK [0.99 secs]
Test 11 OK [0.005 secs]
Test 12 OK [0.017 secs]
Test 13 OK [0.029 secs]

All tests OK.

Your program ('money') produced all correct answers!  This is your
submission #36 for this problem.  Congratulations!

紧接着的下一次就又失败了^_^

TASK: money
LANG: PASCAL

Compiling...
Compile: OK

Executing...
sending data (money) money /home/kolstad/trainweb

Test 1 OK [0.003 secs]
Test 2 OK [0.003 secs]
Test 3 OK [0.004 secs]
Test 4 OK [0.005 secs]
Test 5 OK [0.018 secs]
Test 6 OK [0.093 secs]
Test 7 OK [0.003 secs]
Test 8 OK [0.005 secs]
Test 9 OK [0.006 secs]
Execution error: Your program (`money') used more than the allotted
runtime of 1 seconds (it ended or was stopped at 1.011 seconds) when
presented with test case 10, shown below.

----- Test Case 10 ------
5 10000
5 8 13 21 34
----------------------------

我写的程序：
{ ID: oifans1 PROG: money LANG: PASCAL } program t1; var v:shortint; i:shortint; n:integer; vs:array[1..10000] of integer; sto:array[1..25,1..10000] of int64; function num(i,t:integer) : int64; var temp:int64; begin if i=0 then exit(0); if i=1 then begin if t=vs[1] then exit(1); if t<vs[1] then exit(0); end; if t=0 then exit(1); if t<0 then exit(0); if sto[i,t] <> 0 then exit(sto[i,t]); temp:=0; temp:=num(i,t-vs<i>)+num(i-1,t); sto[i,t]:=temp; exit(temp); end; begin assign(input,'money.in'); reset(input); assign(output,'money.out'); rewrite(output); read(v); read(n); for i:= 1 to v do read(vs<i>); writeln(num(v,n)); close(output); end.

但这样过总是不好的，各位有什么好办法吗？