Я играю с последовательностями, упорядоченными по типу, и, в частности, я возился с идеей складывания их. Складная последовательность, выровненная по типу, выглядит примерно так:
class FoldableTA fm where
foldMapTA :: Category h =>
(forall b c . a b c -> h b c) ->
fm a b d -> h b d
foldrTA :: (forall b c d . a c d -> h b c -> h b d) ->
h p q -> fm a q r -> h p r
foldlTA :: ...
Довольно легко реализовать foldrTA
в терминах foldMapTA
, сначала используя foldMapTA
, чтобы преобразовать последовательность в список с выравниванием по наивному способу (т.е. используя категорию списка, выровненную по типу), а затем свернув этот список. К сожалению, это может быть весьма неэффективным, поскольку длинные списки могут быть добавлены к коротким. Я пытался найти способ использовать трюк, подобный тому, который используется в Data.Foldable
, чтобы определить правильную и левую складки более эффективно, но типы заставляют меня головокружение. Endo
не кажется достаточно общим, чтобы сделать трюк, и каждый шаг, который я делаю в других направлениях, приводит меня к большему количеству переменных типа, которые я могу отслеживать.