You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
#lang racket
|
|
(require racket/tcp)
|
|
|
|
(define (send port msg)
|
|
(let-values ([(_in out) (tcp-connect "localhost" port)])
|
|
(displayln msg out)
|
|
(tcp-abandon-port _in)
|
|
(tcp-abandon-port out)))
|
|
|
|
(send 47474 (string-join (vector->list (current-command-line-arguments)))) |