erlang for循环

-module(simuagent).

-export([forloop/2]).

forloop(N,M) ->

if

N > M ->

io:format("simuagent:forloop(N,M), and 0 < N,M <= 1000 ~n"); %%% 循环执行1000次，每次1000个

N<0 orelse N>1000 orelse M<0 orelse M>1000 ->

io:format("simuagent:forloop(N,M), and 0 < N,M<= 1000 ~n"); %%% 循环执行1000次，每次1000个

true ->

for(N,M,startPushagent)

end

.

for(N,N,startPushagent) -> startPushagent(N);

for(N,M,startPushagent) ->

startPushagent(N),

timer:sleep(1000*90),

for(N+1,M,startPushagent)

.

startPushagent(N) ->

pushagent:start(N),

timer:sleep(1000*90),

pushagent:stop()

.

[@more@]

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/47869/viewspace-1059756/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/47869/viewspace-1059756/