Подсчет времени рекурсии в Хаскеле
Это может произойти по одной из трех причин: -
1) Отсутствует установка VC ++: Установите все версии пакетов перераспределения VC ++ VC9, VC10, VC11, VC13, VC14 и VC15. См. Ссылку, указанную в конце для ссылки для загрузки. Если у вас 64-разрядная Windows, вы должны установить как 32, так и 64-битные версии каждого пакета VisualC ++, даже если вы не используете бит Wampserver 64.
2) Вы забыли предоставить права администратора на WAMP Server : Запуск и установка с параметром «Запуск от имени администратора» очень важны.
3) WAMP, IIS и Skype сражаются за один и тот же порт:
- Закрыть Skype или заставить не использовать порт 80: http://forum.wampserver.com/read.php?2,134915
- Отключить IIS: http: //forum.wampserver. com / read.php? 2,134915
- Пакеты VC9 (Visual C ++ 2008 SP1) http://www.microsoft.com/en-us/download/details.aspx?id=5582 http://www.microsoft.com/en-us/download/details. aspx? id = 2092
- Пакеты VC10 (Visual C ++ 2010 с пакетом обновления 1) http://www.microsoft.com/en-us/download/details.aspx?id=8328 http://www.microsoft.com/en-us/download/details.aspx?id=13523
- Пакеты VC11 (обновление Visual C ++ 2012 4) Два файла VSU4 \ vcredist_x86.exe и VSU4 \ vcredist_x64.exe для загрузки находятся на одной странице: http://www.microsoft.com/en-us/download/details.aspx?id=30679
- VC13 Packages] (Visual C ++ 2013) Два файла VSU4 \ vcredist_x86.exe и VSU4 \ vcredist_x64.exe для загрузки находятся на одной странице: https: // www. microsoft.com/en-us/download/details.aspx?id=40784
- Пакеты VC14 (обновление Visual C ++ 2015 3) Два файла vcredist_x86.exe и vcredist_x64.exe для загрузки находятся на одной странице: http://www.microsoft.com/fr-fr/download/details.aspx?id=53840
- VC15 Redistribuable (Visual C ++ 2017) https://go.microsoft.com/fwlink/?LinkId=746571 Распространяемые пакеты Visual C ++ для Visual Studio 2017 x86 https://go.microsoft.com/fwlink/?LinkId= 746572
1 ответ
Если вы хотите отследить, сколько раз вызывается функция, вы должны указать это как вход. Нет другого способа сделать это, потому что Haskell позволяет вам работать только с аргументами, которые передаются в функцию.
Например, скажем, я хотел вычислить факториал, но я хотел отследить, сколько шагов потребовалось. Моя сигнатура функции может выглядеть так:
factorial :: Int -> (Int, Int) -- Takes a number, returns the number and recursion count
factorialInternal :: (Int, Int) -> (Int, Int) -- This actually does the recursion
, а затем определения могут выглядеть так:
factorial n = factorialInternal (n, 0)
factorialInternal (1, n) = (1, n + 1)
factorialInternal (x, n) = let (y, z) = factorialInternal (x-1, n) in (x * y, z + 1)
По сути, параметр, отслеживающий количество рекурсии, увеличивается на каждом уровне, и затем становится частью вывода factorial.
Это определенно помогает создать интерфейсную функцию, так что вам не нужно вручную вводить начальный уровень рекурсии при использовании функции (которая всегда равна нулю, в любом случае). Пример того, как могут выглядеть сигнатуры вашей функции:
-- The function you call
calculateDifference :: (Int, Int, Int) -> (Int, Int, Int) -> Int
-- What the calculateDifference function calls (the third parameter is the recursion counter)
calculateDifferenceInternal :: (Int, Int, Int) -> (Int, Int, Int) -> Int -> Int
Отсюда вы сможете понять, как реализовать calculateDifference и calculateDifferenceInternal.
РЕДАКТИРОВАТЬ: Как указывал Амаллой, лучшее решение состоит в том, чтобы просто вывести счетчик, а не принимать один: поэтому вместо factorialInternal :: (Int, Int) -> (Int, Int), factorialInternal Int -> (Int, Int) будет работать. Тогда определение будет выглядеть так:
factorialInternal 1 = (1, 0)
factorialInternal n = let (x, y) = factorialInternal (n - 1) in (n * x, y + 1)