aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

A-M baby

Browse source
This commit is contained in:
Ingy döt Net 2013-04-10 21:29:02 -07:00
parent 764da6cbbb
commit db842d013d
19005 changed files with 197040 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

19
Task/Greatest-subsequential-sum/Euler-Math-Toolbox/greatest-subsequential-sum-2.euler Normal file
View file

@ -0,0 +1,19 @@
>function maxsubsbrute (v) ...
$ n=cols(v);
$ A=zeros(n*(n-1),n);
$ k=1;
$ for i=1 to n-1;
$ for j=i to n;
$ A[k,i:j]=1;
$ k=k+1;
$ end;
$ end;
$ k1=extrema((A.v')')[4];
$ return v[nonzeros(A[k1])];
$ endfunction
>maxsubsbrute([0, 1, 2, -3, 3, -1, 0, -4, 0, -1, -4])
[ 0 1 2 ]
>maxsubsbrute([-1, -2, 3, 5, 6, -2, -1, 4, -4, 2, -1])
[ 3 5 6 -2 -1 4 ]
>maxsubsbrute([-1, -2, -3, -4, -5])
Empty matrix of size 1x0