24 game/Solve: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (→{{header|Raku}}: Fix syntax hightlighting) |
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: future-proof for 5.36, explicit :prototype) |
||
Line 6,002: | Line 6,002: | ||
<syntaxhighlight lang="perl"># Fischer-Krause ordered permutation generator |
<syntaxhighlight lang="perl"># Fischer-Krause ordered permutation generator |
||
# http://faq.perl.org/perlfaq4.html#How_do_I_permute_N_e |
# http://faq.perl.org/perlfaq4.html#How_do_I_permute_N_e |
||
sub permute (&@) { |
sub permute :prototype(&@) { |
||
my $code = shift; |
my $code = shift; |
||
my @idx = 0..$#_; |
my @idx = 0..$#_; |