fay-0.2.0.0: tests/27.hs

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

{-# LANGUAGE NoImplicitPrelude #-}

module Fib 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)

getSeconds :: Fay Double
getSeconds = foreignFay "new Date" FayNone

print :: Foreign a => a -> Fay ()
print = foreignFay "console.log" FayNone