いろんな言語で宿題スレ

いろんな言語で宿題スレ at TECH

267:デフォルトの名無しさん
09/06/22 17:27:40
>>266
% Prolog

素数生成(N,X) :-
　　findall(M,for(2,M,N),L),
　　エラトステネスの篩(L,X).

エラトステネスの篩([],[]) :- !.
エラトステネスの篩([A|R1],[A|R2]) :-
　　エラトステネスの篩(A,R1,L),
　　エラトステネスの篩(L,R2).

エラトステネスの篩(_,[],[]) :- !.
エラトステネスの篩(N,[A|R1],R2) :-
　　0 is A mod N,
　　エラトステネスの篩(N,R1,R2),!.
エラトステネスの篩(N,[A|R1],[A|R2]) :-
　　エラトステネスの篩(N,R1,R2).

次ページ

続きを表示

1を表示