Changeset 311

Timestamp:

02/26/05 11:37:28 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

1041

Message:

* resurrect quicksort; need to fix chain

Files:

• examples/quicksort.p6 (modified) (1 diff)

examples/quicksort.p6

@@ -5 +5 @@
 
 multi sub quicksort ( *$x, *@xs ) {
-    my @pre  = @xs.grep:{ $_ < $x };
-    my @post = @xs.grep:{ $_ >= $x };
+    my @pre  = @xs.grep:{ $x > $_};
+    my @post = @xs.grep:{ $x <= $_ };
+#   my @post = @xs.grep:{ $_ >= $x }; # XXX FIXME
     (@pre.quicksort, $x, @post.quicksort);
 }