हास्केल में तर्कसंगत में दशमलव अंश को कैसे पार्स करें?

Question

मैं a programming contest और one of the problems में भाग ले रहा हूं 'इनपुट डेटा में दशमलव प्रारूप में एक आंशिक संख्या शामिल है: 0.75 एक उदाहरण है।

Double में पार्सिंग छोटा है (मैं इसके लिए read का उपयोग कर सकता हूं), लेकिन सटीकता का नुकसान दर्दनाक है। Double तुलना (मुझे नहीं था) के साथ बहुत सावधान रहने की आवश्यकता है, जो अनावश्यक लगता है क्योंकि किसी के पास Rational डेटा प्रकार हैस्केल में है।

इसका उपयोग करने का प्रयास करते समय, मैंने पाया है कि readRational को निम्नलिखित प्रारूप में एक स्ट्रिंग प्रदान करनी है: numerator % denominator, जो कि, जाहिर है, मेरे पास नहीं है।

तो, सवाल यह है:

Rational में एक अंश के एक दशमलव प्रतिनिधित्व पार्स करने के लिए सबसे आसान तरीका क्या है?

बाह्य निर्भरताओं की संख्या को भी ध्यान में रखा जाना चाहिए, क्योंकि मैं ऑनलाइन जज में अतिरिक्त पुस्तकालय स्थापित नहीं कर सकता।

Answer 1

समारोह आप चाहते हैं Numeric.readFloat है:

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

Answer 2

कैसे निम्नलिखित (GHCi सत्र) के बारे में:

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

कोर्स आप अपने एप्सिलॉन उचित रूप से लेने के लिए है

।

Answer 3

शायद आप यह अपने आप को लागू करने के लिए प्रतियोगिता में अतिरिक्त अंक पाने चाहते हैं:

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