purescript-0.5.4.1: examples/passing/TailCall.purs

module Main where

import Prelude

test :: Number -> [Number] -> Number
test n [] = n
test n (x:xs) = test (n + x) xs

loop :: forall a. Number -> a
loop x = loop (x + 1)

notATailCall = \x -> 
  (\notATailCall -> notATailCall x) (\x -> x)
    
main = Debug.Trace.print (test 0 [1, 2, 3])