Thread N Zahlen ermitteln mit Gesamtwert 100 (44 answers)
Opened by RPerl at 2008-05-10 23:36

KurtZ
 2008-05-11 16:58
#109579 #109579
User since
2007-12-13
411 articles
BenutzerIn
[default_avatar]
topeg+2008-05-11 11:27:39--
Leider hat sie einen Schönheitsfehler: Die '0' kommt niemals vor.


Code (perl): (dl )
1
2
3
4
5
6
7
8
9

my $bis=100;
my $menge=3;
my $nullen=$menge;

for (1..100) {
        my @zahlen=( (0)x$nullen, (1)x$bis );
        $zahlen[ int( rand( $#zahlen ) ) ]+=pop(@zahlen) while(@zahlen>$menge);
        print "@zahlen \n" if grep {/^0$/} @zahlen;
}

Code: (dl )
1
2
3
4
5
32 0 68 
0 54 46 
30 70 0 
0 76 24 
0 97 3
TMTOWTDYOG (there's more than one way to dig your own grave)

View full thread N Zahlen ermitteln mit Gesamtwert 100