我的第一个erlang程序
2011-10-11 10:46
183 查看
-module(test81).阅读更多
-export([start/1]).
start({N,M,Mess})->
statistics(runtime),
statistics(wall_clock),
L=for(1,N,fun()->spawn(fun()->recv() end) end),
for(1,M,fun()->lists:foreach(fun(Pid)->Pid!Mess end,L) end),
{_,Time1}=statistics(runtime),
{_,Time2}=statistics(wall_clock),
U1=Time1*1000,
U2=Time2*1000,
io:format("~w process ~w times message cost time is:~p(~p)microseconds~n",[N,M,U1,U2]).
recv()->
receive
%Mess->io:format("Pid ~p recv message ~p.~n",[self(),Mess]),
Mess->void,
recv()
end.
for(N,N,F)->[F()];
for(I,N,F)->[F()|for(I+1,N,F)].
相关文章推荐
- 第一个erlang程序
- 我的第一个erlang程序
- 转载:第一个Erlang 小程序
- Erlang:第一个Erlang程序,模块,函数
- Erlang的第一个程序
- 第一个 Erlang 程序: Ftp 下载客户端收藏
- 第一个 Erlang 程序: Ftp 下载客户端
- 第一个 Erlang 程序: Ftp 下载客户端
- 运行第一个spark程序
- Ch01:第一个JSF程序
- struts2 第一个程序
- 安装Intellij,编译第一个android程序出错
- 使用main函数的参数,实现一个整数计算器,程序可以接受三个参数,第一个参数“-a”选项执行加法,“-s”选项执行减法,“-m”选项执行乘法,“-d”选项执行除法,后面两个参数为操作数。
- Linux下统计你的Erlang程序的行数(SLOC)
- 大三学长带我学习JAVA。作业1. 第1讲.Java.SE入门、JDK的下载与安装、第一个Java程序、Java程序的编译与执行 大三学长带我学习JAVA。作业1.
- windows下caffe运行我的第一个程序
- [OpenGL]第一个OpenGL程序
- 第一个QT程序,Hello World
- 关于Xwork的配置对象和XWork第一个程序
- C++编程的第一个程序