0. #lang racket
1. ;; coroutines implementation from https://hillside.net/plop/plop2001/accepted_submissions/PLoP2001/dferguson0/PLoP2001_dferguson0_1.pdf
2. (define (coroutine-maker proc)
3.   (define saved-continuation '())
4.   (define (update-continuation! v)
5.     (displayln "updating")
6.     (set! saved-continuation v))
7.   (define resumer (resume-maker update-continuation!))
8.   (define first-time #t)
9.   (define (f value)
10.     (cond
11.       [first-time
12.        (set! first-time #f)
13.        (proc resumer value)]
14.       [else (saved-continuation value)]))
15.   f)
16.  
17. (define ((resume-maker update-proc!) next-coroutine value)
18.   (define (receiver continuation)
19.     (update-proc! continuation)
20.     (next-coroutine value))
21.   (call-with-current-continuation receiver))
22.  
23. ;; tests
24.  
25. (define ping
26.   (coroutine-maker
27.    (lambda (resume value)
28.      (displayln "Pinging 1")
29.      (resume pong value)
30.      (displayln "Pinging 2")
31.      (resume pong value)
32.      (displayln "Pinging 3")
33.      (resume pong value))))
34.  
35. (define pong
36.   (coroutine-maker
37.    (lambda (resume value)
38.      (displayln "Ponging 1")
39.      (resume ping value)
40.      (displayln "Ponging 2")
41.      (resume ping value)
42.      (displayln "Ponging 3")
43.      (resume ping value))))
44.  
45. (ping 1)

=>

Pinging 1 updating Ponging 1 updating Pinging 2 updating Ponging 2 updating Pinging 3 updating Ponging 3 updating

1