fay-0.2.0.0: examples/tailrecursive.hs

-- | A demo to show that a tail-recursive function will not increase
-- the JavaScript stack.
--
-- See the ticket about optimizing tail-recursive functions for future
-- work <https://github.com/chrisdone/fay/issues/19>

{-# LANGUAGE NoImplicitPrelude #-}

module Tailrecursive where

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

main = do
  benchmark
  benchmark
  benchmark
  benchmark

benchmark = do
  start <- getSeconds
  printD (sum 1000000 0 :: Double)
  end <- getSeconds
  printS (show (end-start) ++ "ms")

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

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

printD :: Double -> Fay ()
printD = foreignFay "console.log" FayNone

printS :: String -> Fay ()
printS = foreignFay "console.log" FayNone