#!/usr/bin/perl -w

# Este programa rellena el 1X2 de la quiniela

use 5.030;

my $lines = 15;

my @prob;
if (@ARGV == 3 && $ARGV[0]+$ARGV[1]+$ARGV[2] == 1){    
    @prob = @ARGV;
}else{
    @prob = qw( 60 25 15 );        # así queda más o menos aparente
}

my $r;
my $resultado; 
my $variantes = 0;

for (1 .. $lines){
    $r = rand() * 100;    
    if ($r <= $prob[0]) {
	$resultado = 0;             # 65 -> 1
    }elsif ($r <= $prob[0]+$prob[1]) {
	$resultado = 1;
	$variantes++;
    }else{
	$resultado = 2;
	$variantes++;
    }
    # 65+25 -> x
    # 65+25+10 -> 2 (resto)
    # pesos históricos  # revisar, versión bonita ??? 
    print "  " x (1+$resultado);
    $resultado =~ tr/012/1x2/;
    print "$resultado\n";
}

print "\nQuiniela con $variantes variantes\n";

exit 1;