N Zahlen ermitteln mit Gesamtwert 100 - #109555 (Allgemeines zu Perl)

styx-cc

2008-05-11 04:19

User since
2006-05-20
533 Artikel
BenutzerIn

user image

Und wenn man sich das ganze einfach machen moechte:

Code (perl): (dl )

#!/usr/bin/perl  -w
use strict;

my $nr1 = int ( rand(100) );
my $nr2 = int (rand (100-$nr1));
my $nr3 = 100-($nr1+$nr2);

print "$nr1 + $nr2 + $nr3 = " . ($nr1+$nr2+$nr3) ."\n";

*g*

EDIT:
Argh, anstatt auf N hab ich mich auf 3 Zahlen festgelegt..
Berichtigt:

Code (perl): (dl )

#!/usr/bin/perl  -w
use strict;

my $counts = 6;
my @numbers;

for my $i (0..$counts-2) {
        if ($i == 0) {
          $numbers[$i] = int(rand(100));
        } else {
      my $subtotal = 0;
          $subtotal += $_ for @numbers;
          $numbers[$i] = int(rand(100-$subtotal));
        }
}

my $amount = 0;
print join('+', @numbers) .'+';
$amount += $_ for @numbers;

my $last_nr = (100-$amount);
print "$last_nr = ";
print $amount+$last_nr;

Pörl.