Scheme 中是否有与 Lisp 的“运行时”原语等价的东西？答案

【问题标题】：Is there an equivalent to Lisp's "runtime" primitive in Scheme?Scheme 中是否有与 Lisp 的“运行时”原语等价的东西？
【发布时间】：2011-01-12 19:10:43
【问题描述】：

根据SICP section 1.2.6，练习1.22：

大多数 Lisp 实现都包含一个称为 runtime 的原语，它返回一个整数，该整数指定系统运行的时间量（例如，以微秒为单位）。

我正在使用DrScheme，运行时似乎不可用，所以我正在寻找一个好的替代品。我在 PLT-Scheme Reference 中发现有一个 current-milliseconds 原语。有谁知道Scheme中是否有分辨率更好的计时器？

【问题讨论】：

我刚刚遇到了这个问题 :)
有趣的是，我正在使用 Bill the Lizard 的博客来检查我的答案，因为我正在经历 SICP 4 年后。蜥蜴先生，当你问这个问题时，你看到这个了吗？
这里有一个在racket 中工作的替代timed-prime-test 的要点：gist.github.com/Isaac-Kleinman/1b623bc2463b241b4383

【解决方案1】：

current-milliseconds 是一个从系统返回当前毫秒计数的函数，但它可能会减少。 current-inexact-milliseconds 类似，但返回一个保证增加的浮点数。

您还可以在该页面上找到许多类似的功能，但是如果您只需要对某个功能进行计时，则只需使用 (time expr) 即可打印出计算表达式所花费的时间。

与此相关的另一件事是profiler，以防您需要对代码进行更详细的分析。

【讨论】：

错了。首先，SICP 和PLT 之间没有直接关系。其次，毫秒计数器来自操作系统，并且由于中断处理程序是在几毫秒级别处理的，因此更精细的计数器没有意义。粒度通常在~20ms，甚至不是1ms。如果你有某种语言，例如，纳秒计数器，你不会得到更好的结果。第三，在毫秒级别测量运行时间是一个坏主意，您需要重复评估足够多次才能获得可观的计数，否则运行时间将在噪音中丢失。
它是current-milliseconds，而不是current-millisecond。我尝试编辑答案，但在编辑中至少需要 6 个字符。

【解决方案2】：

我今天也遇到了这个问题。我正在使用 DrRacket，因为它似乎已经取代了 DrScheme。虽然这是一个旧线程，但我将为偶然发现此线程的任何新人添加我的发现。

以 R5RS (#lang r5rs) 为选定语言，在程序前添加以下两行使其工作

(#%require (only racket/base current-milliseconds))
(define (runtime) (current-milliseconds))

【讨论】：

【解决方案3】：

我正在使用 mit-scheme 进行 SICP，发现毫秒是由 (real-time-clock) 根据 user manual 给出的。

【讨论】：

【解决方案4】：

你可以使用包sicp那个contains定义runtime。

Here is 包说明。

还有here is的安装说明：

现在您可以从 SICP 拨打runtime 和其他程序：

#lang sicp
(runtime)

预期的输出是这样的：

1606611898030115
>

【讨论】：