Реализации алгоритмов/Сортировка/Пузырьком: различия между версиями
Содержимое удалено Содержимое добавлено
Строка 221:
<source lang="perl">
for(@out){
for(0..$
($out[$_],$out[$_+1])=($out[$_+1],$out[$_]) if($out[$_] gt $out[$_+1])
}
}
|