Looping.hs

Looping.hs

import System.CPUTime

calc n n0 = n0 + (1 - 2 * (n `rem` 2))

looping 0 n _  = n
looping c n n0 = let n1 = calc n n0
                 in n1 `seq` looping (c - 1) n1 n
main = do
  start <- getCPUTime
  print $ looping 2147483647 1 0
  end <- getCPUTime
  print $ (fromInteger $ end - start) / (10 ^ 12)