вот, что с закрытием не знаю

я бы сишный пруф оф концепт сделал

А нету какого-то caching layer над persitent ?

персистент же вроде простой "ORM", всё в сикель просто транслируется

там и на сях все неочевидно

ну вот про event manager где посмотреть?

почти все сишные вызовы с eagain выходят

man говорит, что с splice не повезло

GHC.Event

там registerFD

это интерфейс к еполу

ну или что в вашей ос

на https://ogris.de/howtos/splice.html пишут "In this case, your program either receives a SIGPIPE or, if you have blocked SIGPIPE, splice() will return -1 with errno set to EPIPE. If you want to reuse the pipe, you have to empty it by splicing to /dev/null"

ну если splice в non blocking mode запусить, то EAGAIN будет

вот1 я так и говорил

но тогда надо с EventManager парится

вот на питоне proof of concept

https://gist.github.com/NicolasT/4519146

от автора RaFT для Haskell :)

что интересно interruplible помог...

надо как recv попробовать unsafe

что интересно interruplible помог...

но нет

unsafe не надо

здрасьте не подскажите, как реализовать в хаскиле функцию, которая берет лист, число n и возвращает лист листов по n элементов? group::[a]->Int->[[a]] group [1,4,8,8] 2=[[1,4],[8,8]]

Пригодятся функции drop и take. Ну и рекурсия)

unsafe не надо

why? recv именно так сделан

f xs n = take n xs : f (drop n xs) n

Плюс условие выхода из рекурсии: f [] n =[]

Эй, вы решение-то готовое не давайте! Дайте время подумать :)

да я забыл про них... спасибо

товарищ же просил не подсказывать > не подскажите...

Теперь придётся выдумывать ещё одно без рекурсии

why? recv именно так сделан

если не блокирующий, то можно

а есть еще какой-то генератор форматированного текста, но не пандок?

пандок убогий и не очень настраивается

тебе html to txt?

ADT -> AST -> [txt, rst,markdown, etc...]

ну, примерно как pandoc, только нормальный. что бы можно было настроить ширину страницы, например

а то у него по умолчанию даже меньше 80 символов и непонятно, можно ли настроить

Пандок настраивается дописыванием форматтеров. Дизайн такой

а ты примеры где-нибудь видел?

ну и как-то тупо его дописывать, если всё, что тебе нужно - это ширину строки поменять

mmark был

mmark, это md->html и всё

ну и как-то тупо его дописывать, если всё, что тебе нужно - это ширину строки поменять

Для этого есть возможность скриптования writer'ов на lua: https://pandoc.org/lua-filters.html Да, Lua, но и скрипт то должен получиться небольшой :)

Причём фильтрами у pandoc могут выступать просто программы, работаючеме через pipe

ну представляешь через пайп теблицу переформатировать?

Есть JSON-filters

AST-in-JSON -> AST-in-JSON

вот это более интересно. ок, посмотрю. а это есть вообще в документации?

там она какая-то была куцая

https://pandoc.org/filters.html#json-filters

Для Pandoc JSON AST есть инстансы хаскельные

здрасьте не подскажите, как реализовать в хаскиле функцию, которая берет лист, число n и возвращает лист листов по n элементов? group::[a]->Int->[[a]] group [1,4,8,8] 2=[[1,4],[8,8]]

import Data.List import Data.Function grp n = map (map snd) . groupBy ((==) `on` (`div` n) . fst) . zip [0..] main = print $ grp 3 [1..6]

Теперь придётся выдумывать ещё одно без рекурсии

this

chunks n = unfoldr $ (\case ([], []) -> Nothing; r -> Just r) . splitAt n

import Data.List import Data.Function grp n = map (map snd) . groupBy ((==) `on` (`div` n) . fst) . zip [0..] main = print $ grp 3 [1..6]

ну и жесть

ну и жесть

все уже украдено (сделано) до нас https://www.stackage.org/haddock/lts-12.6/split-0.2.3.3/Data-List-Split.html#v:chunksOf

здрасьте не подскажите, как реализовать в хаскиле функцию, которая берет лист, число n и возвращает лист листов по n элементов? group::[a]->Int->[[a]] group [1,4,8,8] 2=[[1,4],[8,8]]

group :: [Int] -> Int -> [[Int]] group ints groupSize = group' ints [] 0 [] where group' [] currentGroup _ groups | null currentGroup = groups | otherwise = (currentGroup:groups) group' (x:xs) currentGroup currentGroupSize groups | currentGroupSize == groupSize = group' xs [x] 1 (currentGroup:groups) | otherwise = group' xs (x:currentGroup) (currentGroupSize + 1) groups

И что, теперь каждый напишет свой вариант?

group :: [Int] -> Int -> [[Int]] group ints groupSize = group' ints [] 0 [] where group' [] currentGroup _ groups | null currentGroup = groups | otherwise = (currentGroup:groups) group' (x:xs) currentGroup currentGroupSize groups | currentGroupSize == groupSize = group' xs [x] 1 (currentGroup:groups) | otherwise = group' xs (x:currentGroup) (currentGroupSize + 1) groups

выглядит как результат работы какого-то кодогенератора/транслятора

выглядит как результат работы какого-то кодогенератора/транслятора

Да, достаточно тупо ?

кстати, как цепочки композиций/долларов лучше записывать? В линию или как в расте?

grp n = map (map snd) . groupBy ((==) `on` (`div` n) . fst) . zip [0..] grp n = map (map snd) . groupBy ((==) `on` (`div` n) . fst) . zip [0..]

Нет единого мнения

тогда уж chunk n = map (map snd) . groupBy ((<) `on` fst) . zip (concat $ repeat [1..n])

тогда уж chunk n = map (map snd) . groupBy ((<) `on` fst) . zip (concat $ repeat [1..n])

chunk n = map (map snd) . groupBy ((<) `on` fst) . zip (cycle [1..n])

ERROR: S client not available

да, это лучше, чем с div возиться

Ребят, не останавливаемся! Продолжаем предлагать варианты!

а что?

здрасьте не подскажите, как реализовать в хаскиле функцию, которая берет лист, число n и возвращает лист листов по n элементов? group::[a]->Int->[[a]] group [1,4,8,8] 2=[[1,4],[8,8]]

пакет split взять

и не выпендриваться

и не выпендриваться

но мы же в хаскеле

пакет split тоже в хаскеле

все уже украдено (сделано) до нас https://www.stackage.org/haddock/lts-12.6/split-0.2.3.3/Data-List-Split.html#v:chunksOf

^

ещё в линзах наверняка есть

map snd . groupBy fst . zip (replicate n True++replicate n False)

== on fst

и cycle $ перед репликейтом

Оно не то будет выделять

Ааа

От оно как

тем временем, ушедший на хагс хлопнув дверью клайден, вернулся в пропозалы притопить против линз

map snd . groupBy fst . zip (replicate n True++replicate n False)

map (map snd) . в начале

да

мне лень полный вариант копировать было

вот это есть где-нибудь в base? onNothing :: Monad m => m (Maybe b) -> m b -> m b onNothing m act = maybe act pure =<< m а то в каждом проекте всплывает и приходится кривится и придумывать имя для модуля куда это сунуть

В каком-нить Foundation есть, а в base не помню такого

вот это есть где-нибудь в base? onNothing :: Monad m => m (Maybe b) -> m b -> m b onNothing m act = maybe act pure =<< m а то в каждом проекте всплывает и приходится кривится и придумывать имя для модуля куда это сунуть

есть обобщенные идеи https://hackage.haskell.org/package/compactable-0.1.2.2/docs/Control-Compactable.html

http://hackage.haskell.org/package/supervisor-0.1.1.0/docs/Control-Monad-Supervisor-Session.html#v:onNothing

есть обобщенные идеи https://hackage.haskell.org/package/compactable-0.1.2.2/docs/Control-Compactable.html

от вас другого и не ожидал

<имя модуля в котором это должно быть>.Ext

ну и еще https://hackage.haskell.org/package/witherable-0.2/docs/Data-Witherable.html

<имя модуля в котором это должно быть>.Ext

Control.Monad? Data.Maybe?

ну вот что первое пришло в голову - так и называть

Control.Monad? Data.Maybe?

ну тогде Митчеловский extra https://www.stackage.org/haddock/lts-12.6/extra-1.6.9/Control-Monad-Extra.html

какой же стэкедж нечитаемый

а чего на стэкедже не пишут зависимости?

И что, теперь каждый напишет свой вариант?

а я не напишу