The bell-curve for Luck

[Bruno]

Originally Posted by Verjigorm

How do you people do this stuff?!

I make computers do it.

#!perl -w
use strict;
use Games::Rolldice 'roll';
use List::Util qw(sum max min);

my %results;
my $count = 1000000;

for (my $x =0;  $x<$count; $x++) {
   my $result = min(roll("3d6", '-sum' => 'true'),roll("3d6", '-sum' => 'true'),roll("3d6", '-sum' => 'true'),roll("3d6", '-sum' => 'true'));
   $results{$result}+= 1;
}

my %result_analysis;

foreach my $roll (sort keys %results){
   $result_analysis{$roll} = sprintf('%05f',($results{$roll}/$count));
   print "$roll:\t$result_analysis{$roll}\n";
}