RosettaCodeData/Task/Echo-server/Mathematica/echo-server.math

7 lines
191 B
Plaintext

server = SocketOpen[12321];
SocketListen[server, Function[{assoc},
With[{client = assoc["SourceSocket"], input = assoc["Data"]},
WriteString[client, ByteArrayToString[input]];
]
]]