在R中翻转每N个硬币

Question

我的朋友给了我一个脑筋急转弯，我想试试R。

想象一下连续100个硬币，头朝向所有硬币。现在每个第二枚硬币都被翻转（因此变成了尾巴）。然后翻转每第3枚硬币。现在有多少硬币出现了？

为了创建矢量，我开始使用：

flips <- rep('h', 100)
levels(flips) <- c("h", "t")

不确定如何从这里开始。任何帮助将不胜感激。

Answer 1

试试这个：

coins <- rep(1, 100) # 1 = Head, 0 = Tail
n = 3 # run till the time when you flip every 3rd coin
invisible(sapply(2:n function(i) {indices <- seq(i, 100, i); coins[indices] <<- (coins[indices] + 1) %% 2}) )
which(coins == 1)
# [1]  1  5  6  7 11 12 13 17 18 19 23 24 25 29 30 31 35 36 37 41 42 43 47 48 49 53 54 55 59 60 61 65 66 67 71 72 73 77 78 79 83 84 85 89 90 91 95 96 97
sum(coins==1)
#[1] 49

如果你跑到n = 100，那么只有正方形位置的硬币才能显示出来。

coins <- rep(1, 100) # 1 = Head, 0 = Tail
n <- 100
invisible(sapply(2:n, function(i) {indices <- seq(i, 100, i); coins[indices] <<- (coins[indices] + 1) %% 2}) )
which(coins == 1)
#  [1]   1   4   9  16  25  36  49  64  81 100
sum(coins==1)
# [1] 10