R语言模运算后加1赋值结果异常，为何与预期不符？

先看三组R代码的运行结果对比：

第一组代码（符合预期） #

D <- 1
for (j in 1:5) {
  D <- (D - 1) %% 4
  print(D)
}

输出：

[1] 0
[1] 3
[1] 2
[1] 1
[1] 0

第二组代码（输出全1，不符合预期） #

D <- 1
for (j in 1:5) {
  D <- ((D - 1) %% 4) + 1
  print(D)
}

输出：

[1] 1
[1] 1
[1] 1
[1] 1
[1] 1

第三组代码（符合预期的目标输出） #

D <- 1
for (j in 1:5) {
  D <- (D - 1) %% 4
  print(D + 1)
}

输出：

[1] 1
[1] 4
[1] 3
[1] 2
[1] 1

问题原因拆解 #

第二组代码之所以输出全1，是因为每次循环的计算逻辑让D的值始终无法更新：

1. 第一次循环：初始D=1，计算(1-1)%%4=0，加1后D=1，打印1；
2. 第二次循环：D还是1，重复第一次的计算，结果依然是0+1=1；
3. 后续每一次循环都完全重复这个过程，所以D永远是1，输出全为1。

而第三组代码的逻辑是先把模运算的结果赋值给D（让D每次都更新为0、3、2、1、0），再在打印时加1，这样就能得到你想要的循环递减后加1的结果。

（注：原问题中的代码是压缩写法，上述展示的是规范的R代码格式，用<-代替=作为赋值符号）

内容的提问来源于stack exchange，提问作者Pradeep Chaghran