Один вопрос: как это работает? fib :: (Int -> Integer) ->

Question

Один вопрос: как это работает? fib :: (Int -> Integer) ->

Int -> Integer
fib f 0 = 1
fib f 1 = 1
fib f n = f (n - 1) + f (n - 2)

memoize :: (Int -> a) -> (Int -> a)
memoize f = (map f [0..] !!)

fibMemo :: Int -> Integer
fibMemo = fix (memoize . fib)

#haskell #programming #russian

0

30.07.2021

5 ответов

3 просмотра

Ilya Kos

А этот memorize точно что-то сделает вообще?

0

30.07.2021

Danil Berestov

Ilya Kos
А этот memorize точно что-то сделает вообще?

import Data.Time fix f = let x = f x in x fib :: (Int -> Integer) -> Int -> Integer fib f 0 = 1 fib f 1 = 1 fib f n = f (n - 1) + f (n - 2) memoize :: (Int -> a) -> (Int -> a) memoize f = (map f [0..] !!) fibMemo :: Int -> Integer fibMemo = fix (memoize . fib) main = do getCurrentTime >>= print print $ length . show $ fibMemo 10000 getCurrentTime >>= print print $ length . show $ fibMemo 10000 getCurrentTime >>= print 2021-07-30 17:07:16.754744748 UTC 2090 2021-07-30 17:07:17.235585326 UTC 2090 2021-07-30 17:07:17.235746293 UTC

0

30.07.2021

Ilya Kos

Danil Berestov
import Data.Time fix f = let x = f x in x fib :...

Почему это работает

0

30.07.2021

Danil Berestov

Ilya Kos
Почему это работает

?

0

30.07.2021