Сортировка методом пузырька на perl

Категория: Perl
2011-08-26 22:18:53
code: #perl
  1. #!/usr/bin/perl
  2.  
  3. use warnings;
  4.  
  5. sub stupidSort
  6. {
  7.     my $flag=1;
  8.     while($flag)
  9.     {
  10.         $flag=0;
  11.         for(my $i=0; $i<@_-1; $i++)
  12.         {
  13.             if($_[$i]>$_[$i+1])
  14.             {
  15.                 @_[$i, $i+1]=@_[$i+1, $i];
  16.                 $flag=1;
  17.                 last;
  18.             }
  19.         }
  20.     }
  21.     return @_;
  22. }
  23.  
  24. print "$_\n" for stupidSort(@ARGV);
Поделиться:

Похожие статьи:

теги: массив, одномерный массив, сортировка, новички, метод пузырька