在R中應用「while（a [++ i] <v）」

Question

以下C代碼從給定的左側索引和給定的右側索引中搜索數組a []， j）的其中左手食指之間的每一個數組值和i小於v和j和右索引之間的每一個數組值大於v：

i= leftindex - 1 ; 
j = rightindex ; 
while(TRUE) { 
while(a[++i] < v) ; 
while(a[--j] > v) ; 
if (i >= j) { break } 
... } 

此構建體可以在快速的各種實現方式中可以看出排序算法。

我的問題是這樣的：當a是矢量時，下面是在語言R中完成同樣事情的最有效方法嗎？

i = leftindex - 1 ; 
j = rightindex ; 
v = a[rightindex] 
while(TRUE) { 
    while (a[i <- i+1] < v) { } # R doesn't get the ++ operator 
    while (a[j <- j-1] > v) { } # R doesn't get the -- operator 
    if (i >= j) { break } 
    ... 
} 

所以，作爲一個例子，如果 'A' 是：

a <- c('a','s','o','r','t','i','n','g','e','x','a','m','p','l','e') 

...和

left.index = 1; right.index = 15 

...此代碼運行後，然後我會期待值v，i和j爲：

v = e 
i = 2 
j = 11 

我找不到任何在R中定義運算符「++」或「 - 」的東西。

R中的優先級保證「a [i <-i + 1] < v」的計算順序嗎？我的RStudio實現？

我在適當的地方對向量a應用匿名函數（遞減和比較），但這樣寫起來更簡單。

任何想法，將不勝感激。

Answer 1

據我瞭解，你想有R版本替換以下行：

while(a[++i] < v); 
while(a[--j] > v); 

一種簡單的方式來寫這兩條線將是：

i <- i + min(which(a[(i+1):length(a)] >= v)) 
j <- max(which(a[1:(j-1)] <= v)) 

在每種情況下，該函數正在計算a的某些子集具有適當值的所有索引，所以它可能比在自定義C/C++代碼中循環直到找到第一個這樣的條目效率更低。

如果效率對您很重要，您可以爲此操作編寫一個非常簡單的Rcpp函數。在這裏，我已經定義increment和decrement其中執行兩個操作，在C++代碼，應特別小心轉換i和j，我假定在R代碼1索引，爲0索引值：

library(Rcpp) 
increment <- cppFunction(" 
    int increment(NumericVector a, int i, const double v) { 
    while(a[(++i)-1] < v) ; 
    return i; 
    }") 

decrement <- cppFunction(" 
    int decrement(NumericVector a, int j, const double v) { 
    while(a[(--j)-1] > v) ; 
    return j; 
    }") 

然後你可以將你的兩行轉換爲i <- increment(a, i, v)和j <- decrement(a, j, v)。