- 352 名前：デフォルトの名無しさん mailto:sage [2011/12/07(水) 23:00:04.07 ]
- 組み込み関数禁止ってis/2やwrite/1も禁止なの？
next_item_0([X], [], X) :- !.
next_item_0([X1,X2|XS], [Y|YS], N) :-
Y is X2 - X1,
next_item_0([X2|XS], YS, N).
next_item([], 0 ) :- !.
next_item(XS, N1) :-
write(XS), nl,
next_item_0(XS, YS, N2),
next_item(YS, N3),
N1 is N2 + N3.
