プログラミングのお題スレ Part22 (831ﾚｽ)
プログラミングのお題スレ Part22 http://mevius.5ch.net/test/read.cgi/tech/1691038333/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
ﾚｽ栞
435: デフォルトの名無しさん [sage] 2024/10/09(水) 01:45:35.37 ID:YvVjSPhZ 頑張って読んだけどこのままでは多分スレチ、ずっと条件を簡単にして出題し直してみる。 お題 勇者（HP1000）対魔王（HP5000）、先鋒勇者、サイコロ（目は１から６）を振って出た目だけ相手にダメージを与えられ、交互に攻撃しHP0となったら負け。魔王のサイコロは１個だけど勇者のサイコロはN個（N=1～10）の時の勇者の勝率を求めよ。 http://mevius.5ch.net/test/read.cgi/tech/1691038333/435
443: デフォルトの名無しさん [sage] 2024/10/12(土) 01:34:10.91 ID:OB4ycmPb >>435 こういう場合の確率の計算はよく分からなかったので実際にそれぞれ一万回ずつ戦わせてみた。 サイコロ1個で100000戦0勝 サイコロ2個で100000戦0勝 サイコロ3個で100000戦0勝 サイコロ4個で100000戦0勝 サイコロ5個で100000戦47171勝 サイコロ6個で100000戦100000勝 サイコロ7個で100000戦100000勝 サイコロ8個で100000戦100000勝 サイコロ9個で100000戦100000勝 サイコロ10個で100000戦100000勝 http://mevius.5ch.net/test/read.cgi/tech/1691038333/443
447: デフォルトの名無しさん [sage] 2024/11/13(水) 22:01:15.62 ID:nRkxNwtG >>435 R f=\(N){ u=1000 m=5000 while(u>0 & m>0){ m=m-sum(sample(6,N,replace=TRUE)) u=u-sample(6,1) } u>m } sim=\(N) mean(replicate(1e3,f(N))) p=sapply(1:10,sim) plot(p) data.frame(N=1:10,p=p) N p 1 1 0.000 2 2 0.000 3 3 0.000 4 4 0.000 5 5 0.498 6 6 1.000 7 7 1.000 8 8 1.000 9 9 1.000 10 10 1.000 http://mevius.5ch.net/test/read.cgi/tech/1691038333/447
448: デフォルトの名無しさん [sage] 2024/11/13(水) 22:22:31.42 ID:nRkxNwtG >>435 Wolfram f[N_] :=( u=1000; m=5000; Until[u<=0 || m<=0, m-=Total@RandomChoice[Range[6],N];u-=Total@RandomChoice[Range[6],1]]; Boole[u >= m] ) Table[Mean@Table[f[x],10^3],{x,1,10}] // N {0., 0., 0., 0., 0.511, 1., 1., 1., 1., 1.} http://mevius.5ch.net/test/read.cgi/tech/1691038333/448
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.029s