《Erlang程序设计》第八章习题

最新推荐文章于 2021-08-20 21:25:32 发布

爆肝的luda

最新推荐文章于 2021-08-20 21:25:32 发布

阅读量154

点赞数

本文链接：https://blog.csdn.net/wlkdarling/article/details/116780454

版权

8.11.1.编写一个函数start(AnAtom, Fun)来把spawn(Fun)的结果注册为AnAtom。当两个并行的进程同时执行到start/2函数时，要确保代码能够正常工作。也就是说，这两个进程其中一个成功执行，而另一个必须执行失败。

-module(section_8).
-compile(export_all).

start(AnAtom, Fun) ->
    case whereis(AnAtom) of
        undefined ->
            register(AnAtom, spawn(Fun)),
            io:format("register success ~n");
        _ ->
            io:format("register false ~n")
    end.

create_process(AnAtom) ->
    Fun = fun() ->
        io:format("-----temp fun----~n")
    end,
    start(AnAtom, Fun),
    start(AnAtom, Fun).