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

Содержимое удалено Содержимое добавлено
Строка 221:
<source lang="perl">
for(@out){
for(0..$N#out-1){
($out[$_],$out[$_+1])=($out[$_+1],$out[$_]) if($out[$_] gt $out[$_+1]){;
($out[$_],$out[$_+1])=($out[$_+1],$out[$_]);
}
}
}