답변:
이 간단한 질문에는 복잡한 답이 있습니다. 합병증은 두 가지 요인으로 인해 발생합니다.
카드는 교체없이 뽑습니다. (따라서 각 추첨은 추첨에 사용할 수있는 데크의 내용을 변경합니다.)
데크에는 일반적으로 각 값의 카드가 여러 개 있으므로 가장 높은 카드를 사용할 수 있습니다.
합병증은 불가피하므로이 문제에 대한 합리적 일반화를 다루고 특별한 경우를 살펴 보자. 일반화에서 "데크"는 유한 한 수의 카드로 구성됩니다. 이 카드에는 최저값에서 최고 값까지 순위를 지정할 수있는 개의 고유 한 "값"이 있습니다. 있으라 n은 I ≥ 1 순위 값 I을 (로 난 = 1 최저 및 I =가 있어요 최고). 한 플레이어는립니다 ≥ 0 갑판에서 카드를하고 두 번째 플레이어는립니다 b를 ≥ 1카드. 첫 번째 플레이어의 손 에서 가장 높은 순위의 카드가 두 번째 플레이어의 손에서 가장 높은 순위의 카드보다 엄청나게 큰 가치는 무엇입니까? 이 이벤트를 : 첫 번째 플레이어의 "승리"라고합니다.
이 밖에도 한가지 방법은 절차가 드로잉 등가임을 주목함으로써 시작 + B 데크의 카드를 제 복용 를 첫번째 플레이어의 카드로 이들로부터, 나머지 (B)가 상기 제 플레이어의 카드한다. 이 카드들 중에서 j 는 가장 높은 값이고 k ≥ 1 은 그 값의 카드 수입니다. 그녀가 보유하는 경우에만 첫 번째 선수가 승리 K 그 카드를. 그 특정 카드 사이에서 발견 될 수있는 방법의 수 카드는 ( ,뽑은모든a+b중에서k카드를 배치하는 방법의 수는 ( a+b .
이제 기회 최대치이며있다 k는 이러한 카드를 선택할 수있는 기회 (k)를 밖으로 N의 J의 값의 카드 J 및 선택 나머지 + B - 케이 밖으로 하부 n은 1 + N 2 + ⋯ + N J - 1 = N J - 1 개 값. 있기 때문에 ( N m a+b카드의 등가 무승부, 답은
R
a
b
deck
a <- 4
b <- 6
deck <- rep(1:13, 4)
set.seed(17)
cards <- replicate(1e4, sample(deck, a+b))
win <- apply(cards, 2, function(x) max(x[1:a]) > max(x[-(1:a)]))
m <- mean(win)
se <- sqrt(m*(1-m)/length(win))
cat("Estimated Pr(a wins) =", round(m, 4), "+/-", round(se, 5), "\n")
이 인스턴스의 출력은
예상 Pr (a wins) = 0.3132 +/- 0.00464