Question

我在R中编写合并排序。我有2个函数。第一个是mergelist（）

mergelist <- function(a, b)
{
    al <- length(a$data)
    bl <- length(b$data)        
    r <- numeric(al + bl)
    numberOfComparisions <-0
    ai <- 1
    bi <- 1
    j <- 1

    while((ai <= al) && (bi <= bl))
    {
        if(a$data[ai]<b$data[bi])
        {
            r[j] <- a$data[ai]
            ai <- ai + 1
            numberOfComparisions  = numberOfComparisions + 1
        }
        else
        {
            r[j] <- b$data[bi]
            bi <- bi + 1    
            numberOfComparisions  = numberOfComparisions  + 1
        }       
        j <- j + 1
    }
    if(ai<=al)
    r[j:(al+bl)] <- a$data[ai:al]    
    else if(bi <= bl)
    r[j:(al+bl)] <- b$data[bi:bl]    

    returnList <- list(number=numberOfComparisions  + a$number + b$number , data = r)
    return(returnList)
}

此方法将2个排序列表作为参数a和b，并返回一个带有列表数字属性的排序列表，告诉我已经进行了多少次比较。

我也有这个方法mergesort（）

mergesort <- function(x)
{
    l <- length(x)

    if(l > 1)   {
        p <- ceiling(1/2)
        a <- mergesort(x[1:p])          
        b <- mergesort(x[(p+1):l])
        return(mergelist(a,b))      
    }
    lister <- list(number=0, data = x)
    return(lister)
}

其中包含向量x并对其进行排序。它返回一个列表，就像mergelist（）一样，其number属性与mergelist中的相同。

现在我的问题是我有以下示例：mergesort(c(11,10,9,15,6,12,17,8,19,7))，

哪个应该返回

$number [1] 22
$data [1] 6 7 8 9 10 11 12 15 17 19

但它返回

$number
[1] 30

$data
 [1]  6  7  8  9 10 11 12 15 17 19

所以这意味着它算不上它的比较。我不知道在哪里。有人能告诉我我做错了吗？

Answer 1

不应该是你的代码

p <- ceiling(**1**/2)

是这样的

p <- ceiling(**l**/2)

R中mergesort的比较次数

1 个答案: