Anonymous user
Set puzzle: Difference between revisions
→{{header|Perl 6}}: for clarity use octal to set up original bits, masak++
(solution for immutable issue and optional shuffle) |
(→{{header|Perl 6}}: for clarity use octal to set up original bits, masak++) |
||
Line 435:
{{works with|rakudo|2013-02-11}}
This uses the <tt>combine</tt> routine from [[Combinations#Perl_6]] task. The trick here is to allocate three different bits for each enum, with the result that the cards of a matching set OR together to produce a 4-digit octal number that contains only the digits 1, 2, 4, or 7. This OR is done by funny looking <tt>[+|]</tt>, which is the reduction form of <tt>+|</tt>, which is the numeric bitwise OR. (Because Perl 6 stole the bare <tt>|</tt> operator for composing junctions instead.)
<lang perl6>enum Color (red =>
enum Count (one =>
enum Shape (oval =>
enum Style (solid =>
my @deck := (Color.enums X Count.enums X Shape.enums X Style.enums).tree;
| |||