Sorting algorithms/Cocktail sort: Difference between revisions
m
→{{header|Perl}}: replaced broken algorithm, fiddled with layout
m (added Category:Sorting) |
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: replaced broken algorithm, fiddled with layout) |
||
Line 2,837:
<lang perl>use strict;
use warnings;
use feature 'say';
sub cocktail_sort {
my @B=qw(t h e q u i c k b r o w n f o x j u m p s o v e r t h e l a z y d o g);▼
}▼
▲ while ($swapped == 1) {
last if not $swapped_forward;
▲ for (my $i=0; $i<($#A-1); $i+=1) {
if ($a[$i] gt $a[$i+1])
$swapped_backward = 1;
}
last if not $swapped_backward;
▲ }
}
}
▲ }
▲ for (my $i=($#A-1); $i>0 ; $i-=1) {
▲
▲ if($A[$i] gt $A[$i+1]) {
{{out}}
<pre>a b c d e e e f g h h i j k l m n o o o o p q r r s t t u u v w x y z</pre>
▲ ($A[$i+1], $A[$i])=($A[$i], $A[$i+1]);
▲ $swapped = 1;
▲ }
=={{header|Phix}}==
|