Scheme/Lisp UDP编程通讯

(require scheme/udp)
(define server (udp-open-socket "localhost" 8080))
(udp-bind! server "localhost" 8080)
(define s (make-bytes 10)) ;;make-bytes生成字节串，每个字节可以改动
(udp-receive! server s) ;;接受client发送的消息


(require scheme/udp)
(define client (udp-open-socket "localhost" 8081))
(udp-bind! client "localhost" 8081)
(define s (make-bytes 10))
(udp-send-to client "localhost" 8080 #"hello") ;;向server 8080端口发送消息
(udp-close client)