Bulls and cows/Player: Difference between revisions
m
→{{header|Perl 6}}: .tree obsolete, .uniq now .unique
m (→{{header|REXX}}: simplified checking for eliminations, changed/added whitespace and comments, elided extra blanks when prompting.) |
SqrtNegInf (talk | contribs) m (→{{header|Perl 6}}: .tree obsolete, .uniq now .unique) |
||
Line 1,823:
=={{header|Perl 6}}==
{{works with|Rakudo|
{{trans|Perl}}
Line 1,829:
# 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.
my @candidates = ([X] [1..9] xx 4)
repeat {
|