Go Fish/Raku: Difference between revisions
m
→{{example|task=Go Fish|language=Raku}}: syntax highlighting
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Update to work with modern Rakudo) |
Thundergnat (talk | contribs) m (→{{example|task=Go Fish|language=Raku}}: syntax highlighting) |
||
| (3 intermediate revisions by 2 users not shown) | |||
Line 1:
{{collection|Go Fish}}
=={{example|task=Go Fish|language=Raku}}==
{{works with|Rakudo|
<syntaxhighlight lang="raku"
constant HANDSIZE = 9;
constant @pips = <two three four five six seven eight nine ten jack queen king ace>;
Line 27 ⟶ 28:
sub maxes (&f, *@a) {
my $x =
return @a.grep: { f($^e) eqv $x };
}
Line 225 ⟶ 226:
}
sub MAIN () { play }</
| |||