Haskell 程序计算方法执行时间

在 Haskell 中，我们可以使用 getCurrentTime 和 NominalDiffTime 函数来计算方法的执行时间。在第一个示例中，我们将使用 (startTime <- getCurrentTime 和 endTime <- getCurrentTime) 函数。在第二个示例中，我们将使用 NominalDiffTime 函数。

  • 步骤 1 - 导入 Data.Time 模块以处理时间。

  • 步骤 2 - 定义 timeFunction 函数，如下所示：

  • 例如 1 -

timeFunction function = do
   startTime <- getCurrentTime
   function
   endTime <- getCurrentTime.

  • 例如 2 & 3 -

timeMethod method = do
   startTime <- getCurrentTime
   result <- method
   endTime <- getCurrentTime.

  • 步骤 3 - 程序执行将从 main 函数开始。main() 函数控制整个程序。它写成 main = do。它调用 timeFunction 和 someFunction 函数。

  • 步骤 4 - 初始化名为“diff”的变量。它将保存开始时间和结束时间之间的差值。

  • 步骤 5 - 调用函数后，将结果执行时间打印到控制台。

示例 1

在此示例中，timeFunction 函数将 IO 操作作为输入，并计算执行该操作所需的时间。它通过在执行操作之前和之后获取当前时间，然后计算时间差来实现此目的。然后，使用 putStrLn 函数将时间差打印到控制台。在本例中，someFunction 是我们正在计算执行时间的方法。

import Data.Time

someFunction :: IO ()
someFunction = do
   putStrLn "Function completed"

timeFunction :: IO () -> IO ()
timeFunction function = do
   startTime <- getCurrentTime
   function
   endTime <- getCurrentTime
   let diff = diffUTCTime endTime startTime
   putStrLn $ "Execution Time: " ++ (show diff)

main :: IO ()
main = do
   timeFunction someFunction

输出

Function completed
Execution Time: 0.00012295s

示例 2

在此示例中，我们将了解如何计算方法的执行时间。这可以通过使用 NominalDiffTime 函数来完成。

import Data.Time.Clock

timeMethod :: IO a -> IO (a, NominalDiffTime)
timeMethod method = do
   startTime <- getCurrentTime
   result <- method
   endTime <- getCurrentTime
   let diffTime = diffUTCTime endTime startTime
   return (result, diffTime)

main :: IO ()
main = do
   (result, diffTime) <- timeMethod (putStrLn "Hello, world!")
   putStrLn ("Execution time: " ++ show diffTime)

输出

Hello, world!
Execution time: 0.000132438s

示例 3

在此示例中，该函数使用 Data.Time 模块在执行给定操作之前和之后获取当前时间，然后计算两个时间之间的差值以获取执行时间。该函数返回一个元组，其中包含给定操作的结果和执行时间。

import Data.Time

time :: IO a -> IO (a, NominalDiffTime)
time action = do
   start <- getCurrentTime
   result <- action
   end <- getCurrentTime
   let diff = diffUTCTime end start
   return (result, diff)

main :: IO ()
main = do
   (result, timeTaken) <- time (return "Hello World")
   putStrLn $ "Result: " ++ result
   putStrLn $ "Time taken: " ++ (show timeTaken)

输出

Result: Hello World
Time taken: 0.000000161s

结论

可以通过多种方式测量方法的执行时间，包括使用编程语言中的内置计时器函数、使用专门的性能测量工具或使用用户定义的函数。在 Haskell 中，可以通过使用 getCurrentTime 和 NominalDiffTime 函数来计算方法的执行时间。

更新于: 2023年3月27日

710 次浏览

开启您的 职业生涯

通过完成课程获得认证

开始学习
广告