purescript-0.6.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])