summaryrefslogtreecommitdiff
path: root/testsuite/tests/arityanal/f9.hs
blob: e991cfd478ceb633d9e171d05e53288332ef0f44 (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