6
मैं एर्लांग में प्रोग्राम करने के तरीके के बारे में जानने के लिए projecteuler.net पर समस्याओं के माध्यम से जा रहा हूं, और मुझे एक प्रमुख जनरेटर बनाने में सबसे कठिन समय है जो 2 मिलियन से कम सभी प्राइम बना सकता है, कम से कम एक मिनट। अनुक्रमिक शैली का उपयोग करके, मैंने पहले से ही तीन प्रकार के जेनरेटर लिखे हैं, जिनमें से इरेटोस्टेनेस की सिलाई भी शामिल है, और इनमें से कोई भी पर्याप्त प्रदर्शन नहीं करता है।समवर्ती प्राइम जनरेटर
मुझे लगा कि एक समवर्ती चाइव बहुत अच्छा काम करेगा, लेकिन मुझे बुराई संदेश मिल रहा है, और मुझे यकीन नहीं है कि क्यों। मुझे कोई समस्या क्यों है, या इसे ठीक से कैसे कोड करें?
-module(primeserver).
-compile(export_all).
start() ->
register(primes, spawn(fun() -> loop() end)).
is_prime(N) -> rpc({is_prime,N}).
rpc(Request) ->
primes ! {self(), Request},
receive
{primes, Response} ->
Response
end.
loop() ->
receive
{From, {is_prime, N}} ->
if
N From ! {primes, false};
N =:= 2 -> From ! {primes, true};
N rem 2 =:= 0 -> From ! {primes, false};
true ->
Values = is_not_prime(N),
Val = not(lists:member(true, Values)),
From ! {primes, Val}
end,
loop()
end.
for(N,N,_,F) -> [F(N)];
for(I,N,S,F) when I + S [F(I)|for(I+S, N, S, F)];
for(I,N,S,F) when I + S =:= N -> [F(I)|for(I+S, N, S, F)];
for(I,N,S,F) when I + S > N -> [F(I)].
get_list(I, Limit) ->
if
I
[I*A || A
[]
end.
is_not_prime(N) ->
for(3, N, 2,
fun(I) ->
List = get_list(I,trunc(N/I)),
lists:member(N,lists:flatten(List))
end
).
%%L = for(1,N, fun() -> spawn(fun(I) -> wait(I,N) end) end),
%%SeedList = [A || A
%% lists:foreach(fun(X) ->
%% Pid ! {in_list, X}
%% end, SeedList)
%% end, L).
%%wait(I,N) ->
%% List = [I*A || A lists:member(X,List)
%% end.
आपने मार्कडाउन के अनुचित वाक्यविन्यास रंग को कैसे दबाया? –