RT #77474

gistfile1.txt

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));

say ~@hamming[^20];