Nici do biegania rakietowego przez ustalony czas

Question

Chciałbym wygłaszać spekulacje w spekulacjach, mając nadzieję na (choć nieoczekiwany) wynik. Mój kod ma twardy limit czasowy. Czy istnieje prosty sposób na uruchomienie kodu rakietowego przez kilka sekund, a następnie niezawodne zabicie go i wykonanie kodu awaryjnego przed upływem terminu?

Answer 1

Tak, prostym sposobem na to jest korzystanie z biblioteki engine. Na przykład:

#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) 

Zamiast określania czasu, można również określić przedmiot event tak, że wątek przestanie działać, gdy zdarzenie wyzwala.

Answer 2

Możesz stworzyć wątek "pracowniczy" do wykonania pracy i kolejny wątek "watcher", aby zabić pracownika.

Opisano to w sekcji Dokumenty w sekcji More: Systems Programming.

Najprostszym, pierwsze cięcie może być wystarczające dla obliczenia:

(define (accept-and-handle listener) 
    (define-values (in out) (tcp-accept listener)) 
    (define t (thread 
       (lambda() 
       (handle in out) 
       (close-input-port in) 
       (close-output-port out)))) 
    ; Watcher thread: 
    (thread (lambda() 
      (sleep 10) 
      (kill-thread t)))) 

Jednak jeśli masz do czynienia z innymi zasobami czytaj dalej, aby dowiedzieć się o opiekunów.