Rosetta Code

Set puzzle: Difference between revisions

Page Discussion

Set puzzle (view source)

Revision as of 00:23, 20 December 2016

64 bytes added ,  7 years ago
m
→‎{{header|Perl 6}}: fixed deck creation & display of results
m (formatting of task description)
m (→‎{{header|Perl 6}}: fixed deck creation & display of results)
Line 2,217:
enum Style (solid => 0o1, open => 0o2, striped => 0o4);
my @deck := (Color.enums X Count.enums X Shape.enums X Style.enums).tree;
sub MAIN($DRAW = 9, $GOAL = $DRAW div 2) {
sub show-cards(@c) { { printf " %-6s 9s%-5s 7s%-8s 10s%s9s\n", @c[$_;*]».key } for ^@c }
 
my @combinations = [^$DRAW].combinations(3);
Line 2,242:
{{out}}
<pre>Drew 9 cards:
redpurple two diamond striped open
purple one red two squiggle solid striped
purple three squiggle solid open
redpurple two squiggle squiggle striped
red red twothree oval oval striped
green red one diamond openstriped
purple red two oval three diamond solid
green three squiggle open diamond solid
purple red two squiggle diamond stripedopen
 
Set 1:
redpurple two diamond striped open
redpurple two squiggle squiggle striped
redpurple two oval oval stripedsolid
 
Set 2:
purple one squiggletwo diamond solidopen
red twoone diamond squiggle striped
green three squiggle open diamond solid
 
Set 3:
purple three red two squiggle solid striped
red red twothree oval oval striped
green red one diamond openstriped
 
Set 4:
purple green three one squiggle diamond open
red red three diamond solid oval striped
purplegreen two three diamond striped solid</pre>
 
=={{header|Python}}==
SqrtNegInf
2,392

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/224937"