ch-2.p « prolog « 2colours « challenge-201 - github/perlweeklychallenge-club.git - Unnamed repository; edit this file 'description' to name the repository.

about summary refs log tree commit diff

path: root/challenge-201/2colours/prolog/ch-2.p

blob: 753e5ddd65497447e67b67fc5bb56b2931b424ba (plain)

1
2

penny_pile([], 0, _MINIMUM).
penny_pile([PILE_HEAD|PILE_TAIL], SUM, MINIMUM) :- between(MINIMUM, SUM, PILE_HEAD), SUM_TAIL is SUM - PILE_HEAD, penny_pile(PILE_TAIL, SUM_TAIL, PILE_HEAD).