底辺私立医大を卒業した医者って頭悪いよね？ Part30

467 ：卵の名無しさん ：2024/03/22(金) 06:59:39.04 ID: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)