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

styx-cc
 2008-05-11 04:15
#109554 #109554
User since
2006-05-20
533 articles
BenutzerIn

user image
Dann ist das ganze immer noch effektiver als das was ihr hier vorgeschlagen habt:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

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

my ($nr1, $nr2, $nr3);
my @passes;

for (1..1_000_000) {
        #print $_ .": \n";
        $nr1 = int ( rand(100) );
        my $i = 0;
        do {
          $nr2 = int ( rand(100) );
          $i++;
        } while($nr1+$nr2 > 99);

        $nr3 = 100-($nr1+$nr2);
        #print "Durchlaeufe: ". $i ."\n";
        push @passes, $i;
        #print "$nr1 + $nr2 + $nr3 = " . ($nr1+$nr2+$nr3) ."\n";
}

my $average;
$average += $_ for @passes;
$average /= scalar @passes; 

print "\nDurchschnittl. Anzahl d. Durchlaeufe: " .$average;


Ausgabe (mehrmals ausgefuehrt):
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
Durchschnittl. Anzahl d. Durchlaeufe: 5.164434
C:\programmierung\perl>perl 100.txt

Durchschnittl. Anzahl d. Durchlaeufe: 5.165607
C:\programmierung\perl>perl 100.txt

Durchschnittl. Anzahl d. Durchlaeufe: 5.208451
C:\programmierung\perl>perl 100.txt

Durchschnittl. Anzahl d. Durchlaeufe: 5.158104
C:\programmierung\perl>perl 100.txt

Durchschnittl. Anzahl d. Durchlaeufe: 5.194556
Pörl.

View full thread N Zahlen ermitteln mit Gesamtwert 100