如何构建在球拍lisp引擎中使用的程序？

作者: 不想吃东西
发布时间: 2024-08-18 05:32:35 (1月前)
转自：

2 条回复

0#
回复此人
不见你 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 我玩了一下。这是我做的： </p> <pre> <code> #lang racket (require racket/engine) (define (test-engine allow-interrupt) (let loop ((n 1)) (allow-interrupt #f) (displayln (list 'step n)) (allow-interrupt #t) (sleep 1) (loop (add1 n)))) (define tee (engine test-engine)) (engine-run 2000 tee) </code> </pre> <P> 我注意到它可能在中间突破 <code> displayln </code> 所以要做 <code> displayln </code> 原子我利用提供的程序，在原子操作期间延迟中断。没有它，它将在下一个打印出其余部分 <code> (engine-run 2000 tee) </code> 而不是在它返回之前完成它。 </p> </DIV>

编辑

登录后才能参与评论