summaryrefslogtreecommitdiff
path: root/testsuite/tests/stranal/should_run/strun004.hs
blob: ff58f72ce5cfa9a77ca6d62bcfa9d9f6bd915af9 (plain)
1
2
3
4
5
6
7
8
9
10
module Main where

f 0 = 0
f x = x + g (x-1)

g 0 = 0
g x = x - f (x-1)

main = print (f 300)