某問題を解くためのプログラム（R版）

doors.R

## 某問題をしらみ潰し方式で解くためのプログラム

n <- 200
doors <- integer(n)                # 配列の準備（0でリセットされる）

for (i in 1:100) {
    idx <- seq(i, n, i)            # 200を超えないiの倍数を指定
    doors[idx] = doors[idx] + 1    # そのドアの開閉の回数を+1（奇数なら開、偶数なら閉）
}
Open <- (doors %% 2 == 1)          # 奇数であれば（ドアが開いている）TRUE、偶数ならFALSE

## (1)
print(which(Open[1:10]))           # 開いているロッカーのインデックス

## (2)
print(doors[99:101])               # 開閉の合計数

## (3)
print(sum(Open))                   # 開いているロッカーの合計数（TRUEの個数）