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
Math::BigRat