Thread an geringsten wert heranpirschen: in einem Array (3 answers)
Opened by mordur at 2005-01-28 17:48

mordur
 2005-01-28 17:48
#51412 #51412
User since
2003-09-25
182 Artikel
BenutzerIn
[Homepage] [default_avatar]
moins,

ich habe ein Array mit verschieden Zahlen. Gleichzeitig habe ich eine fest vorgegebene Zahl. Jetzt möchte ich mir aus dem Array die Elemente ausgeben lassen, die meiner vorgegebenen Zahl am nächsten kommt. Existieren zwei oder mehr davon im Array sollen auch alle ausgegeben werden. Bisher hab ich diesen Code, doch das reicht irgendwie nicht.
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
my @ar=(4,1,0,9,6,7,4,0,2);

my $count=0;
my $spanne=0;
my $take=0;
my $vorgabe=3;
my @ar2;


foreach (@ar)
{


if ($_ <= $vorgabe-$spanne)
{
$take = $count;
$spanne = $_;
push(@ar2,$_);

}
$count++;

}
print $_."\n" foreach @ar2;

So bekomme ich aber nur die kleinsten Elemente . Brauchen würde ich aber die Elemente mit den Werten 4 und 2, da sie je 1 von der Vorgabe entfernt sind. Hat da jemand eine Idee?

View full thread an geringsten wert heranpirschen: in einem Array