#!/usr/local/bin/perl -w
###########################################
# cards - Determine hypotheses probability
#  via Probability Mass Functions
# Mike Schilli, 2014 (m@perlmeister.com)
###########################################
use strict;
use Distrib;

my $distrib = Distrib->new();

$distrib->set( "BB", 0.33 );
$distrib->set( "BR", 0.33 );
$distrib->set( "RR", 0.33 );

$distrib->mult( "BB", 0 );
$distrib->mult( "BR", 0.5 );
$distrib->mult( "RR", 1 );

$distrib->normalize();

print $distrib->prob( "RR" ), "\n";