diff options
| -rw-r--r-- | challenge-201/2colours/prolog/ch-1.p | 2 | ||||
| -rw-r--r-- | challenge-201/2colours/prolog/ch-2.p | 2 |
2 files changed, 4 insertions, 0 deletions
diff --git a/challenge-201/2colours/prolog/ch-1.p b/challenge-201/2colours/prolog/ch-1.p new file mode 100644 index 0000000000..c71674e180 --- /dev/null +++ b/challenge-201/2colours/prolog/ch-1.p @@ -0,0 +1,2 @@ +:- use_module(library(lists)). +missing(ARRAY, MISSED) :- length(ARRAY, N), numlist(0, N, RANGE), subtract(RANGE, ARRAY, MISSED).
\ No newline at end of file diff --git a/challenge-201/2colours/prolog/ch-2.p b/challenge-201/2colours/prolog/ch-2.p new file mode 100644 index 0000000000..753e5ddd65 --- /dev/null +++ b/challenge-201/2colours/prolog/ch-2.p @@ -0,0 +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).
\ No newline at end of file |