8 lines
365 B
HTML
8 lines
365 B
HTML
|
<h2 id="κατα-morphism-missing-information-retrieved">κατα-morphism: missing information retrieved</h2>
|
||
|
<pre><code>type Algebra f a = f a -> a
|
||
|
instance Functor (StrF a) =
|
||
|
fmap f (Cons c x) = Cons c (f x)
|
||
|
fmap _ Nil = Nil</code></pre>
|
||
|
<pre><code>cata :: Functor f => Algebra f a -> Mu f -> a
|
||
|
cata f = f . fmap (cata f) . outF</code></pre>
|