このディレクトリの索引
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,0,_2から30000までの偶数の和).
'2から30000までの偶数の和を求める'(N,_2から30000までの偶数の和,_2から30000までの偶数の和) :-
        N > 30000,!.
'2から30000までの偶数の和を求める'(N,_和_1,_2から30000までの偶数の和) :-
        0 is N mod 2,
        _和_2 is _和_1 + N,
        N_2 is N + 1,
        '2から30000までの偶数の和を求める'(N_2,30000,_和_2,_2から30000までの偶数の和).
'2から30000までの偶数の和を求める'(N,_和_1,_2から30000までの偶数の和) :-
        1 is N mod 2,
        N_2 is N + 1,
        '2から30000までの偶数の和を求める'(N_2,30000,_和_1,_2から30000までの偶数の和).