cvs commit: parrot/languages/perl6/examples qsort.p6

[Leopold Toetsch]

cvsuser     03/02/18 05:25:14

  Modified:    languages/perl6/examples qsort.p6
  Log:
  perl6-qsort: reverse is internal
  
  Revision  Changes    Path
  1.2       +0 -7      parrot/languages/perl6/examples/qsort.p6
  
  Index: qsort.p6
  ===================================================================
  RCS file: /cvs/public/parrot/languages/perl6/examples/qsort.p6,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -w -r1.1 -r1.2
  --- qsort.p6  24 Aug 2002 23:25:57 -0000      1.1
  +++ qsort.p6  18 Feb 2003 13:25:13 -0000      1.2
  @@ -17,13 +17,6 @@
       qsort @a, $l,  $hi    if $l  < $hi;
   }
   
  -sub reverse(@a) {
  -    my @ret;
  -    for 1 .. @a -> $i {
  -     @ret[@a - $i] = @a[$i - 1];
  -    }
  -    @ret;
  -}
   
   sub main() {
       my @a = 1..(@ARGS[0] || 100);