24/03/10 13:29:59.93 NrfQ8nem0.net
62１３２人目の素数さんsage2024/03/02(土) 07:48:20.89ID:1DBlVrfW(1/1) 返信 (2)
URLﾘﾝｸ(detail.chiebukuro.yahoo.co.jp)
これ、ベストアンサーついて締め切られちゃってるけど合ってないよね？
に触発されてR言語で分数解を求めるコード
re=NULL
for(x in 1:5){
for(y in 1:5){
for(z in 1:5){
for(w in 1:5){
for(v in 1:5){
u=10-x-y-z-w-v
if(1<=u & u<=5) re=rbind(re,c(x,y,z,w,v,u))
}
}
}
}
}
f6=\(x) choose(10,x[1])*choose(10-x[1],x[2])*choose(10-x[1]-x[2],x[3])*choose(10-x[1]-x[2]-x[3],x[4])*
choose(10-x[1]-x[2]-x[3]-x[4],x[5])
sum(apply(re,1,f6))*choose(6,6)
16435440/6^10