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

ну и жесть

здрасьте не подскажите, как реализовать в хаскиле функцию, которая берет лист, число 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

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

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

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

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

все уже украдено (сделано) до нас 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)

вот это есть где-нибудь в 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

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

Control.Monad? Data.Maybe?

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

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

жуткие цвета какие

отличные цвета. у тебя монитор плохой, наверно

это эйблизм

Кстати, onNothing m act = foldl (const id) act m, если это поможет.

#08c, действительно, к бирюзовому ближе

У меня работает: λ> let onNothing m act = foldl (const id) act m λ> onNothing (Just (print 5)) (print 10) 5 λ> onNothing Nothing (print 10) 10

У меня работает: λ> let onNothing m act = foldl (const id) act m λ> onNothing (Just (print 5)) (print 10) 5 λ> onNothing Nothing (print 10) 10

с чего это?

У меня работает: λ> let onNothing m act = foldl (const id) act m λ> onNothing (Just (print 5)) (print 10) 5 λ> onNothing Nothing (print 10) 10

бирюзовый vs стекеджовый

тон ближе к C, чем к B