my $try_cnt = 100000 ;
my $frey_str ;
my $border_str = 465 ;
my $success_cnt = 0 ;
my $average_base = 0 ;

for ( my $j = 0 ; $j < $try_cnt ; $j++ ) {

	$frey_str = 200 ;

	for ( my $i = 0 ; $i < 29 ; $i++ ) {
		my $str_up = int(rand(5)) + 6 ;

		$frey_str += $str_up ;
	}
	$average_base += $frey_str ;

	if ( $frey_str >= $border_str ) {
		$success_cnt++ ;
	}
}

print "試行回数：" . $try_cnt . "\n" ;
print "達成目標：" . $border_str . "\n" ;
print "成功回数：" . $success_cnt . "\n" ;
print "成功確率：" . ( $success_cnt * 1.0 ) / ( $try_cnt *1.0 ). "\n" ;
print "平均STR ：" . $average_base / $try_cnt . "\n" ;