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 ответов

45 просмотров
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)

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

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

30500 за редактор? )
Владимир
47
Недавно Google Project Zero нашёл багу в SQLite с помощью LLM, о чём достаточно было шумно в определённых интернетах, которые сопровождались рассказами, что скоро всех "ибешни...
Alex Sherbakov
5
вы делали что-то подобное и как? может есть либы готовые? увидел картинку нокода, где всё линиями соединено и стало интересно попробовать то же в ddl на lua сделать. решил с ч...
Victor
8
Подскажите пожалуйста, как в CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); получить наз...
A Z
7
Ребят в СИ можно реализовать ООП?
Николай
33
https://github.com/erlang/otp/blob/OTP-27.1/lib/kernel/src/logger_h_common.erl#L174 https://github.com/erlang/otp/blob/OTP-27.1/lib/kernel/src/logger_olp.erl#L76 15 лет назад...
Maksim Lapshin
20
Как передать управляющий символ в открытую через CreateProcess консоль? Собсна, есть процедура: procedure TRedirectThread.WriteData(Data: OEMString); var Written: Cardinal;...
Serjone
1
Он в одиночку это дело запилил или была какая-то команда?
Aquinary
12
~ 2m21s  nix shell github:nixos/nixpkgs#stack ~  stack ghc -- --version error: … while calling the 'derivationStrict' builtin at /builtin/derivation.nix:...
Rebuild your mind.
6
Всем привет, нужна как никогда, нужна помощь с IO в загрузчике. Пишу в code16 после установки сегментных регистров, пишу вывод символа. Пробовал 2 варианта: # 1 mov $0x0E, %a...
Shadow Akira
14
Карта сайта