Set puzzle: Difference between revisions

Content added Content deleted
m (formatting of task description)
m (→‎{{header|Perl 6}}: fixed deck creation & display of results)
Line 2,217: Line 2,217:
enum Style (solid => 0o1, open => 0o2, striped => 0o4);
enum Style (solid => 0o1, open => 0o2, striped => 0o4);
my @deck := (Color.enums X Count.enums X Shape.enums X Style.enums).tree;
my @deck = Color.enums X Count.enums X Shape.enums X Style.enums;
sub MAIN($DRAW = 9, $GOAL = $DRAW div 2) {
sub MAIN($DRAW = 9, $GOAL = $DRAW div 2) {
sub show-cards(@c) { printf " %-6s %-5s %-8s %s\n", $_».key for @c }
sub show-cards(@c) { { printf "%9s%7s%10s%9s\n", @c[$_;*]».key } for ^@c }


my @combinations = [^$DRAW].combinations(3);
my @combinations = [^$DRAW].combinations(3);
Line 2,242: Line 2,242:
{{out}}
{{out}}
<pre>Drew 9 cards:
<pre>Drew 9 cards:
red two diamond striped
purple two diamond open
purple one squiggle solid
red two squiggle striped
purple three squiggle solid
purple three squiggle open
red two squiggle striped
purple two squiggle striped
red two oval striped
red three oval striped
green one diamond open
red one diamond striped
red three diamond solid
purple two oval solid
green three squiggle open
green three diamond solid
purple two diamond striped
red two squiggle open


Set 1:
Set 1:
red two diamond striped
purple two diamond open
red two squiggle striped
purple two squiggle striped
red two oval striped
purple two oval solid


Set 2:
Set 2:
purple one squiggle solid
purple two diamond open
red two squiggle striped
red one diamond striped
green three squiggle open
green three diamond solid


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


Set 4:
Set 4:
green one diamond open
purple three squiggle open
red three diamond solid
red three oval striped
purple two diamond striped</pre>
green three diamond solid</pre>


=={{header|Python}}==
=={{header|Python}}==