PasteRack.org | ||
Paste # 85908 | ||
2016-04-01 01:51:03 | ||
Fork as a new paste. | ||
Paste viewed 182 times. | ||
Tweet | ||
Embed: | ||
#lang racket #lang racket (require racket/udp) ;; Client part (let ((sock (udp-open-socket)) (sendbytes (string->bytes/utf-8 "test"))) (udp-send-to sock "127.0.0.1" 5050 sendbytes) ) ;; Server part (let ((sock (udp-open-socket)) (bufstr (bytes))) (udp-bind! sock #f 5050) (udp-receive! sock bufstr) (write-bytes bufstr))