Opened by Gast at 2007-06-17 23:20
User since
2003-08-14
2022 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-14
2022 Artikel
BenutzerIn
[quote=Linuxer,18.06.2007, 00:24]Wenn das benötigt ist, sollte ein Array gefüllt werden....[/quote]
Ist nur 'ne winzige Änderung, dann hat man das Ganze auch noch in 'nem Array - ist aber eh die Frage für was es insgesamt gut sein soll?
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
#!/usr/bin/perl
use strict;
use warnings;
my $times = 20;
my $max = 10;
my %histogram = ();
my @randoms = ();
@randoms = map { int(rand($max))+1 } 0 .. $times;
$histogram{ $_ }++ for @randoms;
print $_ . ": ". $histogram{$_} ."\n" for sort { $a <=> $b } keys %histogram;
Ist nur 'ne winzige Änderung, dann hat man das Ganze auch noch in 'nem Array - ist aber eh die Frage für was es insgesamt gut sein soll?