langs a-z

2013-04-10 22:43:41 -07:00 · 2013-04-10 22:43:41 -07:00 · d066446780
commit d066446780
parent db842d013d
11389 changed files with 98361 additions and 1020 deletions
--- a/Task/Fibonacci-sequence/Purity/fibonacci-sequence-1.purity
+++ b/Task/Fibonacci-sequence/Purity/fibonacci-sequence-1.purity
@ -0,0 +1,5 @@
+data Fib1 = FoldNat
+            <
+              const (Cons One (Cons One Empty)),
+              (uncurry Cons) . ((uncurry Add) . (Head, Head . Tail), id)
+            >