Я пытаюсь выяснить, как найти вероятности того, что игрок получит 5-карточный Чарли (т.е. берет 5 карт без перебора) в Блэкджек с 4 или 7 колодами карт .....
Я попробовал следующую формулу, и она просто не работает .... она работает для 1 колоды, но не 4 колоды .... т.е. если я вставлю номера 4 и 16 вместо 16 и 64, это работает, но я не могузаставить его работать на 4 или 7 колод карт #
deck <- c(rep(1:9, 16), rep(10, 64))
acceptable <- function(x) {sum(x) <= 21}
sum(combn(deck, 5, acceptable))
У кого-нибудь есть идеи?
Большое спасибо