ファンクションが呼び出された回数、FP方法

Question

現在、私は現在、Haskellで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

機能的かどうかに関係なく、何らかのカウンターが必要なように聞こえます。 Haskellでは、あなたは状態を追跡するために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