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

Есть ли способ красиво переписать list-comprehension'ы: [c <> c' | c

<- toNormForm' f, c' <- toNormForm' f']
[[CDmd r c b] | c <- toNormForm' f]
через Data.Set, а не списки?
Ну или хотя бы не очень красиво, но как это обычно делают?

9 ответов

23 просмотра

Set.fromList do foo <- bar pure setItemCandidate

у вас на входе Set и на выходе Set?

красивее компрехеншена уже не будет, но можно Set.fromList $ liftA2 (<>) (toList xs) (toList ys) а во втором случае хотите получить Set из одноэлементных Set?

Лев-Дворкин Автор вопроса
Cheese Syrowiecki
красивее компрехеншена уже не будет, но можно Set....

да, что-то такое я и взял Comprehension'ы пока. А там будут проблемы с производительностью — буду менять. Пока главное, что наглядно и ошибку сложнее допустить

Лев Дворкин
да, что-то такое я и взял Comprehension'ы пока. А ...

какие проблемы с производительностью вы ожидаете? если для этой задачи надо в любом случае перебирать все комбинации

Лев Дворкин
да, что-то такое я и взял Comprehension'ы пока. А ...

а если забыть о синтаксисе и поговорить о производительности, то посмотрите на Data.Set.cartesianProduct. можно начать с Set.map (uncurry (<>)) $ cartesianProduct c c', а продолжить погружением в исходный код этой нетривиальной функции и проверкой применимости Set.mapMonotonic всё это делать, измеряя производительность с помощью criterion, например

Лев-Дворкин Автор вопроса
Cheese Syrowiecki
а если забыть о синтаксисе и поговорить о производ...

ok сначала напишу как-нибудь, потом буду думать о производительности. А то тут пока и как-нибудь не очень выходит

Лев Дворкин
ok сначала напишу как-нибудь, потом буду думать о ...

так вы уже начали вопрос с достаточно хорошей реализации

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

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

а через ESC-код ?
Alexey Kulakov
29
30500 за редактор? )
Владимир
47
Чёт не понял, я ж правильной функцией воспользовался чтобы вывести отладочную информацию? но что-то она не ловится
notme
18
У меня есть функция где происходит это: write_bit(buffer, 1); write_bit(buffer, 0); write_bit(buffer, 1); write_bit(buffer, 1); write_bit(buffer, 1); w...
~
13
Недавно Google Project Zero нашёл багу в SQLite с помощью LLM, о чём достаточно было шумно в определённых интернетах, которые сопровождались рассказами, что скоро всех "ибешни...
Alex Sherbakov
5
program test; {$mode delphi} procedure proc(v: int32); overload; begin end; procedure proc(v: int64); overload; begin end; var x: uint64; begin proc(x); end. Уж не знаю...
notme
6
Как передать управляющий символ в открытую через CreateProcess консоль? Собсна, есть процедура: procedure TRedirectThread.WriteData(Data: OEMString); var Written: Cardinal;...
Serjone
6
вы делали что-то подобное и как? может есть либы готовые? увидел картинку нокода, где всё линиями соединено и стало интересно попробовать то же в ddl на lua сделать. решил с ч...
Victor
8
Ребят в СИ можно реализовать ООП?
Николай
33
Подскажите пожалуйста, как в CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); получить наз...
A Z
7
Карта сайта