Re: Un while() de perl

[Fernando <fsainz@ts.es>]

Hue-Bond wrote:
> 
> $ cat decimals.pl
> #!/usr/bin/perl
> $num = 0.8;
> while ($num < 1.1) {
>         print ("\$num vale $num\n");
>         $num = $num + 0.1;
>         print ("y después $num\n\n");
> }
> 
>          Trivial, ¿verdad?
> 
> $ ./decimals.pl
> $num vale 0.8
> y después 0.9
> 
> $num vale 0.9
> y después 1
> 
> $num vale 1
> y después 1.1
> 
>          Todo OK.
> 
> $ cat decimals2.pl
> #!/usr/bin/perl
> $num = 0.7; #        <---- Esta línea cambia
> while ($num < 1.1) {
>         print ("\$num vale $num\n");
>         $num = $num + 0.1;
>         print ("y después $num\n\n");
> }
> 
> $ ./decimals2.pl
> $num vale 0.7
> y después 0.8
> 
> $num vale 0.8
> y después 0.9
> 
> $num vale 0.9
> y después 1
> 
> $num vale 1
> y después 1.1
> 
> $num vale 1.1
> y después 1.2
> 
>          Oh vaya! Si inicializamos $num a 0.7 resulta que cuando llega a
>      1.1, la condición del while sigue siendo cierta!. perl_5.005.03-6.
> 


Hola:


Prueba a poner 11.1 :-?





-- 
Fernando.
{:-{D>

   "Hackers do it with fewer instructions."