このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1288531658/511
#  すみません、もう1つお願いします 
#  何度も申し訳ない 
#   
#  [1] 授業単元:プログラミング 
#  [2] 問題文(含コード&リンク): 
#  21 から1324 までの自然数n のうち、10 の位の数字が3 となる素数の個数を求めよ 
#   
#  

'21 から1324 までの自然数n のうち、10 の位の数字が3 となる素数の個数を求めよ'(_個数) :-
        findall(_自然数n,for(21,_自然数n,1324),L),
        素数生成(L,_素数ならび),
        count((     append(_,[_素数|_],_素数ならび),
                    M is _素数 mod 100,
                    M >= 30,
                    M < 39),
                _個数).