Permutations by swapping: Difference between revisions
m
→header|Perl: future-proof for 5.36, explicit :prototype
(→{{header|Quackery}}: improved) |
SqrtNegInf (talk | contribs) m (→header|Perl: future-proof for 5.36, explicit :prototype) |
||
Line 2,484:
===S-J-T Based===
<syntaxhighlight lang="perl">use strict;
use warnings;
Line 2,500 ⟶ 2,498:
# while demonstrating some common perl idioms.
sub perms :prototype(&@) {
my $callback = shift;
my @perm = map [$_, -1], @_;
| |||