>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