fib(N)->
P1 = spawn(fun concFib:conFib/0),
P2 = spawn(fun concFib:conFib/0),
X=rpc(P1,N-2),Y=rpc(P2,N-1),X+Y.
conFib()->
receive
{Client,N} -> Client ! regfib(N)
end.
rpc(Pid,Request)->
case erlang:is_process_alive(Pid) of
true -> begin
Pid ! {self(),Request},
receive
{Pid,Respond} -> Respond
end
end;
false -> io:format("~w process is dead.",[Pid])
end.
regfib(N)->
case N<2 of
true -> 1;
false -> regfib(N,1,1,1)
end.
regfib(N,N,X,_)-> X ;
regfib(N,M,X,Y)-> regfib(N,M+1,X+Y,X).
这个想法是将 fib(N) 过程分为两个过程,一个是计算 fib(N-2),另一个是计算。fib(N-1) 同时为 fib(N)=fib(N-1)+fib(N-2)。当我运行前面的代码时,什么也没有发生,光标停止在有限循环中或等待未到达的结果。
plzzz我需要帮助我是一个新的Erlang程序员,在此先感谢:)