Comparing Full Odds and No Odds

#!/usr/bin/perl

$verbose = 0;
$initial_br = 100;
$min = 10;
$target = 200;
$sessions = 100000;

if( 0 )
{
	$odds[4] = 3;
	$odds[5] = 4;
	$odds[6] = 5;
	$odds[8] = 5;
	$odds[9] = 4;
	$odds[10] = 3;
}
else
{
	$odds[4] = 0;
	$odds[5] = 0;
	$odds[6] = 0;
	$odds[8] = 0;
	$odds[9] = 0;
	$odds[10] = 0;
}

sub roll
{
	$rollcount++;
	$d1 = int( rand( 6 ) + 1 );
	$d2 = int( rand( 6 ) + 1 );
	$sum = $d1 + $d2;
	print "Roll was $d1-$d2 = $sum\n" if( $verbose );
}

sub resolve
{
	if( $point == 0 )
	{
		if( $sum == 2 || $sum == 3 || $sum == 12 )
		{
			print "$sum craps $sum -- reel 'em in\n" if( $verbose );
			$pass = 0;
		}
		elsif( $sum == 7 )
		{
			print "Seven winner seven pay the line\n" if( $verbose );
			$br += $pass * 2;
			$pass = 0;
		}
		elsif( $sum == 11 )
		{
			print "Yo eleven pay the line\n" if( $verbose );
			$br += $pass * 2;
			$pass = 0;
		}
		else
		{
			$point = $sum;
			print "Point is $sum mark it up\n" if( $verbose );
		}
	}
	elsif( $sum == $point )
	{
		print "$sum winner $sum pay the line\n" if( $verbose );
		my( $save ) = $br;
		$br += $odds + $pay[$sum] * $odds;
		$br += $pass * 2;
		$pass = 0;
		$odds = 0;
		print "Put \$" . ( $br - $save ) . " in rack ($br total) from hitting the $point\n" if( $verbose );
		$point = 0;
	}
	elsif( $sum == 7 && $point > 0 )
	{
		print "Seven out!\n" if( $verbose );
		$pass = 0;
		$odds = 0;
		$point = 0;
	}
}

sub bet
{
	if( $pass == 0 && $point == 0 && $br >= $min )
	{
		$br -= $min;
		$pass = $min;
		print "Betting $min on the pass with $br in the rail\n" if( $verbose );
	}
	elsif( $point > 0 && $odds == 0 )
	{
		my( $maxodds ) = $odds[$point] * $pass;
		if( $br >= $maxodds )
		{
			$odds = $maxodds;
			$br -= $odds;
		}
		elsif( $br >= $min )
		{
			$odds = $br;
			$br = 0;
		}
		print "Betting \$$odds odds on the $point with $br in the rail\n" if( $verbose );
	}
}

sub start_session
{
	$br = $initial_br;
	$pass = 0;
	$odds = 0;
	$rollcount = 0;
	$point = 0;
}

sub totalbets
{
	return $pass + $odds;
}

&start_session;

$pay[4] = 2;
$pay[5] = 3/2;
$pay[6] = 6/5;
$pay[8] = 6/5;
$pay[9] = 3/2;
$pay[10] = 2;

$point = 0;

&bet;

while( $success + $fail < $sessions )
{
	&bet;
	&roll;
	&resolve;

	if( $br >= $target )
	{
		print "+++ SUCCESS in $rollcount rolls\n\n" if( $verbose );
		$success++;
		$nrs += $rollcount;
		&start_session;
	}
	elsif( $br < $min && &totalbets == 0 )
	{
		print "+++ FAILURE in $rollcount rolls\n\n" if( $verbose );
		$fail++;
		$nrf += $rollcount;
		&start_session;
	}
}

print "$success SUCCESSES and $fail FAILURES\n";
print "Chance of success was " . 100 * $success / ( $success + $fail ) . "%\n";
print "Chance of failure was " . 100 * $fail / ( $success + $fail ) . "%\n";
print "Average number of rolls for success was " . ( $nrs / $success ) . "\n";
print "Average number of rolls for failure was " . ( $nrf / $fail ) . "\n";