fay-0.10.0.0: tests/tailRecursion.hs

-- | This is to test tail-recursive calls are iterative.



module Tail where

import           Language.Fay.FFI
import           Language.Fay.Prelude

main = do
  print (sum 100000 0 :: Double)

sum 0 acc = acc
sum n acc = sum (n - 1) (acc + n)

print :: Double -> Fay ()
print = ffi "console.log(%1)"