Викиучебник

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

Интерактивная навигация по истории
← Предыдущая правкаСледующая правка →
Содержимое удалено Содержимое добавлено
ВизуальныйВики-текст
Строка 309:
== [[w:Perl|Perl]] ==
<big><source lang="ruby">
@out=(5,3,7,9,2,1,6,5,3,7,9,3,4);
$N=@out+0;
for(my$k=int($N/2);$k>0;$k=int($k/2)){
 
for(0..$#out-$k){
while ($k>0)
$j=$_;
{
for while($ij>=0; &&$i < (out[$N-j]gt$k); out[$i+j+$k]){
( $out[$j], $out[$j+$k] ) = ( $out[$j+$k], $out[$j] );▼
{
$j=$i--;
}
while (($j >= 0) && ($out[$j] gt $out[$j+$k]))
{
▲ ( $out[$j], $out[$j+$k] ) = ( $out[$j+$k], $out[$j] );
$j--;
}
}
$k=int($k/2);
}
}
</source></big>
 
Источник — https://ru.wikibooks.org/wiki/Реализации_алгоритмов/Сортировка/Шелла