Anonymous user
Set puzzle: Difference between revisions
m
updating prolog to have the right number of sets produced
(→{{header|Tailspin}}: Corrected a mistake in the program) |
m (updating prolog to have the right number of sets produced) |
||
Line 3,078:
print_set(Set) :- maplist(print_card, Set), nl.
n(9,
n(12,
card_sets(N, Cards, Sets) :-
Line 3,114:
{{out}}
<pre>
?- do_it(
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
green oval two striped
Sets:
green
purple
red squiggle
green
purple squiggle three
green oval two striped
purple diamond two open
red squiggle two solid
green oval two striped
▲ red diamond one open
▲ red oval three striped
red diamond two open
purple squiggle three striped
red diamond two open
red squiggle two solid
true.
?- do_it(
Cards:
purple diamond three striped
green diamond three solid
purple
▲ 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:
green diamond one striped
green diamond three solid
green diamond two open
▲ purple squiggle one solid
▲ red oval two solid
green
purple
red diamond
green oval two
purple squiggle
red diamond
purple
purple
purple squiggle two
true.
| |||