26 lines
633 B
Racket
26 lines
633 B
Racket
#lang syndicate/core
|
|
|
|
(struct echo-req (body) #:prefab)
|
|
(struct echo-resp (body) #:prefab)
|
|
|
|
(actor (lambda (e count)
|
|
(match e
|
|
[(message (echo-req body))
|
|
(transition (+ count 1)
|
|
(message (echo-resp body)))]
|
|
[_ #f]))
|
|
0
|
|
(sub (echo-req ?)))
|
|
|
|
(actor (lambda (e s)
|
|
(match e
|
|
[(message (echo-resp body))
|
|
(printf "Received: ~v\n" body)
|
|
#f]
|
|
[_ #f]))
|
|
(void)
|
|
(list (sub (echo-resp ?))
|
|
(message (echo-req 0))
|
|
(message (echo-req 1))
|
|
(message (echo-req 2))))
|