wip

1 files changed, 39 insertions, 0 deletions

diff --git a/learn-you-some-erlang/multiproc.erl b/learn-you-some-erlang/multiproc.erl
new file mode 100644
index 0000000..abddaf9
--- /dev/null
+++ b/learn-you-some-erlang/multiproc.erl
@@ -0,0 +1,39 @@
+-module(multiproc).
+-compile([export_all]).
+
+sleep(T) ->
+    receive
+    after T -> ok
+    end.
+
+flush() ->
+    receive
+        _ -> flush()
+    after 0 ->
+        ok
+    end.
+
+important() ->
+    receive
+        {Priority, Message} when Priority > 10 ->
+            [Message | important()]
+    after 0 ->
+        normal()
+    end.
+
+normal() ->
+    receive
+        {_, Message} ->
+            [Message | normal()]
+    after 0 ->
+        []
+    end.
+
+%% optimized in R14A
+optimized(Pid) ->
+    Ref = make_ref(),
+    Pid ! {self(), Ref, hello},
+    receive
+        {Pid, Ref, Msg} ->
+            io:format("~p~n", [Msg])
+    end.