erlang程序设计8.11的习题

第二题:

-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的感觉已经来了^-^