測定時間

Question

は時間がラケットのx秒/分/時間にいくつかの変数セットがあるこの

while time left 
    do something 

のようなものを実装する方法はありますか？

次のことを試してみてください

Answer 1

など、私は

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

のように時間をシミュレートするために、いくつかの定数を使用することができますが、私は定数が私に一時間を与えるだろうかを見るために実験しなければならない

：

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

次に、あなたは

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

でこれを呼び出すことができます

定期的に<do something>にしたいが、CPU使用率を100％にしたくない場合は、<do something>に(sleep <secs>)を含めることができます。