>>797 Prolog

'値が整数のn個の数列がある。隣同士の項の和の数列をつくる。この操作を繰り返して項が1個になったらその値を返す。'([_1個になったらその値],_1個になったらその値) :- !
.
'値が整数のn個の数列がある。隣同士の項の和の数列をつくる。この操作を繰り返して項が1個になったらその値を返す。'(_値が整数の数列,_1個になったらその値) :-
　　　　findall(_隣同士の項の和,(
　　　　　　　　　　append(_,[_項_1,_項_2|_],_値が整数の数列),
　　　　　　　　　　_隣同士の項の和 is _項_1 + _項_2),
　　　　　　　　_隣同士の項の和の数列),
　　　　'値が整数のn個の数列がある。隣同士の項の和の数列をつくる。この操作を繰り返して項が1個になったらその値を返す。'(_隣同士の項の和の数列,_1個になったらその
値).