diff options
| author | Polgár Márton <polgar@astron.hu> | 2023-01-24 21:25:30 +0100 |
|---|---|---|
| committer | Polgár Márton <polgar@astron.hu> | 2023-01-24 21:25:30 +0100 |
| commit | 8197d9c78d09654de26c95e4ce7a227a49fcfa8b (patch) | |
| tree | f683a23c2eae56180dcf49202a01146c815ff463 | |
| parent | 27b88f614b9bb53872ef0da19a56087505836db0 (diff) | |
| download | perlweeklychallenge-club-8197d9c78d09654de26c95e4ce7a227a49fcfa8b.tar.gz perlweeklychallenge-club-8197d9c78d09654de26c95e4ce7a227a49fcfa8b.tar.bz2 perlweeklychallenge-club-8197d9c78d09654de26c95e4ce7a227a49fcfa8b.zip | |
Prolog solutions for week 201 by 2colours
| -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 |