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."