ふと思いついたので。 n面体サイコロをm個振って出目を合計する場合、どの結果がどのくらいの確率で出るか、結果の分布度数を高速に計算できないかと思って作った品。 use strict; use List::Util qw ( sum max ); my $aspect = 6; # サイコロの面の数 my $n…

ふと思いついたので。 n面体サイコロをm個振って出目を合計する場合、どの結果がどのくらいの確率で出るか、結果の分布度数を高速に計算できないかと思って作った品。 use strict; use List::Util qw ( sum max ); my $aspect = 6; # サイコロの面の数 my $n…

ふと思いついたので。 n面体サイコロをm個振って出目を合計する場合、どの結果がどのくらいの確率で出るか、結果の分布度数を高速に計算できないかと思って作った品。 use strict; use List::Util qw ( sum max ); my $aspect = 6; # サイコロの面の数 my $n…