शुद्ध कार्यों को समाप्त करना

Question

मैं शुद्ध गणना कैसे कर सकता हूं जो बहुत अधिक समय ले रहा है? मैंने

import System.Timeout 

fact 0 = 1 
fact n = n * (fact $ n - 1) 

main = do maybeNum <- timeout (10^7) $ (return . fact) 99999999 
      print maybeNum 

हालांकि, यह काम नहीं करता है। (return . fact) 99999999 को "असली" आईओ फ़ंक्शन के साथ getLine पर बदलें और यह अपेक्षा के अनुसार काम करता है।

Answer 1

मुद्दा यह है कि

return (fact 999999999) 

तुरंत वापस आती है और समय समाप्ति ट्रिगर नहीं करता है। यह एक थंक देता है जिसका मूल्यांकन बाद में किया जाएगा।

आप वापसी मान के मूल्यांकन के लिए मजबूर हैं, तो

main = do maybeNum <- timeout (10^7) $ return $! fact 99999999 
      print maybeNum 

यह टाइमआउट को गति प्रदान (यदि आप एक ढेर इतना बड़ा प्रदान करें ताकि समय समाप्ति ढेर अतिप्रवाह से पहले होता है) चाहिए।