20 lines
445 B
Plaintext
20 lines
445 B
Plaintext
>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
|