Реализации алгоритмов/Сортировка/Шелла: различия между версиями

Содержимое удалено Содержимое добавлено
→‎Perl: Программа приведена к человекочитаемому виду
Метки: с мобильного устройства из мобильной версии
Нет описания правки
Строка 342:
#1 2 3 3 3 4 5 5 6 7 7 9 9
 
</source>
 
== [[w:Perl 6|Perl 6]] ==
<source lang="perl6">
my @a = <5 3 7 9 2 1 6 5 3 7 9 3 1>;
loop (my $k = @a.elems div 2; $k > 0; $k div= 2) {
for 0..@a.elems - $k -> $l is copy {
@a[$l, $l + $k] = @a[$l + $k, $l] if @a[$l] > @a[$l + $k] while --$l >= 0 ;
}
}
say @a;
</source>