Реализации алгоритмов/Сортировка/Шелла: различия между версиями
Содержимое удалено Содержимое добавлено
м →Perl |
|||
Строка 316:
for(0..$#out-$k){
$j=$_;
while($j>=0&&$out[$j]
($out[$j],$out[$j+$k])=($out[$j+$k],$out[$j]);
$j--;
|