169 похожих чатов

Рассмотрим две функции: let rec f ~acc = function |

[] -> List.rev acc
| x :: xs -> f ~acc:((x * 2) :: acc) xs
;;

let rec f ~acc = function
| [] -> acc []
| x :: xs -> f ~acc:(fun xs -> (x * 2) :: acc xs) xs
;;

первая функция это обычный accumulate-and-reverse. вторая функция это то же самое, только acc тут выступает как функция. из-за потока исполнения мы под конец просто вызываем acc [] без надобности в List.rev. в отличие от первой f, вторая не требует промежуточной структуры данных.

почему чаще используют первый подход, нежели второй? неужели производительность второго подхода считается хуже (я ещё не проверял)?

9 ответов

38 просмотров
Hirrolot- Автор вопроса

конкретно в этом случае можно сделать просто tail_mod_cons, но есть случаи, когда рекурсивный вызов просто не выступает в позиции конструктора, а элементы списка всё равно накапливать надо

второе это difference list, частный случай моноида Кэли

Hirrolot- Автор вопроса
Alex Gryzlov
второе это difference list, частный случай моноида...

понял, то есть всё-таки используется: > This implementation is typically used in functional programming languages such as Haskell, although it could be used in imperative languages as well. https://en.wikipedia.org/wiki/Difference_list в окамле просто не видел особо...

второе это ведь CPS-трансформация. и вторая функция наверняка медленнее

Hirrolot- Автор вопроса
Dika
второе это ведь CPS-трансформация. и вторая функци...

обе функции и так tail-recursive, CPS материализует контекст, он тут пустой

Hirrolot- Автор вопроса
Dika
второе это ведь CPS-трансформация. и вторая функци...

побенчмаркал потехи ради. первая версия, список 50 миллионов элементов (с List.rev): real 0m10.048s user 0m8.778s sys 0m1.249s вторая версия: real 0m10.596s user 0m8.990s sys 0m1.600s

В неленивой реализации промежуточный список всё равно создаётся, только в виде цепочки вывзовов получившегося [DList](https://hackage.haskell.org/package/dlist-1.0/docs/Data-DList.html#t:DList)

Похожие вопросы

Обсуждают сегодня

Какой-то там пердун в 90-х решил, что есть какая-то разная типизация. Кого вообще это волнует?
КТ315
49
void terminal_scroll() { memmove(terminal_buffer, terminal_buffer + VGA_WIDTH, buffer_size - VGA_WIDTH); memset(terminal_buffer + buffer_size - VGA_WIDTH, 0, VGA_WIDTH); ...
Егор
47
Всем привет! Подскажите, пожалуйста, в чем ошибка? Настраиваю подключение к MySQL. Либы лежат рядом с exe. Все как по "учебнику"
Евгений
16
А можете как-то проверить меня по знаниям по ассемблеру?
A A
132
Здравствуйте! У меня появилась возможность купить книгу "Изучай Haskell во имя добра!". Но я где-то слышал, что эта книга устарела. Насколько это правда??
E
22
Здравствуйте! Я вот на stepic решаю задачи на хаскеле https://stepik.org/lesson/8443/step/8?unit=1578 мой код import Data.List (isInfixOf) removing :: String -> [String] ->...
E
10
Камрады, кто тесно работал с vtv, хотел уточнить. Ширина column задаётся жёстко на этапе создания дерева или можно в рантайме ее менять программно (не мышкой)?
Ed Doc
10
да ладно ... что там неочевидного ? глянуть в исх-ки датасета и/или кверика чтобы понять в каком месте и как выполняется обращения к св-вам blablaSQL - минутное дело, даже е...
Сергей
7
Здесь для arm кто-нибудь кодит ?
Nothing
52
Всем привет, у меня есть сервер принимающий входящие HTTP подключения, как проверить, что подключение было через прокси или нет, есть какие то поля в заголовках по которым мо...
DS
8
Карта сайта