फ़ंक्शन को कितनी बार बुलाया गया था, एफपी तरीका

Question

मैं वर्तमान में SICP के माध्यम से हास्केल के साथ काम कर रहा हूं। व्यायाम 1.15 पूछता है कि फ़ंक्शन को कितनी बार बुलाया जाता है। विचार शायद यह है कि आपको प्रतिस्थापन विधि का उपयोग करना चाहिए, लेकिन मैं जानना चाहता हूं कि कोड में ऐसा कैसे करें।

एक अनिवार्य भाषा में कोई वैश्विक वैरिएबल रख सकता है और हर बार फ़ंक्शन कहलाता है। लेकिन आप इसके बारे में हास्केल (या शुद्ध कार्यात्मक तरीके) में कैसे जाएंगे?

Answer 1

इसे पूर्ण करने के Writer इकाई का उपयोग कर सकते हैं, बशर्ते कि प्रश्न में समारोह के लिए कॉल के सभी एक do ब्लॉक में एक साथ बांटा जा सकता है:

import Control.Monad.Writer 

myFunc :: Int -> Int -> Writer (Sum Int) Int 
myFunc a b = tell (Sum 1) >> return (a + b) 

callMyFunc :: ((Int, Int, Int), Sum Int) 
callMyFunc = runWriter $ do a <- myFunc 2 3 
          b <- myFunc 8 7 
          c <- myFunc 3 5 
          return (a, b, c) 

main = putStrLn $ 
    "myFunc was called " 
     ++ show (getSum $ snd callMyFunc) 
     ++ " times and produced " 
     ++ show (fst callMyFunc) 

कौन सा आउटपुट:

myFunc was called 3 times and produced (5,15,8) 

Answer 2

ऐसा लगता है कि आपको किसी प्रकार का काउंटर होना चाहिए चाहे आप एक कार्यात्मक या गैर-कार्यात्मक तरीके से जाएं या नहीं। हास्केल में, आप राज्य का ट्रैक रखने के State इकाई इस्तेमाल कर सकते हैं:

import Control.Monad.State 

someFunc x = do 
    num <- get 
    put (num + 1) 
    return $ x * x 

runSomeFuncs = do 
    someFunc 1 
    someFunc 2 
    someFunc 3 

main = do 
    let (res, state) = runState runSomeFuncs 0 
    putStrLn ("result: " ++ (show res)) 
    putStrLn ("# of calls: " ++ show state) 

यहाँ, आप कितनी बार someFunc लिए बुला लिया गया का ट्रैक रखने के लिए चाहते हैं, तो हम राज्य के रूप में में एक पूर्णांक गुजरती हैं और बढ़ा देते पूर्णांक हर बार फ़ंक्शन का उपयोग करके बुलाया जाता है:

num <- get 
put (num + 1) 

और उसके बाद 1 और यह put वापस द्वारा यह बढ़ा देते। आप इस स्क्रिप्ट चलाते हैं, तो इसे प्रिंट चाहिए

result: 9 
# of calls: 3