main haskell

module Main where

import Fib
import Powers
import Data.Time ( diffUTCTime, getCurrentTime )

fibsN :: Int
fibsN = 40

powersN :: Int
powersN = 100

main :: IO ()
main = do {
    putStrLn ("Fibs solutions for n=" ++ show fibsN)
    ; print (byZipWithFibs fibsN)

    ; putStr "Simple recursion answer: "
    ; begT_1 <- getCurrentTime
    ; print (sum (filter even (simpleRecursionFibs fibsN)))
    ; endT_1 <- getCurrentTime
    ; putStrLn ("Time: " ++ show (diffUTCTime endT_1 begT_1))

    ; putStr "Tail recursion answer: "
    ; begT_2 <- getCurrentTime
    ; print (sum (filter even (tailRecursionFibs fibsN)))
    ; endT_2 <- getCurrentTime
    ; putStrLn ("Time: " ++ show (diffUTCTime endT_2 begT_2))

    ; putStr "ZipWith solution answer: "
    ; begT_3 <- getCurrentTime
    ; print (sum (filter even (byZipWithFibs fibsN)))
    ; endT_3 <- getCurrentTime
    ; putStrLn ("Time: " ++ show (diffUTCTime endT_3 begT_3))

    ; putStr "Simple iterate answer: "
    ; begT_4 <- getCurrentTime
    ; print (sum (filter even (simpleIterateFibs fibsN)))
    ; endT_4 <- getCurrentTime
    ; putStrLn ("Time: " ++ show (diffUTCTime endT_4 begT_4))

    ; print [diffUTCTime endT_1 begT_1, diffUTCTime endT_2 begT_2, diffUTCTime endT_3 begT_3, diffUTCTime endT_4 begT_4]

    ; putStrLn ("Powers solutions for n=" ++ show powersN)
    ; putStr "Simple powers solution answer: "
    ; begT_5 <- getCurrentTime
    ; putStrLn (show (powersSimpleSolution powersN))
    ; endT_5 <- getCurrentTime
    ; putStrLn ("Time: " ++ show (diffUTCTime endT_5 begT_5))

}