第二题:
-module(for).
-export([for/3,empty_proc/0,post_msg/1]).
for(N,N,F)->[F()];
for(I,N,F)->[F() | for(I+1,N,F)].
empty_fun()->
receive
_Any->
io:format("~w is exit",[self()])
end.
post_msg([]) -> void;
post_msg([Head | Tail])-> Head ! "Other",
post_msg(Tail).
在shell里面输入
CreateProc=fun()->spawn(fun for:empty_proc/0) end. %创建进程的函数
PidList=for:for(1,10,CreateProc). %创建10个进程
for:post_msg(PidList). 发送消息给进程
这几天写erlang的感觉已经来了^-^