🚀 go-pugleaf

Idiotyczne odpowiadać sobie na zadane pytanie - nie, nie- wszystko z
mojš głowš jest OK! :-))
Muszę się pochwalić że znalazłem rozwišzanie. Otóż po każdej iteracji
należy użyć funkcji pack i unpack:

stary kod:

> #! /usr/bin/perl
> 
> $dx=0.01;
> $nx=950;
> 
> while ($nx < 1000){
>   $nx += $dx;
    
             # tu dopisać
               $nxx=pack "p", $nx;    # <----- 
               $nx=unpack "p", $nxx;  # <-----


>   print "nowe nx=$nx\n";

> }

i działa !!! Tzn. wyniki otrzymywane sš z przyzwoitš precyzjš: otrzymuję
w końcu moje upragnione przykładowe 979.02 a nie 979.019999988. Pewnie
dla niektórych jest to sprawa oczywista ale skoro nie ma tego w perlfaq4
(polecany mi do poduszki), to pomyslałem że warto się pochwalić. A nuż
(i widelec) ktos bedzie mial podobne "rozterki". Wadš tego rozwišzania
jest to że program wyraŸnie zwalnia, ale pewnie tak musi być...

Pozdrawiam 
Piotr