d <- c(12, -3, 14, 8, 9, 1, 12, 10, 4, 8, 0, -3, 14, 4, 14, 12, 12, 8, 0, 3)
n <- cumsum(c(0, d))
D <- diff(n, 7)
for (i in which(D == max(D))) {
cat(i, "~", i + 6, "日目: ", sep = "")
cat(n[i + 0:6], "\n")
}
ZCA8LSBjKDEyLCAtMywgMTQsIDgsIDksIDEsIDEyLCAxMCwgNCwgOCwgMCwgLTMsIDE0LCA0LCAxNCwgMTIsIDEyLCA4LCAwLCAzKQpuIDwtIGN1bXN1bShjKDAsIGQpKQpEIDwtIGRpZmYobiwgNykKZm9yIChpIGluIHdoaWNoKEQgPT0gbWF4KEQpKSkgewogICAgY2F0KGksICLvvZ4iLCBpICsgNiwgIuaXpeebrjogIiwgc2VwID0gIiIpCiAgICBjYXQobltpICsgMDo2XSwgIlxuIikKfQ==