このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1258320456/229
#  project euler problem02 
#  http://ime.nu/odz.sakura.ne.jp/projecteuler/index.php?cmd=read&page=Problem%202 
#   
#  フィボナッチ数列の項は前の2つの項の和である。最初の2項を 1, 2 とすれば、最初の10項は以下の通りである。 
#   1, 2, 3, 5, 8, 13, 21, 34, 55, 89, ... 
#  数列の項が400万を超えない範囲で、偶数の項の総和を求めよ。 
#   
#  (´・ω・`)再帰で書いたら深度が深すぎて怒られました。だれか教えてください。 
# 
# 

'フィボナッチ数列の項が400万を超えない範囲で、偶数の項の総和を求める'(_偶数の項の総和) :-
        'フィボナッチ数列の項が400万を超えない範囲で、偶数の項の総和を求める'(偶数番目,1,2,0,_偶数の項の総和).

'フィボナッチ数列の項が400万を超えない範囲で、偶数の項の総和を求める'(_,N1,N2,_偶数の項の総和,_偶数の項の総和) :-
        N1 + N2 > 4000000,!.
'フィボナッチ数列の項が400万を超えない範囲で、偶数の項の総和を求める'(偶数番目,N1,N2,_偶数の項の総和_1,_偶数の項の総和) :-
        N3 is N1 + N2,
        _偶数の項の総和_2 is _偶数の項の総和_1 + N2,
        'フィボナッチ数列の項が400万を超えない範囲で、偶数の項の総和を求める'(奇数番目,N2,N3,_偶数の項の総和_2,_偶数の項の総和).
'フィボナッチ数列の項が400万を超えない範囲で、偶数の項の総和を求める'(奇数番目,N1,N2,_偶数の項の総和_1,_偶数の項の総和) :-
        N3 is N1 + N2,
        'フィボナッチ数列の項が400万を超えない範囲で、偶数の項の総和を求める'(偶数番目,N2,N3,_偶数の項の総和_2,_偶数の項の総和).