к
Size: a a a
к
к
OP
ЗП
instance Recursive [a] where
project (x:xs) = Cons x xs
project [] = Nil
para f (x:xs) = f (Cons x (xs, para f xs))
para f [] = f Nil
instance Corecursive [a] where
embed (Cons x xs) = x:xs
embed Nil = []
apo f a = case f a of
Cons x (Left xs) -> x : xs
Cons x (Right b) -> x : apo f b
Nil -> []
refix
но она редко нужна)ЗП
ListF
есть базовым функтором для неподвижной точки []
type instance Base [a] = ListF a
AG
Oℕ
Oℕ
Oℕ
Oℕ
Oℕ
Oℕ
М
AG
AG
Oℕ
Oℕ
Oℕ
к