Jump to content

Echo server: Difference between revisions

→‎{{header|Racket}}: Fix this to match the Racket webpage example again: there's no need to have a function
m (→‎{{header|Perl 6}}: send now print)
(→‎{{header|Racket}}: Fix this to match the Racket webpage example again: there's no need to have a function)
Line 1,514:
#lang racket
(define listener (tcp-listen 12321))
(definelet (mkecho-server ()
(define-values [I O] (tcp-accept listener))
(let echo-server ()
(thread ( (define-values) (incopy-port I outO) (tcpclose-acceptoutput-port listenerO)))
(let echo-server ())
(thread (λ () (copy-port in out)
</lang>
(close-output-port out)))
(echo-server)))
 
(mk-server)</lang>
 
=={{header|REALbasic}}==
Cookies help us deliver our services. By using our services, you agree to our use of cookies.