24 game/Solve: Difference between revisions
m
→{{header|Perl}}: future-proof for 5.36, explicit :prototype
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:
<syntaxhighlight lang="perl"># Fischer-Krause ordered permutation generator
# http://faq.perl.org/perlfaq4.html#How_do_I_permute_N_e
sub permute :prototype(&@) {
my $code = shift;
my @idx = 0..$#_;
| |||