12 lines
266 B
Text
12 lines
266 B
Text
|
import Histo
|
||
|
|
|
||
|
|
data Fib3 = Histo . Memoize
|
||
|
|
<
|
||
|
|
const One,
|
||
|
|
(p1 =>
|
||
|
|
<
|
||
|
|
const One,
|
||
|
|
(p2 => Add (outl $p1) (outl $p2)). UnmakeCofree
|
||
|
|
> (outr $p1)) . UnmakeCofree
|
||
|
|
>
|