Add a small benchmark code

firephil · Mar 15, 2021 · e38fef2 · e38fef2
1 parent c9862c1
commit e38fef2
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/app/Timer.hs b/app/Timer.hs
@@ -0,0 +1,9 @@
+import Data.Time.Clock(getCurrentTime,diffUTCTime)
+import Control.Exception
+module Timer where
+
+  exec  f ::[Int]-> [Int] = do
+        start <- getCurrentTime
+        evaluate (f)
+        end   <- getCurrentTime
+        print (diffUTCTime end start)