Scheme 计划中的时间测量

有没有办法实现这样的东西

while time left
  do something

在球拍中，时间变量设置为x秒/分钟/小时

我可以用一些常数来模拟时间

(define (loop time)
   (if (< time some-constant)
       ((do something)
       (loop (- time 1)))
       do-nothing))

（定义（循环时间）
（如果（<时间常数）
（（做点什么）
（循环（-time 1）））
无所事事

但我必须进行实验，看看什么常数能给我一个小时，等等。

试试下面的方法：

(define (loop term-time)
  (when (<= (current-seconds) term-time)
        (begin <do something>
               (loop term-time))))

如果您只想定期执行

，但不想以100%的CPU使用率执行，那么在

中，可以包含

（睡眠）

，以实现此目的。

查看

(loop (+ (current-seconds) (* 60 60))) -- do it for one hour