mirror
/
RosettaCodeData
mirror of https://github.com/acmeism/RosettaCodeData.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
RosettaCodeData/Task/Fibonacci-sequence/Purity/fibonacci-sequence-1.purity

6 lines
170 B
Plaintext
Raw Permalink Blame History

data Fib1 = FoldNat
<
const (Cons One (Cons One Empty)),
(uncurry Cons) . ((uncurry Add) . (Head, Head . Tail), id)
>
Reference in New Issue View Git Blame Copy Permalink