NAME

BettingStrategy::MonteCarlo - Monte Carlo method for gambling.

SYNOPSIS

use BettingStrategy::MonteCarlo;
my $strategy = BettingStrategy::MonteCarlo->new(+{magnification => 2});
my $cash     = 100;
while (!$strategy->is_finished) {
    my $bet = $strategy->bet;
    last if $cash < $bet;
    $cash -= $bet;
    if (rand 2 < 1) {
        $cash += $bet * 2;
        $strategy->won;
    }
    else {
        $strategy->lost;
    }
}
print $cash;

DESCRIPTION

Monte Carlo is one of betting strategy.

LICENSE

Copyright (C) nqounet.

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

AUTHOR

nqounet <mail@nqou.net>