RosettaCodeData/Task/Greatest-subsequential-sum/Euler/greatest-subsequential-sum-...

9 lines
214 B
Plaintext

>function test ...
$ loop 1 to 10000000
$ v=intrandom(1,intrandom(6)+6,20)-10;
$ if sum(maxsubs(v))!=sum(maxsubsbrute(v)) then
$ v, error("Found a wrong test example");
$ endif;
$ endfunction
>test