Guest wer

Code (perl): (dl )

@c=(2..99);push(spilce@c,rand(@c),1)for@c;

Mach mal noch kürzer:


Update: OK, nimm lieber nicht meine Version, denn das Ergebnis sieht nicht besonders gleichverteilt aus. Ich dachte früher ginge das mal besser. Vielleicht haben sie in Perl seitdem den Sortieralgorithmus verändert.
Last edited: 2017-01-25 12:34:08 +0100 (CET)