21/01/02 07:39:08.91 5qCnWApZ.net
cm=combinations(53,6,v=c(0,rep(1:13,4)),set=FALSE,repeats.allowed = FALSE)
re6=t(apply(cm,1,function(x) length(f(x))))
nu=sum(re6)
de=nrow(cm)
gcd=numbers::GCD(nu,de)
cat(nu,'/',de,'\n')
nu/de
21/01/02 07:39:08.91 5qCnWApZ.net
cm=combinations(53,6,v=c(0,rep(1:13,4)),set=FALSE,repeats.allowed = FALSE)
re6=t(apply(cm,1,function(x) length(f(x))))
nu=sum(re6)
de=nrow(cm)
gcd=numbers::GCD(nu,de)
cat(nu,'/',de,'\n')
nu/de