Sorting algorithms/Bubble sort: Difference between revisions

Content added Content deleted

Inline

@@ Line 70: / Line 70: @@
   bubble_sort(@a);
-N.B. Of course, there's no need to implement bubble sort in perl as it has sort built-in.
+Alternate "Long Hand" Perl Method
+   sub Bubble_Sort {
+      my @list = @_;
+      my $temp = 0;
+      my $done = 0;
+      my $elements = $#list + 1;
+      while ($done == 0) {
+         $done = 1;
+         for (my $i=0;$i<$elements;$i++) {
+            if ($list[$i] > $list[$i+1] && ($i + 1) < $elements) {
+               $done = 0;
+               $temp = $list[$i];
+               $list[$i] = $list[$i+1];
+               $list[$i+1] = $temp;
+            }
+         }
+      }
+      return @list;
+   }
+   #usage
+   my @test = (1, 3, 256, 0, 3, 4, -1);
+   print join(",",Bubble_Sort(@test));
+Note: Of course, there's no need to implement bubble sort in Perl as it has sort built-in.
 ==[[Ruby]]==