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

21 просмотр

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

catostrophe
тот ТФ, который тофу пропагандировал, предполагал,...

Так, то есть сигнатура ˋ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

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

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

Добрый день. Хочу сделать отрисовку по команде на панели. Почему-то рисуется только при втором вызове. С чем может быть связано, не подскажете? procedure TForm1.FormDblClick(...
Kirill Filippenok
20
а зачем этот вопрос для удаления из чата?
Mёdkinson Medvezhkin
63
Эх кто-то пришел и весь праздник испортил :( You need complex FBX scene importing setup to change things on import? good luck with that. You need navigation and pathfinding? g...
Serg Gini
5
Всем привет! Нужен совет от опытных. Переношу свой проект с Делфи 10.2 Токио на Лазарус 3.2 установленный через инсталлятор fpcupdeluxe-x86_64-win64. При импортировании проект...
Дмитрий Завгородний
7
Всем привет! Подскажите. Я написал приложение на Delphi 10.2 Tokyo под Windows 10. И передо мной стал вопрос о том чтобы сделать это приложение кроссплатформенным (под Linux и...
Дмитрий Завгородний
24
Какого хера? /Sources/App/Modules/User/Models/UserLinkApple.swift:21:20: warning: stored property '_id' of 'Sendable'-conforming class 'UserLinkApple' is mutable @ID(...
Alexander Sherbakov
14
Привет всем. Подскажите где можно посмотреть, какая версия электрон, поддерживает версии windows? Некий changelog. Мне бы желательно, поддержку 7,8,10... latest, как понимаю и...
Anonym Squad
21
Почему стало ломаться на D11? "739002.86400000' is not a valid timestamp" function IncDateTime(aStamp:TTimeStamp;aKind:TTriggerKind;aInterval:Integer):TDateTime; //aStamp = 2...
Катерина Свиридова
8
у меня программа тысяч на 10 строк. Там в основном моя собственная логика. А по содержанию она просто работает с файловой системой (мастер для бэкапов) и таблицей с данными о ...
Дмитрий Завгородний
5
У тебя в конфиге нигде нет deny all; или вообще любого deny?
Alexander Sherbakov
10
Карта сайта