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

# サイコロをn10個振ったときの目の合計の分布

n10=10
pipsum <- function(num, N=6){
r=num%%N
q=num%/%N
while(q > 0){
r=append(q%%N,r)
q=q%/%N
}
return(sum(r)+n10)
}

pip=numeric(6*n10)
i=0
while(i<6^n10){
idx=pipsum(i)
pip[idx]=pip[idx]+1
i=i+1
}
plot(pip)