#!/usr/local/bin/perl -w

print "Número de preguntas:";
chomp($n = <STDIN>);
print "Número de posibilidades:";
chomp($c = <STDIN>);

$puntos=10;
$bien = $puntos/$n;
$mal = -$bien/($c-1);          # bien*1/c+mal(c-1)/c=0 

print "\nPuntuación de 1 pregunta: bien=$bien mal=$mal blanco=0\n\n";

print "Nmal";
for $i (0..$n){
    print "    $i";
}
print "\n";
print "Nbien\n";
for $b (reverse 1..$n){
    print "$b   ";
    for $m (0..$n-$b){
	$punt = $b*$bien+$m*$mal;
	if ($punt>0){
	    printf (" %1.2f",$punt);
	}else { last; }
    }
    print "\n";
}
print "\n";

__END__