Anonymous user
Sorting algorithms/Strand sort: Difference between revisions
→{{header|Perl 6}}: new stuff
m (→{{header|REXX}}: changed style of '''output'''. -- ~~~~) |
(→{{header|Perl 6}}: new stuff) |
||
Line 734:
say "After @a";</lang>
=={{header|Perl 6}}==
<lang perl6>sub
gather {
while @x and @y {
Line 747:
}
sub strand (@x is rw) {
my $i = 0;▼
my $prev = -Inf;
▲ my $i = 0;
gather while $i < @x {
if @x[$i] !before $prev {
take $prev = splice(@x, $i
}
else {
}
}
}
sub
my @out;
@out M=
@out;
}
my @a = (^100).roll(
say "Before @a[]";
@a =
say "After @a[]";
@a = <The quick brown fox jumps over the lazy dog's back.>;
say "Before @a[]";
@a =
say "After @a[]";</lang>
{{out}}
|