Sorting algorithms/Bubble sort: Difference between revisions
→[[Perl]]: syntax highlight
(→[[Perl]]: syntax highlight) |
|||
Line 185:
'''Interpreter:''' perl 5.8.8
<highlightSyntax language=perl>
my $len = @_ - 1;▼
my $len
for my
@_[$i, $j] = @_[$j, $i];
}▼
}
return @_;
}
@a = qw/G F C A B E D/; ▼
</highlightSyntax>
bubble_sort(@a);▼
<highlightSyntax language=perl>
</highlightSyntax>
Alternate "Long Hand" Perl Method
<highlightSyntax language=perl>
while
$done
for (my $i =
if ($list[$i] > $
$
$
$list[$i
$list[$i + 1] = $temp;
}
</highlightSyntax>
<highlightSyntax language=perl>
▲ #usage
# usage
</highlightSyntax>
==[[Python]]==
|