Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- -module(what).
- -export([run/1, loop/1]).
- run(N) -> spawn_new(N).
- spawn_new(0) ->
- Pid = spawn_link(what, loop, [0]),
- Pid ! trigger;
- spawn_new(Num) when Num < 0 -> io:fwrite("Insert a positive number ~n");
- spawn_new(Num) ->
- io:fwrite("Spawning process number: ~f~n", [Num]),
- Pid = spawn_link(what, loop, [Num]),
- Pid ! trigger,
- spawn_new(Num - 1).
- loop(N) ->
- receive
- _ ->
- io:fwrite("Hi! I'm process number ~B~n", [N])
- loop(N)
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement