定義自己的for
產生序列

-module(learnerl). -export([get_result/2]).for(Max,Max,F)->[F(Max)]; for(I,Max,F)->[F(I)|for(I+1,Max,F)].output_lst([Fst|Rst])->io:format("~p ",[Fst]),output_lst(Rst); output_lst([]) ->io:format("~n").get_result(I,Max)->Res=for(I,Max,fun(X)->X end),output_lst(Res). 19> c(learnerl). {ok,learnerl} 20> learnerl:get_result(1,30). 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 ok 21>

求偶數：

-module(learnerl). -export([get_result/2]).for(Max,Max,F)->[F(Max)]; for(I,Max,F)->[F(I)|for(I+1,Max,F)].output_lst([Fst|Rst])->io:format("~p ",[Fst]),output_lst(Rst); output_lst([]) ->io:format("~n").get_result(I,Max)->Seq=for(I,Max,fun(X)->X end),output_lst(Seq),Res=lists:filter(fun(X)->(X rem 2) =:= 0 end,Seq),output_lst(Res). 29> c(learnerl). {ok,learnerl} 30> learnerl:get_result(1,30). 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 ok 31>

判斷素數

87> c(learnerl). {ok,learnerl} 88> learnerl:get_result(13234234). false ok 89> learnerl:get_result(13234236). false ok 90> learnerl:get_result(132). false ok 91> learnerl:get_result(131). true ok 92> learnerl:get_result(13111111). false ok 93> learnerl:get_result(1311). false ok 94> learnerl:get_result(131). true ok 95> learnerl:get_result(1313). false ok 96> learnerl:get_result(1218). false ok 97> learnerl:get_result(163). true ok 98> -module(learnerl). -export([get_result/1]). %程序：劉興 %https://aipro.blog.csdn.net/ is_ediv(A,L)->GetRem=fun(X)->(fun(Y)->(X rem Y) =:=0 end) end,lists:any(fun(X)->X end,lists:map(GetRem(A),L)). for(Max,Max,F)->[F(Max)]; for(I,Max,F)->[F(I)|for(I+1,Max,F)].output_lst([Fst|Rst])->io:format("~p ",[Fst]),output_lst(Rst); output_lst([]) ->io:format("~n").get_result(Num)->Seq=for(2,round(math:sqrt(Num)),fun(X)->X end),IsEDiv=fun(L)->(fun(A)->not is_ediv(A,L) end) end,NumLst=[Num],Res=lists:map( IsEDiv(Seq),NumLst),output_lst(Res).

總結

以上是生活随笔為你收集整理的erlang(20)-控制抽象与判断素数的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。