兩人分蘋果的不同分配方法, Prolog實現

小紅與小麗兩人有N個蘋果, 編寫一個Prolog程式, 列出所有可能的分配方式.

 

思路,

1). 我們可以先可以產生一個從0至N的一個列表

2). 遞迴遍曆上面的列表, 用N去減列表元素

3). 完結

 

以下程式在SWI-Prolog通過

%分蘋果

genlist(X, Y, [X|L]):-
    X < Y,
    X1 is X + 1,
    genlist(X1, Y, L).

genlist(X, X, [X]).

calc(X, [Y|L]):-X >= Y, Z is X - Y, write([X, Y, Z]), calc(X, L).

solver(X):-genlist(0, X, L), calc(X, L).