このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1337692704/191
#  自然数N(N<10000)があたえられたとき、Nまでのうち素数のみを示すプログラムを作れ。 
#  表示はコンソールに、コンマで区切って表示せよ。 
#  (ヒント:a,b(a<=b)の2数の積がN以下ならば最大となるaまでの素数を考えればよい) 
#   
#  まずヒントが日本語じゃないです・・・ 
#  数学ができなくてもやる気があればできるというので大学に入ったのですが、もう毎日死ぬほど数学やってもわからない問題ばっかりです 
#  助けてください。毎日遊んだり合コンしたりと思ってたのに単位もらえそうになくて死にたいです 
# 
# 

'自然数N(N<10000)があたえられたとき、Nまでのうち素数のみを示す' :-
        '自然数N(N<10000)があたえられたとき'(_N),
        'Nまでのうち素数のみを'(_N,_素数ならび),
        示す(_素数ならび).

'自然数N(N<10000)があたえられたとき'(_N) :-
        自然数を得る('1000未満の自然数',_N < 1000,_N).

'Nまでのうち素数のみを'(_N,_素数ならび) :-
        findall(_m,(
                    between(2,_N,_m)),
                L),