R 中的 do-while 循环

Question

我想知道如何编写 do-while 风格的循环？

我发现这篇文章：

您可以使用repeat{}并使用if()和检查任何地方的条件 使用“break”控制字退出循环。

我不确定这到底是什么意思。如果您理解和/或您有不同的解决方案，有人可以详细说明吗？

Answer 1

注意到用户 42- 的完美方法{
* "do while" = "重复直到没有"
* 代码等价：

do while (condition) # in other language
..statements..
endo

repeat{ # in R
  ..statements..
  if(! condition){ break } # Negation is crucial here!
}

} 没有得到其他人足够的重视，我将通过一个具体的例子来强调并提出他的方法。如果不否定 do-while 中的条件（通过 ! 或取反），则根据代码的过程，会出现扭曲的情况（1. 值持久性 2. 无限循环）。

在高斯中：

proc(0)=printvalues(y);
DO WHILE y < 5;    
y+1;
 y=y+1;
ENDO;
ENDP;
printvalues(0); @ run selected code via F4 to get the following @
       1.0000000 
       2.0000000 
       3.0000000 
       4.0000000 
       5.0000000 

在 R 中：

printvalues <- function(y) {
repeat {
 y=y+1;
print(y)
if (! (y < 5) ) {break}   # Negation is crucial here!
}
}
printvalues(0)
# [1] 1
# [1] 2
# [1] 3
# [1] 4
# [1] 5

我仍然坚持认为，如果没有 do-while 中的条件否定，Salcedo 的答案是错误的。可以通过删除上面代码中的否定符号来检查这一点。

Answer 2

在其他答案的基础上，我想分享一个使用 while 循环构造来实现 do-while 行为的示例。通过在 while 条件中使用一个简单的布尔变量（初始化为 TRUE），然后在 if 语句中检查我们的实际条件。还可以在 if 语句中使用 break 关键字来代替 continue <- FALSE （可能更有效）。

  df <- data.frame(X=c(), R=c())  
  x <- x0
  continue <- TRUE

  while(continue)
  {
    xi <- (11 * x) %% 16
    df <- rbind(df, data.frame(X=x, R=xi))
    x <- xi

    if(xi == x0)
    {
      continue <- FALSE
    }
  }

Answer 3

请参阅 ?Control 或 R 语言定义：

> y=0
> while(y <5){ print( y<-y+1) }
[1] 1
[1] 2
[1] 3
[1] 4
[1] 5

因此，do_while在R中不作为单独的构造存在，但您可以通过以下方式伪造它：

repeat( { expressions}; if (! end_cond_expr ) {break} )

如果您想查看帮助页面，则无法键入？while 或 ?repeat 在控制台，但需要使用 ?'repeat' 或 ?'while'。所有的“控制结构”，包括 if 都在同一页上，并且都需要在“?”之后引用字符。因此解释器不会将它们视为不完整的代码并给您一个延续“+”。

Answer 4

非常不言自明。

repeat{
  statements...
  if(condition){
    break
  }
}

或者类似的事情我会想。要获得 do while 循环的效果，只需检查语句组末尾的条件即可。