#!/usr/bin/perl
use common::sense;
use List::Util qw(shuffle first);
use CGI;
my $cgi = CGI->new();
my $scriptname = $cgi->url(-relative=>1);
my $step = 1;
if($cgi->param('step')){
use CGI::Carp qw(fatalsToBrowser);
die "step is not a number" unless $cgi->param('step') =~ m/^\d+$/;
if($cgi->param('step') =~ m/^\d+$/){
$step = $cgi->param('step');
}
}
my $range = 19;
my @possiblePayouts = qw(1.5 2 5 6 8 11 17 35);
my @payouts = ();
if($cgi->param('payouts')){
@payouts = $cgi->param('payouts');
}else{
@payouts = (11,17,35);
}
my @shuffledPayouts = shuffle @payouts;
my $payout = $shuffledPayouts[0];
my $rand = int(rand($range)) * $step;
$rand++;
my $guess = $rand * $payout;
print qq(Content-type: text/html\n\n);
print qq|
Croupier training
Step = $step, Payouts = |;
print join (', ', @payouts);
print qq|
|;
exit;