Set puzzle: Difference between revisions

Content added Content deleted
(→‎{{header|Tailspin}}: Corrected a mistake in the program)
m (updating prolog to have the right number of sets produced)
Line 3,078: Line 3,078:
print_set(Set) :- maplist(print_card, Set), nl.
print_set(Set) :- maplist(print_card, Set), nl.


n(9,3).
n(9,4).
n(12,4).
n(12,6).


card_sets(N, Cards, Sets) :-
card_sets(N, Cards, Sets) :-
Line 3,114: Line 3,114:
{{out}}
{{out}}
<pre>
<pre>
?- do_it(9).
?- do_it(12).
Cards:
Cards:
purple oval one striped
purple squiggle three open
purple oval three open
green diamond three open
red oval three striped
red diamond one open
red squiggle two solid
red squiggle two solid
red squiggle one open
red squiggle three open
green squiggle one striped
purple diamond two striped
red oval two striped
green oval one solid
purple squiggle one open
purple squiggle two solid
green oval two striped
purple squiggle three striped
green diamond one solid
purple diamond two open
red diamond two open


Sets:
Sets:
green diamond three open
green oval one solid
purple oval one striped
purple diamond two striped
red squiggle two solid
red squiggle three open


green squiggle one striped
green oval one solid
purple squiggle three open
purple squiggle three striped
red diamond two open

green oval two striped
purple diamond two open
red squiggle two solid
red squiggle two solid


green oval two striped
red diamond one open
purple squiggle two solid
red oval three striped
red diamond two open

purple squiggle one open
purple squiggle three striped
purple squiggle two solid

red diamond two open
red oval two striped
red squiggle two solid
red squiggle two solid


true.
true.


?- do_it(12).
?- do_it(9).
Cards:
Cards:
red diamond three solid
purple squiggle two solid
green diamond one striped
red diamond two solid
green oval two open
red diamond two striped
purple diamond three striped
green diamond two open
green diamond three solid
green diamond three solid
purple squiggle three striped
purple oval one open
purple squiggle two open
red squiggle one open
green oval three open
green diamond three striped
red oval two solid
red diamond one solid
green oval two solid
purple squiggle one solid
red diamond one striped


Sets:
Sets:
green diamond one striped
green diamond three solid
green diamond three solid
green diamond two open
purple squiggle one solid
red oval two solid


green oval three open
green diamond one striped
purple squiggle three striped
purple diamond three striped
red diamond three solid
red diamond two striped


green oval two solid
green oval two open
purple squiggle one solid
purple squiggle two solid
red diamond three solid
red diamond two striped


purple squiggle one solid
purple diamond three striped
purple squiggle three striped
purple oval one open
purple squiggle two open
purple squiggle two solid


true.
true.