Skip to content

Instantly share code, notes, and snippets.

@prednaz

prednaz/Measure.hs

Last active October 24, 2021 16:04
Show Gist options
  • Save prednaz/e47409ce92498aacbc1be8ee1deb9bcb to your computer and use it in GitHub Desktop.
Save prednaz/e47409ce92498aacbc1be8ee1deb9bcb to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Measure.hs
import System.CPUTime (getCPUTime)
main :: IO ()
main =
do
timeStart <- getCPUTime
print expensiveComputation
timeEnd <- getCPUTime
print $ (fromInteger $ timeEnd - timeStart) / (fromInteger $ 10 ^ 12)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment