Best shuffle: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (Automated syntax highlighting fixup (second round - minor fixes)) |
Thundergnat (talk | contribs) |
||
Line 3,922: | Line 3,922: | ||
{{trans|Sidef}} |
{{trans|Sidef}} |
||
<syntaxhighlight lang="raku line |
<syntaxhighlight lang="raku" line>sub best-shuffle(Str $orig) { |
||
my @s = $orig.comb; |
my @s = $orig.comb; |
||
my @t = @s.pick(*); |
my @t = @s.pick(*); |
||
Line 3,948: | Line 3,948: | ||
up, pu, (0) |
up, pu, (0) |
||
a, a, (1)</pre> |
a, a, (1)</pre> |
||
=={{header|Rascal}}== |
=={{header|Rascal}}== |
||
{{incomplete|Rascal|No output given.}} |
{{incomplete|Rascal|No output given.}} |