上をPerlで実装すると次のよう。 my @E; my @items = ( 273, 161, 266, 98, 140, 84 );$E[511] = 0; for my $s(map { $_->[0] } sort { $b->[1] $a->[1] } map { [ $_, GetNumOfItems($_) ] } 0..510) { #逆順にE(s)を計算 my $nTransit = 0; my $sum_E; for…

逆から考える。 すなわち、すべて見終わった状態から考える。 状態sに対し、 すべて見終わった状態になるまでにかかる回数の期待値を E(s) と書く。 すべて見終わった状態を、 111 111 111 と表記し、 最初の状態を、 000 000 000 と表記する。 左から箱1,箱…