git.iko.soy/rowtype-yoga/purescript-native
on e82e607 help sign in
rowtype-yoga/purescript-native/examples/passing/TailCall.purs
15 lines 289 B history raw
1module Main where
3import Prelude
5test :: Number -> [Number] -> Number
6test n [] = n
7test n (x:xs) = test (n + x) xs
9loop :: forall a. Number -> a
10loop x = loop (x + 1)
12notATailCall = \x ->
13 (\notATailCall -> notATailCall x) (\x -> x)
15main = Debug.Trace.print (test 0 [1, 2, 3])