Vector 向量挑战：如何根据最大/最小条件拆分向量

我最近遇到了以下问题：

假设我有一个随机长度（L）为0且随机分布的向量（例如[0,1,1,1,0,0,1,0]），我需要在索引K处将向量拆分为两个子向量，以便以下条件有效：

• 左子向量必须包含来自的最大元素数 K的相反顺序，例如零的数量必须大于或等于 等于1的数目
• 右子向量必须包含从K+1开始的元素的最大数量，例如1的数量必须大于或等于零的数量

例如，[1,1,1,1,1,1,1,1,1,0,1,0,0,0,0,0]拆分在索引9处，左向量为[1,0]，右向量为[0,1]

我写了下面的解决方案，但复杂度是O（L^2）。我认为可能有一个最坏情况O（L）的复杂解决方案，但我找不到任何可以帮助我的方法。有什么想法吗？谢谢

var max = 0;
var kMax = -1;

var firstZeroFound = false;

for (var i = 0; i < testVector.Length - 1; i++)
{
    if (!firstZeroFound)
    {
        if (testVector[i]) continue;
        firstZeroFound = true;
    }

    var maxZero = FindMax(testVector, i, -1, -1, false);
    if (maxZero == 0) continue;

    var maxOne = FindMax(testVector, i + 1, testVector.Length, 1, true);
    if (maxOne == 0) continue;

    if ((maxZero + maxOne) <= max)
        continue;

    max = maxOne + maxZero;
    kMax = i;

    if (max == testVector.Length)
        break;
}

Console.Write("The result is {0}", kMax); 

int FindMax(bool[] v, int start, int end, int increment, bool maximize)
{
    var max = 0;
    var sum = 0;
    var count = 0;
    var i = start;

    while (i != end)
    {
        count++;

        if (v[i])
            sum++;

        if (maximize)
        {
            if (sum * 2 >= count)
                max = count;
        }
        else if (sum * 2 <= count)
        {
            max = count;
        }

        i += increment;
    }

    return max;
}

var max=0；
var kMax=-1；
var firstZeroFound=false；
对于（var i=0；i否则如果（sum*2我想你应该看看
rle

    y <- c(1,1,1,1,1,1,1,1,1,0,1,0,0,0,0,0,0,0,0)
    z <- rle(y)
    d <- cbind(z$values, z$lengths)
        [,1] [,2]
[1,]    1    9
[2,]    0    1
[3,]    1    1
[4,]    0    8

y我不知道RLE如何降低复杂性