Select Code to Download

sub natural_cmp ($a, $b) {
    my ($one, $two) = ($a, $b).map(*.subst(/(\d+)/, 
      -> $/{ sprintf( "%s%c%s", 0, $0.chars, $0) }, :g).lc);
    return $one cmp $two;
}

sub natural_cmp ($a is copy, $b is copy) {
   return $a.subst(/(\d+)/, -> $/{ sprintf( "%s%c%s", 0, $0.chars, $0)
+ }, :g).lc
   cmp $b.subst(/(\d+)/, -> $/{ sprintf( "%s%c%s", 0, $0.chars, $0) },
+ :g).lc;
}