timeout - Racket 运行线程固定时间

Question

我想推测性地在 Racket 中运行一个表达式，希望得到(但不是特别期望)结果。我的代码有严格的时间限制。有没有一种简单的方法可以运行一些 Racket 代码几秒钟，然后可靠地终止它并在截止日期到来之前执行回退代码？

Answer 1

是的，一个简单的方法是使用 engine图书馆。例如:

#lang racket

(require racket/engine)

(define e (engine
           (λ (_)
             ;; just keep printing every second
             (let loop ()
               (displayln "hi")
               (sleep 1)
               (loop)))))

;; run only for 2 seconds
(engine-run 2000 e)

您还可以指定event，而不是指定时间。对象，以便当事件触发时线程停止运行。