N Zahlen ermitteln mit Gesamtwert 100 (page 2) (Allgemeines zu Perl)

[thread]11787[/thread]

N Zahlen ermitteln mit Gesamtwert 100 (page 2)

Readers: 12

RPerl

2008-05-11 00:52

User since
2006-11-26
384 articles
BenutzerIn

user image

KurtZ+2008-05-10 22:50:44--
KurtZ+2008-05-10 22:41:35--
Ich schätze bei 3 Summanden brauchst du so im Durchschnitt schon 100 Durchläufe ... gruselig! : )

verschätzt, bei Gleichverteilung hast du ne 17%ige Erfolgsquote, also ca 6 Durchläufe!
(trotzdem übel)
Code (perl): (dl )
1
2
3
4
5
6
7
8
for $i (0..100) { 
   for $j (0..100) { 
     for $k (0..100) { 
        $c++; 
        $s=$i+$j+$k; 
        $d++ if $s<=100
   }}}
print $d/$c;

Irgendwie interessant zu wissen und ein interessantes Thema zugleich!
Was sagst du zu meinem bisherigen code? Was fehlt noch zur Idealloesung?

// EDIT: Der Grusel Code oben gibt auch nur Muell aus :D
Brauch ja exakte Werte. Kann ja nicht schaetzen ... ^^

KurtZ

2008-05-11 00:55

User since
2007-12-13
411 articles
BenutzerIn
[default_avatar]

nochmal, deine N Zufallszahlen ergeben deine Zwischensummen.
also Zufallszahlen aufsteigend sortieren, und dann Differenz ermitteln.

z[0]=10
z[1]=40
z[2]=70

=>

d[0]=10-0=10
d[1]=40-10=30
d[2]=70-40=30

=> Summe 70!

TMTOWTDYOG (there's more than one way to dig your own grave)

KurtZ

2008-05-11 00:59

User since
2007-12-13
411 articles
BenutzerIn
[default_avatar]

RPerl+2008-05-10 22:52:31--
Irgendwie interessant zu wissen und ein interessantes Thema zugleich!

keine Kombinatorik und Wahrscheinlichkeitsrechnung gehabt?

RPerl+2008-05-10 22:52:31--
Was sagst du zu meinem bisherigen code? Was fehlt noch zur Idealloesung?

sortieren und in ner Schleife Differenzen berechnen.

Kein Bock es zu proggen...
... gehe die Saturdaynight feiern, tschüss!

TMTOWTDYOG (there's more than one way to dig your own grave)

RPerl

2008-05-11 00:59

User since
2006-11-26
384 articles
BenutzerIn

user image

Aeh ... super.... Dann hab ich Summe 70. Genau 30 entfernt von 100. :D
Und das Chaos ist komplett.

RPerl

2008-05-11 01:00

User since
2006-11-26
384 articles
BenutzerIn

user image

Na super..
Sonst noch wer ideen?

KurtZ

2008-05-11 01:01

User since
2007-12-13
411 articles
BenutzerIn
[default_avatar]

RPerl+2008-05-10 22:59:45--
Aeh ... super.... Dann hab ich Summe 70. Genau 30 entfernt von 100. :D
Und das Chaos ist komplett.

HÄ ... du sagtest Summe maximal 100, oder???

Edit: lies dir meinen ersten Beitrag noch mal genau durch ...

TMTOWTDYOG (there's more than one way to dig your own grave)

RPerl

2008-05-11 01:04

User since
2006-11-26
384 articles
BenutzerIn

user image

Nein :D _Gesamtsumme_ ==(istgleich) 100
So schwer?

Quote
>keine Kombinatorik und Wahrscheinlichkeitsrechnung gehabt?

Ich bin alt und grau, meine Schulzeit ist schon laenger her als deine. Und um das zu sagen brauch ich nicht mal Wahrscheinlichkeitsrechungen :D

Quote
Kein Bock es zu proggen...
... gehe die Saturdaynight feiern, tschüss!

Wuensch dir einen schoenen Abend. :D

KurtZ

2008-05-11 01:07

User since
2007-12-13
411 articles
BenutzerIn
[default_avatar]

RPerl+2008-05-10 22:09:43--
Jedoch >maximal< in der Gesamtzahl 100.

Naja ... Mathe könnt ich verzeihen aber Deutsch hättest du üben sollen ; )

Over and Out!

TMTOWTDYOG (there's more than one way to dig your own grave)

lichtkind

2008-05-11 02:01

User since
2004-03-22
5697 articles
ModeratorIn + EditorIn

warum so kompliziert. nimm 2 zufallzahlen und als dritte zahl den rest zu 100 :)

Tutorien in der Wiki, mein zeug:
kephra, baumhaus, garten, gezwitscher

Es beginnt immer mit einer Entscheidung.

guest Gast

2008-05-11 02:32

Code (perl): (dl )

my $anzahl=3;
my $max=100;
my @zahlen=( int(rand($max)) );
my $summe=$zahlen[0];
while($#zahlen<$anzahl)
{
  push(@zahlen, int(rand($max-$summe)));
  $summe+=$zahlen[-1];
}
push(@zahlen,$max-$summe);
print "@zahlen\n";

View all threads created 2008-05-10 23:36.