프롤로그 - 나는 3 개 인수받는 프로그램을 만들고 싶어

Question

특정 값으로 합계 값으로 그룹을 발견하는 프로그램 : 예를 들어 동전

1. 목록 1 : [5,2,1]
2. 값을 - 합계 우리 원하는 번호 :
3. 이 특정 값과 합친 동전 목록 -이 목록은 목록 1의 하위 목록입니다. (예 : 4에 도달하기 위해 동일한 요소를 반복 할 수 있습니다. [2,2])

,

때문에 프로그램은이 일을해야합니다

1. change([5,2,1],4,[2,2]) 돌아갑니다 Yes (원인은 2 + 2 = 4)

2. change([5,2],6,Coins)이 내 시도 Coins = [2,2,2]

반환합니다 :

change(_,0,Res). 
change([X|Xs],Sum,Cs):- Sum <X, change(Xs,Sum,Cs). 
change([X|Y],Sum,[X|Res]):- Sum>=X, Sum2 is Sum - X, change([X|Y],Sum2,Res). 

Answer 1

첫 번째 규칙의 마지막 인수로 Res을 []으로 변경해야합니다. 또한 동일한 결과를 여러 번 가져 오지 않도록 동일한 규칙에 잘라 내기 연산자를 추가해야합니다.

change(_, 0, []):-!. 
change([X|Y], Sum, [X|Res]):- 
    Sum >= X, !, % remove the cut operator to get all solutions 
    Sum2 is Sum - X, 
    change([X|Y], Sum2, Res). 
change([_|Xs],Sum,Cs):- 
    change(Xs, Sum, Cs). 

Answer 2

목록에서 요소를 '추측'하는 것은 member/2를 사용하여 수행 할 수 있습니다.

그냥 종료

change(_,0,[]). 
change(Coins,Sum,[C|Cs]) :- 
    Sum > 0, member(C, Coins), Rest is Sum-C, change(Coins,Rest,Cs).