diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2023-01-29 10:49:25 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2023-01-29 10:49:25 +0000 |
| commit | fa44042cd902c70ac0476ef96227f2900fe4e165 (patch) | |
| tree | e38282287a0fa1b902d37aa74710a6070f409ff1 | |
| parent | 04661d2641a8b1dbfc1150ba5270227bc16a3f49 (diff) | |
| parent | 8197d9c78d09654de26c95e4ce7a227a49fcfa8b (diff) | |
| download | perlweeklychallenge-club-fa44042cd902c70ac0476ef96227f2900fe4e165.tar.gz perlweeklychallenge-club-fa44042cd902c70ac0476ef96227f2900fe4e165.tar.bz2 perlweeklychallenge-club-fa44042cd902c70ac0476ef96227f2900fe4e165.zip | |
Merge pull request #7466 from 2colours/branch-for-challenge-201
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 |