Я пытаюсь запомнить следующую функцию:
gridwalk x y
| x == 0 = 1
| y == 0 = 1
| otherwise = (gridwalk (x - 1) y) + (gridwalk x (y - 1))
Глядя на this , я пришел к следующему решению:
gw :: (Int -> Int -> Int) -> Int -> Int -> Int
gw f x y
| x == 0 = 1
| y == 0 = 1
| otherwise = (f (x - 1) y) + (f x (y - 1))
gwlist :: [Int]
gwlist = map (\i -> gw fastgw (i `mod` 20) (i `div` 20)) [0..]
fastgw :: Int -> Int -> Int
fastgw x y = gwlist !! (x + y * 20)
Которое я затем могу назвать так:
gw fastgw 20 20
Есть ли более простой, краткий и общий способ (обратите внимание, как мне пришлось жестко запрограммировать максимальные размеры сетки в функции gwlist
, чтобы преобразовать из 2D в одномерное пространство, чтобы я мог получить доступ к списку мемоизации), чтобы мемоизировать функции с несколькими параметры в Haskell?