# HG changeset patch # User IBBoard # Date 1559416237 -3600 # Node ID 75dbcd30dee54c9c61bdb79cc6c6b02b2f9ec469 # Parent 7bab4843aec609a60e35c45d026c523b1303d868 Add final exercise code from Erlang It works, but it never made much sense because there was too much magic diff -r 7bab4843aec6 -r 75dbcd30dee5 5-Erlang/networked_client.erl --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/5-Erlang/networked_client.erl Sat Jun 01 20:10:37 2019 +0100 @@ -0,0 +1,8 @@ +-module(networked_client). +-export([translate/2]). + +translate(To, Word) -> + To ! { node(), Word }, + receive + Translation -> io:format("~s~n", [Translation]) + end. \ No newline at end of file diff -r 7bab4843aec6 -r 75dbcd30dee5 5-Erlang/networked_server.erl --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/5-Erlang/networked_server.erl Sat Jun 01 20:10:37 2019 +0100 @@ -0,0 +1,15 @@ +-module(networked_server). +-export([loop/0]). + +loop() -> + receive + { Pid, "casa" } -> + Pid ! "house", + loop(); + { Pid, "blanca" } -> + Pid ! "white", + loop(); + { Pid, _ } -> + Pid ! "*blank stare*", + loop() +end. \ No newline at end of file