Erlang版的计算Mersenne(LucasLehmer)

iteye_12339

于 2009-04-09 20:19:40 发布

阅读量126

点赞数

分类专栏：我喜欢的语言文章标签： Erlang

我喜欢的语言专栏收录该内容

82 篇文章

订阅专栏

本文介绍了一种用于检测梅森素数的算法实现，通过Lucas-Lehmer测试序列来判断特定形式的数是否为素数。该算法基于Erlang语言实现，通过递归计算完成对梅森数的验证。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

-module(mersenne).
-export([run/1,mersenne/1,lucasLehmer_sequence/2]).

lucasLehmer_sequence (0, M) -> 4 rem M;
lucasLehmer_sequence (N, M) when N>0 ->
        erlang:round((math:pow(lucasLehmer_sequence(N-1,M),2)-2)) rem M.

mersenne(N) when N>0 ->
   erlang:round(math:pow(2,N))-1.

lucasLehmer_test(N) ->
   lucasLehmer_sequence(N - 2, mersenne(N)) =:=0.

run(2) ->
    case lucasLehmer_test(2) of
        true ->
                io:format("M(~w) => ~w~n", [2,mersenne(2)]);
        false ->
                1+1
    end;
run(N) ->
    case lucasLehmer_test(N) of
        true ->
                io:format("M(~w) => ~w~n", [N,mersenne(N)]);
        false ->
                1+1
    end,
    run(N-1).