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>