moritz

#!perl6
 
class For { }
 
class If {
    has $.value;
    method perl { "If.new($.value)" }
    method Str  { "<MANGLED_IF $.value>" }

moritz

multi sub infix:<merge> (@ [], @y) is default { @y };
multi sub infix:<merge> (@x, @ []) { @x };
multi sub infix:<merge> (@x [$x, *@xtail], @y [$y,*@ytail]) {
if $x < $y { $x, (@xtail merge @y) }
elsif $x > $y { $y, (@x merge @ytail) }
else { $x, (@xtail merge @ytail) }
}

my @hamming := (1, (@hamming X* 2) merge (@hamming X* 3) merge (@hamming X* 5));

moritz

#!/usr/bin/env perl

use strict;
use warnings;
use List::Util 'shuffle';
use Benchmark 'cmpthese';

my @unsorted = shuffle 1 .. 1000;
sub reverse_sort {
    my @sorted = reverse sort @unsorted;

moritz

People marked with * should remain active bug admins

 acme (Leon Brocard)
 allison (Allison Randal)
 ambs (Alberto Simoes)
 ask (Ask Bjoern Hansen)
*bacek (Vasily Chekalkin)
 bbkr (Pawel Pabian)
*bernhard (Bernhard Schmalhofer)
 boemmels (J�rgen B�mmels)