#!/usr/bin/perl -w

use strict;

my @sums;

for my $i (1..6) {
for my $j (1..6) {
for my $k (1..6) {
for my $l (1..6) {
	# get the sum for this dice-roll
	my $min = $i;
	if ($j < $min) { $min = $j; }
	if ($k < $min) { $min = $k; }
	if ($l < $min) { $min = $l; }
	
	my $sum = $i+$j+$k+$l-$min;
	$sums[$sum]++;
	$sums[0]++;
}}}}

my $e = 0;
for (3..18) {
	$e += $_*($sums[$_]/$sums[0]);
}

print "e = $e\n";