diff options
Diffstat (limited to 'testsuite/tests/arityanal/f11.hs')
| -rw-r--r-- | testsuite/tests/arityanal/f11.hs | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/testsuite/tests/arityanal/f11.hs b/testsuite/tests/arityanal/f11.hs new file mode 100644 index 0000000000..f94d3adec0 --- /dev/null +++ b/testsuite/tests/arityanal/f11.hs @@ -0,0 +1,10 @@ +module F11 where
+
+fib 0 = 1
+fib 1 = 1
+fib n = fib (n-1) + fib (n-2)
+
+f11f = \z -> let x = fib 1000
+ in \y -> x+y
+
+f11 = (f11f 5 6, f11f 7 8)
|