このディレクトリの索引
#  出題場所 :: http://toro.2ch.net/test/read.cgi/tech/1357191974/726
#  お題:連続した自然数の和が2014になるものをすべて求める。 
# 
# 

'連続した自然数の和が2014になるものをすべて求める。'(_和が2014になる連続した自然数ならび) :-
        '連続した自然数の和が2014になるものをすべて求める。'(1,_和が2014になる連続した自然数ならび).

'連続した自然数の和が2014になるものをすべて求める。'(N,_和が2014になる連続した自然数ならび) :-
        N < 2014,
        連続した自然数の和が2014になる(N,0,_和が2014になる連続した自然数ならび).
'連続した自然数の和が2014になるものをすべて求める。'(N,_和が2014になる連続した自然数ならび) :-
        N < 2014,
        N_2 is N + 1,
        '連続した自然数の和が2014になるものをすべて求める。'(N_2,_和が2014になる連続した自然数ならび).

連続した自然数の和が2014になる(_,2014,[]) :- !.
連続した自然数の和が2014になる(N_1,S_1,[N_1|R]) :-
        N_1 < 2014,
        S_2 is N_1 + S_1,
        N_2 is N_1 + 1,
        連続した自然数の和が2014になる(N_2,S_2,R).