Card_Probability.R

prob <- unlist(lapply(1:1000000, function(i){
    candles <- sort(runif(2, 0, 1))
    cut  <- runif(1, 0, 1) 

    (cut > candles[1]) & (cut < candles[2])
}))

mean(prob)


## Assuming 4 poker players
dat <- data.frame(
    suit = rep(c('H', 'C', 'S', 'D'), each = 14),
    value = rep(c(1:10, 'J', 'Q', 'K', 'A'), 4),
    representation = unlist(lapply(1:4, function(i) c(rep(NA, 9), rep(i, 5)))),
    id = 1:56
)


nplayers = 4


m = sample(dat$representation);m
matrix(m, ncol = 4, byrow=TRUE)

matrix(sample(dat$representation), ncol = 4, byrow=TRUE)


(length(na.omit(x)) == 5) & (length(unique(x)) == 1)