早押しクイズでn問先取の時，問題をx問用意した時にどのくらいの確率で勝ち抜け者が出るか．ただし一人も正解がない場合はないものとする．

nquiz.R

# 早押しクイズでn問先取の時，問題をx問用意した時にどのくらいの確率で勝ち抜け者が出るか．ただし一人も正解がない場合はないものとする．

nquiz <- function(x,n) {
	if(n > x) {
		stop("n must be smaller than or equal to x")
	}
	sum(sapply(n:x, function(xx) { ncol(combn(x,xx))})) / (2^x)
}