答を「0.abcdefgという形で入力せよ」とあったのでabcdefだけを入力すればいいのだと勘違いしてハマってた.馬鹿すぎる.
470ms.
peter <- numeric(4^9) colin <- numeric(6^6) for(i in 1:9){ peter <- peter + rep(1:4, rep(4^(i-1), 4)) } for(i in 1:6){ colin <- colin + rep(1:6, rep(6^(i-1), 6)) } peter.t <- table(peter) colin.t <- table(colin) peter.win <- 0 for(i in 9:36){ peter.win <- peter.win + ( sum(colin.t[as.numeric(names(colin.t)) < i]) / sum(colin.t) * sum(peter.t[as.character(i)]) / sum(peter.t) ) } round(peter.win, 7)