summaryrefslogtreecommitdiff
path: root/testsuite/tests/arityanal/f9.hs
blob: 1d53d89174d8ac38b833157ea6cbf7129df29950 (plain)
1
2
3
4
module F9 where

f91 = let f = \n -> if n<=100 then f (f (n+11)) else n-10
      in f 10