Anonymous user
Sockets: Difference between revisions
Erlang version
({{omit from|PARI/GP}}) |
(Erlang version) |
||
Line 257:
socket.close() ;
}</lang>
=={{header|Erlang}}==
<lang erlang>-module(socket).
-export([start/0]).
start() ->
{ok, Listen} = gen_tcp:listen(256, []),
{ok, Socket} = gen_tcp:accept(Listen),
gen_tcp:close(Listen),
loop(Socket).
loop(Socket) ->
receive
{tcp, Socket, _} ->
gen_tcp:send(Socket, "hello socket world"),
loop(Socket);
{tcp_closed, Socket} ->
ok
end.
</lang>
=={{header|Factor}}==
| |||