2

Estoy intentando de convertir los decimales a entero para después obtener la fracción irreducible, para esto hago lo siguiente:

my $input = <STDIN>;
my $denominador = 1;
chomp($input);
until ($input == int($input)){
    $input *= 10;
    $denom *= 10};

print("Num: ", int($input), " Denom: ", $denom);

Probando esto me funciona perfecto cuando introduzco el número: 0.2324 obtengo como resultado:

Decimal: 0.2324 
2.324 Int input: 2
23.24 Int input: 23
232.4 Int input: 232
2324 Int input: 2324
Num: 2324 Denom: 10000

Pero cuando introduzco:0.444 ó .376 y sus múltiplos obtengo un mal funcionamiento:

Decimal: 0.444
4.44 Int input: 4
44.4 Int input: 44
**444 Int input: 444**
4440 Int input: 4440
44400 Int input: 44400
444000 Int input: 444000
4440000 Int input: 4440000
44400000 Int input: 44400000
444000000 Int input: 444000000

Ésas son impresiones de la comparación del until, según esto no son iguales esos números. Ahora un print con el 0.376:

Decimal: **0.376**
3.76 Int input: 3
37.6 Int input: 37
**376 Int input: 375**
**3760 Int input: 3759**
37600 Int input: 37599
376000 Int input: 375999
3760000 Int input: 3759999
37600000 Int input: 37599999
376000000 Int input: 375999999
3760000000 Int input: 3759999999
37600000000 Int input: 37599999999
376000000000 Int input: 375999999999
3760000000000 Int input: 3759999999999
37600000000000 Int input: 37599999999999
376000000000000 Int input: 375999999999999
3.76e+15 Int input: 3759999999999999
3.76e+16 Int input: 37599999999999992
**Num: 37599999999999992 Denom: 100000000000000000**

Cuando el Num: 376 Denom: 1000

¿Qué puedo hacer para corregir ese problema?¿Es debido al casting del int()?

Saludos

2
  • FYI: 0.2324 es 581/2500, 0.444 es 111/250, y 0.376 es 47/125. Puede que te interese usar el modulo Math::BigRat
    – ninjalj
    Commented el 28 jul. 2017 a las 11:28
  • Muchas gracias! voy a verificar el módulo. Lo que sí buscaba es realizar yo todo el procesamiento, y me funciona bien con muchos números excepto con algunos, como los que pongo de ejemplo y me gustaría saber a qué se deba que no funcione correctamente. Nuevamente te agradezco [ninjalj] ya que no conocía ese módulo y ahora tengo conocimiento de él! :) Commented el 28 jul. 2017 a las 16:39

1 respuesta 1

1

Hay ciertos valores de punto flotante cuya representación en binario (dentro de la máquina virtual Perl, y al igual que el resto de lenguajes) no siempre es perfecta. Siempre hay errores en los últimos decimales, que provoca en ocasiones, bucles infinitos o errores de redondeo.

El cómo solucionarlo. Ya te han comentado usar el módulo Math::BigRat, que sirve para estos casos en los que necesitamos una precisión más alta.

Otra opción... como Perl maneja muy bien las cadenas de texto, y pasar de cadena a número es muy sencillo, podemos usar el truco de mirar por el punto decimal '.' (usando rindex()) para saber qué posición ocupa. De ahí sacamos el denominador. Y el numerador es eliminar ese punto (con substr(), por ejemplo) o simplemente haciendo una multiplicación. Ejemplo:

$x = 10.376;
$pos_p = rindex $x, ".";
$denominador = ($pos_p < 0) ? 1 : 10 ** ( length($x) - $pos_p - 1 );
$numerador = $x * $denominador;
print "[$numerador/$denominador]\n";

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.