PasteRack.org
Paste # 85908
2016-04-01 01:51:03

Fork as a new paste.

Paste viewed 182 times.


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