Bulls and cows/Player: Difference between revisions
Content added Content deleted
SqrtNegInf (talk | contribs) m (→{{header|Perl 6}}: .tree obsolete, .uniq now .unique) |
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: fix markup) |
||
| Line 1,826: | Line 1,826: | ||
{{trans|Perl}} |
{{trans|Perl}} |
||
<lang |
<lang perl6># we use the [] reduction meta operator along with the Cartesian Product |
||
# operator X to create the Cartesian Product of four times [1..9] and then get |
# operator X to create the Cartesian Product of four times [1..9] and then get |
||
# all the elements where the number of unique digits is four. |
# all the elements where the number of unique digits is four. |
||