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

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