Divisionsvereinfachung geht nicht

[MudGuard]

Hi,

Ja geht:

sogar (theoretisch) endlos, braucht nur eine winzige Änderung in der zweiten Zeile:

my $zahl = 101;
my $div = -20;

my($erg, $rest) = (0,0);
do{
    $rest = $zahl - $div;
    $zahl = $rest;
    $erg++;
} while $zahl >= $div;

printf("Ergebnis: %d, Rest: %d", $erg, $rest);

cu,
Andreas a/k/a MudGuard