Opened by Gast at 2007-06-17 23:20
Hallo erstmal;
ich möchte ein Programm schreiben, das ein Array mit Zufallszahlen füllt, und dann ausgibt wie oft jede Zahl vorkommt.Leider bekomm ichs nicht hin, die Zahlen durchzuzählen,
Das gibt mein Programm aus, eigentlich sollte noch die Ausgabe der Anzahlen also bei 75 2 mit ausgegeben werden.
1 16
2 40
3 54
4 68
5 38
6 94
7 75
8 75
9 9
10 83
83 1 16
Wär echt net, wenn mir einer von euch eine Tipp geben könnte.
Danke schon mal, lg Maria
ich möchte ein Programm schreiben, das ein Array mit Zufallszahlen füllt, und dann ausgibt wie oft jede Zahl vorkommt.Leider bekomm ichs nicht hin, die Zahlen durchzuzählen,
Code: (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
27
#!/usr/bin/perl -w
use strict;
my($v,@array, $i, %assarray, $index);
srand;
$v=0;
while ($v++ < 10)
{
@array = split (" ",rand(100));
printf("%d %d\n", $v, @array);
}
for ($i=0;$i <= $#array;$i++)
{
if(!defined($assarray{$array[$i]}))
{
$assarray{$array[$i]} = 1;
}
else
{
$assarray{$array[$i]}++;
}
}
foreach $index (keys %assarray)
{
printf ("%d %d %d\n",$index, $assarray{$index}, length($index));
}
Das gibt mein Programm aus, eigentlich sollte noch die Ausgabe der Anzahlen also bei 75 2 mit ausgegeben werden.
1 16
2 40
3 54
4 68
5 38
6 94
7 75
8 75
9 9
10 83
83 1 16
Wär echt net, wenn mir einer von euch eine Tipp geben könnte.
Danke schon mal, lg Maria