このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1288531658/500
#  [1] 授業単元:プログラミング 
#  [2] 問題文(含コード&リンク): 
#  143 から3224 までの自然数n のうち、 
#  13 で割ると余りが6 の倍数になる自然数の個数とその総和を求めよ 
#   
#  

'143 から3224 までの自然数n のうち、13 で割ると余りが6 の倍数になる自然数の個数とその総和を求めよ'(_自然数の個数,_総和) :-
        findall(N,(
                    for(143,N,3224),
                    M is N mod 13,
                    0 is M mod 6)),
                L),
        length(L,_自然数の個数),
        sum(L,_総和).