all tasks

2013-04-11 01:07:29 -07:00 · 2013-04-11 01:07:29 -07:00 · 68f8f3e56b
commit 68f8f3e56b
parent b83f433714
14735 changed files with 178959 additions and 0 deletions
--- a/Task/Sorting-algorithms-Stooge-sort/Perl/sorting-algorithms-stooge-sort.pl
+++ b/Task/Sorting-algorithms-Stooge-sort/Perl/sorting-algorithms-stooge-sort.pl
@ -0,0 +1,23 @@
+sub stooge {
+        use integer;
+        my ($x, $i, $j) = @_;
+
+        $i //= 0;
+        $j //= $#$x;
+
+        if ( $x->[$j] < $x->[$i] ) {
+                @$x[$i, $j] = @$x[$j, $i];
+        }
+        if ( $j - $i > 1 ) {
+                my $t = ($j - $i + 1) / 3;
+                stooge( $x, $i,      $j - $t );
+                stooge( $x, $i + $t, $j      );
+                stooge( $x, $i,      $j - $t );
+        }
+}
+
+
+my @a = map (int rand(100), 1 .. 10);
+print "Before @a\n";
+stooge(\@a);
+print "After  @a\n";