素數序言

Question

我已經編寫了 Prolog 代碼來（嘗試）找到 0 和 N 之間的素數。但是我無法過濾掉合數。

任何建議都會很棒。

 check(N, 2) :-
     N mod 2 =:= 0.

 plist(N, List) :-
      X>1, 
      findall(Z, between(1, N, Z), L1),
      list(L1, 2, List).

 
 list([], _, []).

 list([H | Tail1], 2, [H | Tail2]) :-
      \+ divide(H, 2),
      list(Tail1, 2, Tail2).

 list([H | Tail1], 2, List) :-
      divide(H, 2),
      list(Tail1, 2, List).

Answer 1

開始編寫謂詞is_prime(N) :- ....沒有任何優化，只是從 2 循環到 N-1 （當然，你可以停在 N 的平方根處，但現在它並不那么重要......） .

您可以在命令行上對其進行測試， ?- is_prime(13). 應該給真， ?- is_prime(21). 應該給假...

然后你做了：

plist(N, List) :-
      findall(Z, (between(1, N, Z), is_prime(Z)), List).