Anonymous user
Sorting algorithms/Gnome sort: Difference between revisions
→{{header|Perl}}
(→{{header|Python}}: ++ perl) |
|||
Line 216:
sub gnome_sort
{
my
my $size = scalar(@
my $i = 1;
my $j = 2;
while($i < $size) {
if ( $
$i = $j;
$j++;
} else {
$i--;
if ($i == 0) {
Line 236 ⟶ 234:
}
}
return
}</lang>
<lang perl>my @arr = ( 10, 9, 8, 5, 2, 1, 1, 0, 50, -2 );
print
=={{header|Python}}==
|