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

Привет. У меня такой, довольно концептуальный вопрос. Допустим, я хочу написать

бизнес-логику и описать это в чистом виде, а эффекты вытолкать на уровень интерпретатора. Нет проблем, берём FM/TF и пишем нечто типа:


foo :: BizM m => m ()
foo = do
mv <- get' "foo"
case mv of
Nothing -> return ()
Just v -> multi' $ do
put "foo1" v
put "foo2" v


Описываем операции multi', put и get в абстрактной монаде BizM и всё прекрасно работает.

Но что если я хочу сделать многопоточность на уровне бизнес-логики, то есть реализовать операции spawn и join? Как писать интерпретаторы для таких операций? Есть ли пример подобной реализации EDSL?

Прошу прощения за Хаскель, он просто чуть компактнее.

4 ответов

54 просмотра

тот ТФ, который тофу пропагандировал, предполагал, что для разных операций будут разные баунды на m. и тут просто пишется еще пара тайпклассов Spawns m, Joins m и добавляются в список баундов

ⰽⱁⱅⱏ ⰿⰵⰶⰴⱆⱄⰾⱁⰲⱑⱀⱐⱄⰽⱏ
тот ТФ, который тофу пропагандировал, предполагал,...

Так, то есть сигнатура ˋspawn:: (() -> m a) -> m aˋ это вполне штатная вещь для Тофу? Если так, это хорошо. Чтобы избежать проблемы XY я опишу, что я хочу получить. Есть программа, она создаёт потоки, строит разные структуры данных, в том числе библиотечные, и по-всякому к ним обращается. Хочется выделить некоторое чистое ядро и подвергнуть его множеству различных тестовых сценариев, чтобы, скажем, убедиться, что нет гонок. То есть эти тестовые сценарии должны уметь создавать некоторые детерминированные псевдо-потоки, и в этих псевдо-потоках нужно, чтобы события происходили в определённом порядке. Подход алгоритмов в виде структур данных мне нравится (и FM, и TF), но в случае со spawn я пока не знаю, как это сработает.

𝙽𝚒𝚌𝚔 𝙻𝚒𝚗𝚔𝚎𝚛
Так, то есть сигнатура ˋspawn:: (() -> m a) -> m a...

ну тут две разных сигнатуры defer[A](=> F[A]): F[A] и start[A](F[A]): Daemon[F, A] где Daemon - аналог Fiber

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

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

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
Карта сайта