topeg+2008-05-11 11:27:39--

Eine ganz kurze Lösung:

Code (perl): (dl )

1
2
3
4
5
6
7

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

my @zahlen=map{$_=1}(1..$bis);
$zahlen[int(rand($#zahlen))]+=pop(@zahlen) while(@zahlen>$menge);

print "@zahlen \n";

Leider hat sie einen Schönheitsfehler: Die '0' kommt niemals vor.

sehr kreativ! 8-) (hast als Kind gerne Sandhäufchen herumgeschüttet? ;-)

...allerdings braucht sie immer ca 100 Zufallszahlen...