Jak policzyć liczbę razy, gdy funkcja została wywołana, sposób FP

Question

Obecnie pracuję poprzez SICP z Haskell. W ćwiczeniu 1.15 pytamy, ile razy wywoływana jest funkcja. Prawdopodobnie powinieneś użyć metody zastępowania, ale chciałbym wiedzieć, jak to zrobić w kodzie.

W języku imperatywnym można przechowywać zmienną globalną i zwiększać ją za każdym razem, gdy wywoływana jest funkcja. Ale jak byś się tym zajął w Haskell (czy w czysto funkcjonalny sposób)?

Answer 1

Można użyć Writer monady do osiągnięcia tego celu, pod warunkiem, że wszystkie połączenia do funkcji w pytaniu mogą być grupowane w do bloku:

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) 

które wyjścia:

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

Answer 2

Wydaje mi się, że potrzebna jest jakaś licznik, niezależnie od tego, czy chodzi o funkcjonalny czy niefunkcjonalny sposób. W Haskell, można użyć State monada śledzić stan:

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) 

Tutaj, chcesz śledzić, ile razy someFunc został sprawdzony, tak mijamy liczbę całkowitą jako państwa i zwiększamy całkowitą każdym razem, gdy funkcja jest wywoływana za pomocą:

num <- get 
put (num + 1) 

a następnie zwiększać ją o 1 i put go z powrotem. Po uruchomieniu tego skryptu, należy go wydrukować

result: 9 
# of calls: 3