diff options
| author | Adam Russell <adamcrussell@outlook.com> | 2025-06-29 15:30:25 -0400 |
|---|---|---|
| committer | Adam Russell <adamcrussell@outlook.com> | 2025-06-29 15:30:25 -0400 |
| commit | 2709ea346959034827c5174aa6d431131c22b9f1 (patch) | |
| tree | 639d615a97f41a26e994db58ce0955dd2a7450fc | |
| parent | 8e6b033450dc276cc1e7f24b187240c05aa1bc96 (diff) | |
| download | perlweeklychallenge-club-2709ea346959034827c5174aa6d431131c22b9f1.tar.gz perlweeklychallenge-club-2709ea346959034827c5174aa6d431131c22b9f1.tar.bz2 perlweeklychallenge-club-2709ea346959034827c5174aa6d431131c22b9f1.zip | |
added Prolog solutions and blog
| -rw-r--r-- | challenge-327/adam-russell/blog1.txt | 1 | ||||
| -rw-r--r-- | challenge-327/adam-russell/prolog/ch-1.p | 9 | ||||
| -rw-r--r-- | challenge-327/adam-russell/prolog/ch-2.p | 10 |
3 files changed, 20 insertions, 0 deletions
diff --git a/challenge-327/adam-russell/blog1.txt b/challenge-327/adam-russell/blog1.txt new file mode 100644 index 0000000000..114d603e33 --- /dev/null +++ b/challenge-327/adam-russell/blog1.txt @@ -0,0 +1 @@ +http://rabbitfarm.com/cgi-bin/blosxom/prolog/2025/06/29 diff --git a/challenge-327/adam-russell/prolog/ch-1.p b/challenge-327/adam-russell/prolog/ch-1.p new file mode 100644 index 0000000000..8640e953cf --- /dev/null +++ b/challenge-327/adam-russell/prolog/ch-1.p @@ -0,0 +1,9 @@ + + + missing_integers(L, Missing):- + length(L, Length), + findall(M, ( + between(1, Length, M), + \+ member(M, L) + ), Missing). + diff --git a/challenge-327/adam-russell/prolog/ch-2.p b/challenge-327/adam-russell/prolog/ch-2.p new file mode 100644 index 0000000000..37fed505d4 --- /dev/null +++ b/challenge-327/adam-russell/prolog/ch-2.p @@ -0,0 +1,10 @@ + + + mad(L, Pairs):- + fd_max_integer(MAX_INT), + fd_domain([I, J], L), + fd_domain(D, 1, MAX_INT), + J #> I, + fd_minimize((D #= J - I, fd_labeling([D])), D), + findall(Pair, (fd_labeling([I, J]), Pair = [I, J]), Pairs). + |