https://hakopedia.uhyohyo.net/w/index.php?action=history&feed=atom&title=%E3%83%88%E3%83%BC%E3%82%AF%3A%E7%84%A1%E9%99%90%E6%AD%A9%E8%A1%8C
トーク:無限歩行 - 変更履歴
2026-05-12T18:05:11Z
このウィキのこのページに関する変更履歴
MediaWiki 1.23.5
https://hakopedia.uhyohyo.net/w/index.php?title=%E3%83%88%E3%83%BC%E3%82%AF:%E7%84%A1%E9%99%90%E6%AD%A9%E8%A1%8C&diff=1016&oldid=prev
うひょ: データ移行
2014-10-13T11:05:42Z
<p>データ移行</p>
<p><b>新規ページ</b></p><div>== 実測値について ==<br />
[http://hakopedia.org/index.php?title=%E7%84%A1%E9%99%90%E6%AD%A9%E8%A1%8C&oldid=3759 今回の編集]で「動く歩数の期待値は1.62」という文を掲載しましたが、これは以下のソースコードにより算出されたものです。間違いなどがあればご指摘下さい。<br />
<pre><br />
# 初期位置を指定すると歩く。戻り値は歩いた歩数<br />
def walk(x,y)<br />
ret=0<br />
junban=$ms.shuffle<br />
<br />
junban.each{|pos| # 順番に処理<br />
if x==pos[0] && y==pos[1]<br />
# 怪獣がいる<br />
3.times{|hoge| #3回挑戦<br />
i=rand(6)+1<br />
sx,sy=[x+$ax[i], y+$ay[i]] # 移動後<br />
<br />
if (sy%2)==0 && (y%2)==1<br />
# 行による位置調整<br />
sx-=1<br />
end<br />
if sx<0 || sy<0 || sx>=$n || sy>=$n<br />
# 外に出る<br />
next<br />
end<br />
ret+=1 # 1歩動いた<br />
x,y=sx,sy # 移動後<br />
break<br />
}<br />
end<br />
}<br />
return ret # 移動回数<br />
end<br />
<br />
#1～6の移動方向<br />
$ax=[0, 1, 1, 1, 0,-1, 0]<br />
$ay=[0,-1, 0, 1, 1, 0,-1]<br />
<br />
$n=12<br />
# n*nの箱庭で、全てのマスを通行可能と仮定した場合<br />
<br />
#ms: [[x,y],[x,y],...]<br />
$ms= (0..$n-1).inject([]) {|sum,i| sum+(0..$n-1).map{|j| [i,j]} }<br />
#print ms<br />
<br />
count=2000<br />
<br />
#count回試算する<br />
sum=(1..count).inject(0.0){|s,na|<br />
s+ $ms.inject(0){|s,ea|<br />
# 初期位置を前パターンやる<br />
s+walk(ea[0],ea[1])<br />
}.to_f/$ms.length<br />
}<br />
puts sum.to_f/count<br />
</pre><br />
--[[利用者:うひょ|うひょ]] 2011年5月25日 (水) 06:10 (UTC)</div>
うひょ