ЗП
pad xs = rpadZipWith (,) xs (tail xs)
Size: a a a
2020 November 09
ЗП
Data.Align
ЗП
пакет semialign
ЗП
Я недавно спрашивал :)
^
AV
да задача вроде один в один как у тебя все таки
только без зипа
только без зипа
У меня не надо было фмапить а добавит Bool
ЗП
мне надо такое было
>> pad [1,2,3]
[(1,Just 2),(2,Just 3),(3,Nothing)]
AA
как это оптимизировать?
pan xs = zip xs (fmap Just (tail xs) ++ [Nothing])меня смущает
++ и лишний fmapвместо того, что в скобках foldr (\x s -> Just x : s) [Nothing] . tail например
AA
но это ж примерно то же самое
AV
то есть это все таки не одна задача? Просто конструкция выглядит очень неестественной, очень сложно придумать для чего это, больше подходит под какую-то синтетическую задачу, которую вы оба просто по-разному решаете
Ну упрощенно, мне нужно было в одном из случаев в последнем элементе списка ставить другой маркер
AA
ну я бы предпочел простую рекурсию конечно, чем функцию из какой-то либы для такого простого кейса
ну рекурсию прочесть сложнее и правильно написать сложнее чем
pan xs = zip xs (fmap Just (tail xs) ++ [Nothing])
2020 November 10
ЗП
@A64m_qb0 применяя
я получаю
но мне надо
someFn xs = zip (inits xs) (tails xs)
я получаю
>> someFn [1,2,3]
[([],[1,2,3]),([1],[2,3]),([1,2],[3]),([1,2,3],[])]
но мне надо
[([],[1,2,3]),([1],[2,3]),([1,2],[3])]
к
@A64m_qb0 применяя
я получаю
но мне надо
someFn xs = zip (inits xs) (tails xs)
я получаю
>> someFn [1,2,3]
[([],[1,2,3]),([1],[2,3]),([1,2],[3]),([1,2,3],[])]
но мне надо
[([],[1,2,3]),([1],[2,3]),([1,2],[3])]
добавить init?
ЗП
добавить init?
это то да, но я хочу без init
ЗП
ибо у меня там zipWith