Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 additions and 0 deletions
--- a/Task/Concurrent-computing/Erlang/concurrent-computing-1.erl
+++ b/Task/Concurrent-computing/Erlang/concurrent-computing-1.erl
@ -0,0 +1,19 @@
+-module(hw).
+-export([start/0]).
+
+start() ->
+   [ spawn(fun() ->  say(self(), X) end) || X <- ['Enjoy', 'Rosetta', 'Code'] ],
+   wait(2),
+   ok.
+
+say(Pid,Str) ->
+   io:fwrite("~s~n",[Str]),
+   Pid ! done.
+
+wait(N) ->
+   receive
+       done -> case N of
+           0 -> 0;
+           _N -> wait(N-1)
+       end
+   end.
--- a/Task/Concurrent-computing/Erlang/concurrent-computing-2.erl
+++ b/Task/Concurrent-computing/Erlang/concurrent-computing-2.erl
@ -0,0 +1,2 @@
+|erlc hw.erl
+|erl -run hw start -run init stop -noshell