Anonymous user
Sorting algorithms/Insertion sort: Difference between revisions
Sorting algorithms/Insertion sort (view source)
Revision as of 02:57, 31 December 2011
, 12 years ago→{{header|Perl}}: perlcritic(isms): DON't (ab)use unpack @_ assignment to also create local vars! constrain var scope; use return keyword
m (add link to Delphi for pascal) |
(→{{header|Perl}}: perlcritic(isms): DON't (ab)use unpack @_ assignment to also create local vars! constrain var scope; use return keyword) |
||
Line 1,157:
<lang perl>
sub insertion_sort {
my (@
my $
while ( $j > 0 && $
$list[$j] = $list[$j - 1];
$j--;
}
$
}
return @
}
my @a = insertion_sort(4, 65, 2, -31, 0, 99, 83, 782, 1);
print "@a\n";
</lang>
| |||