PLT 方案中的时间码

Question

我想看看函数运行需要多长时间。在 PLT-Scheme 中最简单的方法是什么？理想情况下，我希望能够做这样的事情:

> (define (loopy times)
  (if (zero? times)
      0
      (loopy (sub1 times)))) 
> (loopy 5000000)
0                      ;(after about a second)
> (timed (loopy 5000000))
Took: 0.93 seconds
0
> 

如果我必须使用一些其他语法，如 (timed loopy 5000000) 或 (timed '(loopy 5000000))，或者如果它返回在 cons 或其他方面花费的时间。

Answer 1

在大多数 Scheme 实现中，用于计时表达式执行的标准名称是“时间”。这是 DrRacket 中的示例。

(define (loopy times) (if (zero? times) 0 (loopy (sub1 times))))

(time (loopy 5000000)) cpu time: 1526 real time: 1657 gc time: 0 0

如果您花时间对不同的实现进行基准测试，请记住从命令行使用 Racket 而不是直接进行基准测试在 DrRacket 中(DrRacket 插入调试代码以提供更好的错误消息)。