summaryrefslogtreecommitdiff
path: root/testsuite/tests/ghc-regress/arityanal/f11.hs
blob: f94d3adec0b519e7e2541b51f2aff90b5fe6ff38 (plain)
1
2
3
4
5
6
7
8
9
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)