このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1335517816/237
#  [1] 授業単元:プログラミング演習  
#  [2] 問題文:  
#  http://ime.nu/codepad.org/rhGmw4wz 
#  上記のプログラムnadd関数を修正して、2から30000までの偶数の和を求めるプログラムを作成しなさい。 
#  

'2から30000までの偶数の和を求める'(_2から30000までの偶数の和) :-
和を求める(_2から30000までの偶数,'2から30000までの偶数の'(_2から30000までの偶数),_2から30000までの偶数の和).

'2から30000までの偶数の'(_2から30000までの偶数) :-
between(2,30000,_2から30000までの偶数),
偶数(_2から30000までの偶数).

偶数(_2から30000までの偶数) :-
0 is _2から30000までの偶数 mod 2.

和を求める(_集約値,_目標,_和) :-
findall(_集約値,_目標,L),
sum_list(L,_和).