Zahlen zwischen 2 Zahlen ermitteln...

[lulinda]

Hallo,

es muß eine einfachere Lösung geben, schließlich geht es hier um Perl!

Meine komplexe Lösung für Zahlen zwischen 2 Zahlen ermitteln (hypothtisches Beispiel):

$zahl_1 = "15";
$zahl_2 = "32";

@zahlen = ($zahl_1,$zahl_2);
@zahlen = sort(@zahlen);

$differenz = $zahlen[1] - $zahlen[0];

@zahlenreihe = ();

for ($i = $differenz-1; $i <= $zahlen[1]-1; $i++) {
     push(@zahlenreihe,$i);
}

Hat jemand eine schönere Idee?

Vielen Dank,
lulinda.

[Markus Möller]

$differenz = $zahlen[1] - $zahlen[0];

@zahlenreihe = ();

for ($i = $differenz-1; $i <= $zahlen[1]-1; $i++) {
     push(@zahlenreihe,$i);
}

Hallo!
Also auf den ersten Blick kannst du die Differenz weglassen.
for ($i = $zahlen[0]+1; $i <= $zahlen[1]-1; $i++) {
     push(@zahlenreihe,$i);
}

tut's doch auch.

[Matti Maekitalo]

use Mosche;

Meine komplexe Lösung für Zahlen zwischen 2 Zahlen ermitteln

my $zahl_1 = "15";
my $zahl_2 = "32";

($zahl_1, $zahl_2) = sort { $a <=> $b } ($zahl_1, $zahl_2);

achte darauf, richtig zu sortieren (numerisch, kein String- Vergleich

denn 15 < 100, aber '15' > '100' !

my @zahlenreihe;

push(@zahlenreihe,$i) for (my $i = $zahl_1+1; $i<$zahl_2; $i++);

use Tschoe qw(Matti);

[Klaus Mock]

Hallo,

my @zahlenreihe;
push(@zahlenreihe,$i) for (my $i = $zahl_1+1; $i<$zahl_2; $i++);

oder aber
my @zahlenreihe = ($zahl_1+1 .. $zahl_2-1);

Grüße
  Klaus

[Matti Maekitalo]

use Mosche;

my @zahlenreihe = ($zahl_1+1 .. $zahl_2-1);

Es tut weh, zu sehen, daß meine eigene Lösung so ungeschickt ist.

Ich hatte einen kurzen Moment in diese Richtung gedacht - um dann im nächsten Moment an der Verbesserung des gegebenen Codes zu arbeiten.

Merci für diese Lösung.

use Tschoe qw(Matti);

[lulinda]

habt dank,
ich wußte, das es einfacher geht!
$koepfe++ ist eben besser als undef($kopf)....
lulinda.

use Mosche;

my @zahlenreihe = ($zahl_1+1 .. $zahl_2-1);

Es tut weh, zu sehen, daß meine eigene Lösung so ungeschickt ist.

Ich hatte einen kurzen Moment in diese Richtung gedacht - um dann im nächsten Moment an der Verbesserung des gegebenen Codes zu arbeiten.

Merci für diese Lösung.

use Tschoe qw(Matti);

[Larry Wall]

habt dank, ich wußte, das es einfacher geht!

TMTOWTDI

Larry ;)