Cómo analizar una fracción decimal en Rational en Haskell?

Question

He estado participando en a programming contest y one of the problems 'datos de entrada incluyen un número fraccionario en formato decimal: 0.75 es un ejemplo.

Analizando eso en Double es trivial (puedo usar read para eso), pero la pérdida de precisión es dolorosa. Hay que tener mucho cuidado con las comparaciones Double (no lo estaba), lo que parece redundante ya que uno tiene el tipo de datos Rational en Haskell.

Al intentar utilizar eso, he descubierto que a read un Rational uno tiene que proporcionar una cadena con el siguiente formato: numerator % denominator, lo cual, obviamente, no tengo.

Entonces, la pregunta es:

¿Cuál es la forma más fácil de analizar una representación decimal de una fracción en Rational?

El número de dependencias externas también debe tenerse en cuenta, ya que no puedo instalar bibliotecas adicionales en el juez en línea.

Answer 1

La función que desea es Numeric.readFloat:

Numeric Data.Ratio> fst . head $ readFloat "0.75" :: Rational 
3 % 4 

Answer 2

¿Qué hay de lo siguiente (sesión GHCi):

> :m + Data.Ratio 
> approxRational (read "0.1" :: Double) 0.01 
1 % 10 

Por supuesto, usted tiene que escoger su épsilon adecuadamente.

Answer 3

Tal vez se obtendría puntos extra en el concurso para la implementación de usted mismo:

import Data.Ratio ((%)) 

readRational :: String -> Rational 
readRational input = read intPart % 1 + read fracPart % (10^length fracPart) 
    where (intPart, fromDot) = span (/='.') input 
     fracPart   = if null fromDot then "0" else tail fromDot