24/03/22 06:59:39.04 4aZjcSm60.net
library(RcppAlgos)
library(MASS)
calc=\(...){
x=c(...)
n=length(x)
N=sum(x)
pm=permuteGeneral(1:n,freqs=x)
f=\(x){
for(i in n:N){
if(all((1:n) %in% x[1:i])) break
}
i
}
X=apply(pm,1,f)
tbl=table(X)
sort(tbl,decreasing = TRUE) |> names() |> as.integer() -> nx
( tbl/nrow(pm) |> fractions()) |> print()
invisible(list(Table=tbl,Total=sum(tbl),Order=nx))
}
calc(1,2,3)
calc(1,2,3,4)
calc(3,3,3,3)
calc(2,2,3,3)